		Search-engine friendly clone of the ACL2 documentation.

States64

Error64

Set the error flag in the state.

Signature
(error64 stat) → new-stat
Arguments: stat — Guard (state64p stat).
Returns: new-stat — Type (state64p new-stat).

Definitions and Theorems

Function: error64

(defun error64 (stat)
  (declare (xargs :guard (state64p stat)))
  (let ((__function__ 'error64))
    (declare (ignorable __function__))
    (change-state64 stat :error t)))

Theorem: state64p-of-error64

(defthm state64p-of-error64
  (b* ((new-stat (error64 stat)))
    (state64p new-stat))
  :rule-classes :rewrite)

Theorem: error64-of-state64-fix-stat

(defthm error64-of-state64-fix-stat
  (equal (error64 (state64-fix stat))
         (error64 stat)))

Theorem: error64-state64-equiv-congruence-on-stat

(defthm error64-state64-equiv-congruence-on-stat
  (implies (state64-equiv stat stat-equiv)
           (equal (error64 stat)
                  (error64 stat-equiv)))
  :rule-classes :congruence)