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