(parstate->size parstate) → size
Function:
(defun parstate->size$inline (parstate) (declare (xargs :stobjs (parstate))) (declare (xargs :guard t)) (mbe :logic (if (parstatep parstate) (raw-parstate->size parstate) 0) :exec (raw-parstate->size parstate)))
Theorem:
(defthm natp-of-parstate->size (b* ((size (parstate->size$inline parstate))) (natp size)) :rule-classes (:rewrite :type-prescription))