(vl-importpart-fix x) → part
Function:
(defun vl-importpart-fix (x) (declare (xargs :guard (vl-importpart-p x))) (let ((__function__ 'vl-importpart-fix)) (declare (ignorable __function__)) (if (vl-importpart-p x) x :vl-import*)))
Theorem:
(defthm vl-importpart-p-of-vl-importpart-fix (b* ((part (vl-importpart-fix x))) (vl-importpart-p part)) :rule-classes :rewrite)
Theorem:
(defthm vl-importpart-fix-when-vl-importpart-p (implies (vl-importpart-p x) (equal (vl-importpart-fix x) x)))