		Search-engine friendly clone of the ACL2 documentation.

Implementation-environments

Ienv->bool-bit-size

Number of bits of _Bool objects.

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

Definitions and Theorems

Function: ienv->bool-bit-size

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

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

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

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

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

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

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