		Search-engine friendly clone of the ACL2 documentation.

Integer-operations

Lognot-integer-value

Apply ! to an integer value [C:6.5.3.3/5].

Signature
(lognot-integer-value val) → resval
Arguments: val — Guard (valuep val).
Returns: resval — Type (valuep resval).

This always returns an int (never an error), either 0 or 1. It is equivalent to comparing the integer for equality to 0, which in our curren model is equivalent to whether the integer value is 0 or not.

Definitions and Theorems

Function: lognot-integer-value

(defun lognot-integer-value (val)
  (declare (xargs :guard (valuep val)))
  (declare (xargs :guard (value-integerp val)))
  (let ((__function__ 'lognot-integer-value))
    (declare (ignorable __function__))
    (if (equal (value-integer->get val) 0)
        (value-sint 1)
      (value-sint 0))))

Theorem: valuep-of-lognot-integer-value

(defthm valuep-of-lognot-integer-value
  (b* ((resval (lognot-integer-value val)))
    (valuep resval))
  :rule-classes :rewrite)

Theorem: lognot-integer-value-of-value-fix-val

(defthm lognot-integer-value-of-value-fix-val
  (equal (lognot-integer-value (value-fix val))
         (lognot-integer-value val)))

Theorem: lognot-integer-value-value-equiv-congruence-on-val

(defthm lognot-integer-value-value-equiv-congruence-on-val
  (implies (value-equiv val val-equiv)
           (equal (lognot-integer-value val)
                  (lognot-integer-value val-equiv)))
  :rule-classes :congruence)