		Search-engine friendly clone of the ACL2 documentation.

States32

Error32

Set the error flag in the state.

Signature
(error32 stat) → new-stat
Arguments: stat — Guard (stat32ip stat).
Returns: new-stat — Type (stat32ip new-stat).

Definitions and Theorems

Function: error32

(defun error32 (stat)
  (declare (xargs :guard (stat32ip stat)))
  (let ((__function__ 'error32))
    (declare (ignorable __function__))
    (change-stat32i stat :error t)))

Theorem: stat32ip-of-error32

(defthm stat32ip-of-error32
  (b* ((new-stat (error32 stat)))
    (stat32ip new-stat))
  :rule-classes :rewrite)

Theorem: error32-of-stat32i-fix-stat

(defthm error32-of-stat32i-fix-stat
  (equal (error32 (stat32i-fix stat))
         (error32 stat)))

Theorem: error32-stat32i-equiv-congruence-on-stat

(defthm error32-stat32i-equiv-congruence-on-stat
  (implies (stat32i-equiv stat stat-equiv)
           (equal (error32 stat)
                  (error32 stat-equiv)))
  :rule-classes :congruence)