(vl-elabtask->loc x) → loc
Function:
(defun vl-elabtask->loc (x) (declare (xargs :guard (vl-elabtask-p x))) (let ((__function__ 'vl-elabtask->loc)) (declare (ignorable __function__)) (b* (((vl-elabtask x))) (vl-stmt-case x.stmt (:vl-callstmt x.stmt.loc) (:otherwise (progn$ (raise "Elabtask is not a call stmt?") *vl-fakeloc*))))))
Theorem:
(defthm vl-location-p-of-vl-elabtask->loc (b* ((loc (vl-elabtask->loc x))) (vl-location-p loc)) :rule-classes :rewrite)
Theorem:
(defthm vl-elabtask->loc-of-vl-elabtask-fix-x (equal (vl-elabtask->loc (vl-elabtask-fix x)) (vl-elabtask->loc x)))
Theorem:
(defthm vl-elabtask->loc-vl-elabtask-equiv-congruence-on-x (implies (vl-elabtask-equiv x x-equiv) (equal (vl-elabtask->loc x) (vl-elabtask->loc x-equiv))) :rule-classes :congruence)