(update-ppstate->version version ppstate) → ppstate
Function:
(defun update-ppstate->version (version ppstate) (declare (xargs :stobjs (ppstate))) (declare (xargs :guard (c::versionp version))) (b* ((ppstate (ppstate-fix ppstate))) (raw-update-ppstate->version (c::version-fix version) ppstate)))
Theorem:
(defthm ppstatep-of-update-ppstate->version (b* ((ppstate (update-ppstate->version version ppstate))) (ppstatep ppstate)) :rule-classes :rewrite)
Theorem:
(defthm update-ppstate->version-of-version-fix-version (equal (update-ppstate->version (c::version-fix version) ppstate) (update-ppstate->version version ppstate)))
Theorem:
(defthm update-ppstate->version-version-equiv-congruence-on-version (implies (c::version-equiv version version-equiv) (equal (update-ppstate->version version ppstate) (update-ppstate->version version-equiv ppstate))) :rule-classes :congruence)
Theorem:
(defthm update-ppstate->version-of-ppstate-fix-ppstate (equal (update-ppstate->version version (ppstate-fix ppstate)) (update-ppstate->version version ppstate)))
Theorem:
(defthm update-ppstate->version-ppstate-equiv-congruence-on-ppstate (implies (ppstate-equiv ppstate ppstate-equiv) (equal (update-ppstate->version version ppstate) (update-ppstate->version version ppstate-equiv))) :rule-classes :congruence)