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