		Search-engine friendly clone of the ACL2 documentation.

Operations

Bitnot-value

Apply ~ to a value [C:6.5.3.3/1] [C:6.5.3.3/4].

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

It is an error if the value is not integer. If it is integer, we promote it and then we flip its bits.

Definitions and Theorems

Function: bitnot-value

(defun bitnot-value (val)
  (declare (xargs :guard (valuep val)))
  (let ((__function__ 'bitnot-value))
    (declare (ignorable __function__))
    (if (value-integerp val)
        (bitnot-integer-value (promote-value val))
      (error (list :bitnot-mistype
                   :required :integer
                   :supplied (value-fix val))))))

Theorem: value-resultp-of-bitnot-value

(defthm value-resultp-of-bitnot-value
  (b* ((resval (bitnot-value val)))
    (value-resultp resval))
  :rule-classes :rewrite)

Theorem: bitnot-value-of-value-fix-val

(defthm bitnot-value-of-value-fix-val
  (equal (bitnot-value (value-fix val))
         (bitnot-value val)))

Theorem: bitnot-value-value-equiv-congruence-on-val

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