(vl-syntaxversion-fix x) → version
Function:
(defun vl-syntaxversion-fix (x) (declare (xargs :guard t)) (let ((__function__ 'vl-syntaxversion-fix)) (declare (ignorable __function__)) (if (vl-syntaxversion-p x) x *vl-current-syntax-version*)))
Theorem:
(defthm vl-syntaxversion-p-of-vl-syntaxversion-fix (b* ((version (vl-syntaxversion-fix x))) (vl-syntaxversion-p version)) :rule-classes :rewrite)
Theorem:
(defthm vl-syntaxversion-fix-when-vl-syntaxversion-p (implies (vl-syntaxversion-p x) (equal (vl-syntaxversion-fix x) x)))