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