(parstate->version parstate) → version
Function:
(defun parstate->version$inline (parstate) (declare (xargs :stobjs (parstate))) (declare (xargs :guard t)) (mbe :logic (if (parstatep parstate) (raw-parstate->version parstate) (c::version-c23)) :exec (raw-parstate->version parstate)))
Theorem:
(defthm versionp-of-parstate->version (b* ((version (parstate->version$inline parstate))) (c::versionp version)) :rule-classes :rewrite)