(parstate-fix parstate) → parstate
Function:
(defun parstate-fix (parstate) (declare (xargs :stobjs (parstate))) (declare (xargs :guard t)) (let ((__function__ 'parstate-fix)) (declare (ignorable __function__)) (mbe :logic (if (parstatep parstate) parstate (create-parstate)) :exec parstate)))
Theorem:
(defthm parstatep-of-parstate-fix (b* ((parstate (parstate-fix parstate))) (parstatep parstate)) :rule-classes :rewrite)
Theorem:
(defthm parstate-fix-when-parstatep (implies (parstatep parstate) (equal (parstate-fix parstate) parstate)))