(vl-class->loc x) → *
Function:
(defun vl-class->loc (x) (declare (xargs :guard (vl-class-p x))) (let ((__function__ 'vl-class->loc)) (declare (ignorable __function__)) (vl-class->minloc x)))
Theorem:
(defthm vl-class->loc-of-vl-class-fix-x (equal (vl-class->loc (vl-class-fix x)) (vl-class->loc x)))
Theorem:
(defthm vl-class->loc-vl-class-equiv-congruence-on-x (implies (vl-class-equiv x x-equiv) (equal (vl-class->loc x) (vl-class->loc x-equiv))) :rule-classes :congruence)