		Search-engine friendly clone of the ACL2 documentation.

Integer-operations

Int-ior

Bitwise inclusive disjunction of signed integer values.

Signature
(int-ior left-operand right-operand) → result
Arguments: left-operand — Guard (intp left-operand).; right-operand — Guard (intp right-operand).
Returns: result — Type (intp result).

Definitions and Theorems

Function: int-ior

(defun int-ior (left-operand right-operand)
  (declare (xargs :guard (and (intp left-operand)
                              (intp right-operand))))
  (b* ((size (int->size left-operand))
       (x (int->value left-operand))
       (y (int->value right-operand)))
    (make-int :size (int->size left-operand)
              :value (logext size (logior x y)))))

Theorem: intp-of-int-ior

(defthm intp-of-int-ior
  (b* ((result (int-ior left-operand right-operand)))
    (intp result))
  :rule-classes :rewrite)

Theorem: int-ior-of-int-fix-left-operand

(defthm int-ior-of-int-fix-left-operand
  (equal (int-ior (int-fix left-operand)
                  right-operand)
         (int-ior left-operand right-operand)))

Theorem: int-ior-int-equiv-congruence-on-left-operand

(defthm int-ior-int-equiv-congruence-on-left-operand
  (implies (int-equiv left-operand left-operand-equiv)
           (equal (int-ior left-operand right-operand)
                  (int-ior left-operand-equiv right-operand)))
  :rule-classes :congruence)

Theorem: int-ior-of-int-fix-right-operand

(defthm int-ior-of-int-fix-right-operand
  (equal (int-ior left-operand (int-fix right-operand))
         (int-ior left-operand right-operand)))

Theorem: int-ior-int-equiv-congruence-on-right-operand

(defthm int-ior-int-equiv-congruence-on-right-operand
  (implies (int-equiv right-operand right-operand-equiv)
           (equal (int-ior left-operand right-operand)
                  (int-ior left-operand right-operand-equiv)))
  :rule-classes :congruence)