		Search-engine friendly clone of the ACL2 documentation.

Implementation-environments

Ienv->llong-bit-size

Number of bits of unsigned and signed long long objects.

Signature
(ienv->llong-bit-size ienv) → size
Arguments: ienv — Guard (ienvp ienv).
Returns: size — Type (posp size).

Definitions and Theorems

Function: ienv->llong-bit-size

(defun ienv->llong-bit-size (ienv)
  (declare (xargs :guard (ienvp ienv)))
  (integer-format->bit-size
       (char+short+int+long+llong+bool-format->llong
            (ienv->char+short+int+long+llong+bool-format ienv))))

Theorem: posp-of-ienv->llong-bit-size

(defthm posp-of-ienv->llong-bit-size
  (b* ((size (ienv->llong-bit-size ienv)))
    (posp size))
  :rule-classes :rewrite)

Theorem: ienv->llong-bit-size-type-prescription

(defthm ienv->llong-bit-size-type-prescription
  (b* ((?size (ienv->llong-bit-size ienv)))
    (and (posp size) (> size 1)))
  :rule-classes :type-prescription)

Theorem: ienv->llong-bit-size-lower-bound

(defthm ienv->llong-bit-size-lower-bound
  (b* ((?size (ienv->llong-bit-size ienv)))
    (>= size 64))
  :rule-classes :linear)

Theorem: ienv->llong-bit-size-of-ienv-fix-ienv

(defthm ienv->llong-bit-size-of-ienv-fix-ienv
  (equal (ienv->llong-bit-size (ienv-fix ienv))
         (ienv->llong-bit-size ienv)))

Theorem: ienv->llong-bit-size-ienv-equiv-congruence-on-ienv

(defthm ienv->llong-bit-size-ienv-equiv-congruence-on-ienv
  (implies (ienv-equiv ienv ienv-equiv)
           (equal (ienv->llong-bit-size ienv)
                  (ienv->llong-bit-size ienv-equiv)))
  :rule-classes :congruence)