		Search-engine friendly clone of the ACL2 documentation.

Integer-operations

Long-xor

Bitwise exclusive disjunction ^ on longs [JLS14:4.2.2] [JLS14:15.22.1].

Signature
(long-xor operand-left operand-right) → result
Arguments: operand-left — Guard (long-valuep operand-left).; operand-right — Guard (long-valuep operand-right).
Returns: result — Type (long-valuep result).

Definitions and Theorems

Function: long-xor

(defun long-xor (operand-left operand-right)
  (declare (xargs :guard (and (long-valuep operand-left)
                              (long-valuep operand-right))))
  (b* ((x (long-value->int operand-left))
       (y (long-value->int operand-right)))
    (long-value (logext 64 (logxor x y)))))

Theorem: long-valuep-of-long-xor

(defthm long-valuep-of-long-xor
  (b* ((result (long-xor operand-left operand-right)))
    (long-valuep result))
  :rule-classes :rewrite)

Theorem: long-xor-commutative

(defthm long-xor-commutative
  (equal (long-xor x y) (long-xor y x)))

Theorem: long-xor-of-long-value-fix-operand-left

(defthm long-xor-of-long-value-fix-operand-left
  (equal (long-xor (long-value-fix operand-left)
                   operand-right)
         (long-xor operand-left operand-right)))

Theorem: long-xor-long-value-equiv-congruence-on-operand-left

(defthm long-xor-long-value-equiv-congruence-on-operand-left
  (implies (long-value-equiv operand-left operand-left-equiv)
           (equal (long-xor operand-left operand-right)
                  (long-xor operand-left-equiv operand-right)))
  :rule-classes :congruence)

Theorem: long-xor-of-long-value-fix-operand-right

(defthm long-xor-of-long-value-fix-operand-right
  (equal (long-xor operand-left
                   (long-value-fix operand-right))
         (long-xor operand-left operand-right)))

Theorem: long-xor-long-value-equiv-congruence-on-operand-right

(defthm long-xor-long-value-equiv-congruence-on-operand-right
  (implies (long-value-equiv operand-right operand-right-equiv)
           (equal (long-xor operand-left operand-right)
                  (long-xor operand-left operand-right-equiv)))
  :rule-classes :congruence)