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