(vl-packeddimension-fix x) → x-fix
Function:
(defun vl-packeddimension-fix$inline (x) (declare (xargs :guard (vl-packeddimension-p x))) (let ((__function__ 'vl-packeddimension-fix)) (declare (ignorable __function__)) (mbe :logic (if (vl-packeddimension-p x) x (vl-range-fix x)) :exec x)))
Theorem:
(defthm vl-packeddimension-p-of-vl-packeddimension-fix (b* ((x-fix (vl-packeddimension-fix$inline x))) (vl-packeddimension-p x-fix)) :rule-classes :rewrite)
Theorem:
(defthm vl-packeddimension-fix-when-vl-packeddimension-p (implies (vl-packeddimension-p x) (equal (vl-packeddimension-fix x) x)))