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