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