Fixing function for vl-linecol structures.
(vl-linecol-fix x) → x-fix
Function:
(defun vl-linecol-fix$inline (x) (declare (xargs :guard (vl-linecol-p x))) (let ((__function__ 'vl-linecol-fix)) (declare (ignorable __function__)) (mbe :logic (if (vl-linecol-p x) x (ash 1 22)) :exec x)))
Theorem:
(defthm vl-linecol-p-of-vl-linecol-fix (b* ((x-fix (vl-linecol-fix$inline x))) (vl-linecol-p x-fix)) :rule-classes :rewrite)
Theorem:
(defthm vl-linecol-fix-when-vl-linecol-p (implies (vl-linecol-p x) (equal (vl-linecol-fix x) x)))