		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 (state32p stat).
Returns: new-stat — Type (state32p new-stat).

Definitions and Theorems

Function: error32

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

Theorem: state32p-of-error32

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

Theorem: error32-of-state32-fix-stat

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

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

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