Check if the error flag in the state is set.
Function:
(defun error32p (stat) (declare (xargs :guard (state32p stat))) (let ((__function__ 'error32p)) (declare (ignorable __function__)) (state32->error stat)))
Theorem:
(defthm booleanp-of-error32p (b* ((yes/no (error32p stat))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm error32p-of-state32-fix-stat (equal (error32p (state32-fix stat)) (error32p stat)))
Theorem:
(defthm error32p-state32-equiv-congruence-on-stat (implies (state32-equiv stat stat-equiv) (equal (error32p stat) (error32p stat-equiv))) :rule-classes :congruence)