The ACL2 integer value of
This is the size, in bits, of
(possibly
Function:
(defun ienv->char-size (ienv) (declare (xargs :guard (ienvp ienv))) (uchar-format->size (char+short+int+long+llong+bool-format->uchar (ienv->char+short+int+long+llong+bool-format ienv))))
Theorem:
(defthm posp-of-ienv->char-size (b* ((size (ienv->char-size ienv))) (posp size)) :rule-classes :rewrite)
Theorem:
(defthm ienv->char-size-type-prescription (b* ((?size (ienv->char-size ienv))) (and (posp size) (> size 1))) :rule-classes :type-prescription)
Theorem:
(defthm ienv->char-size-lower-bound (b* ((?size (ienv->char-size ienv))) (>= size 8)) :rule-classes :linear)
Theorem:
(defthm ienv->char-size-of-ienv-fix-ienv (equal (ienv->char-size (ienv-fix ienv)) (ienv->char-size ienv)))
Theorem:
(defthm ienv->char-size-ienv-equiv-congruence-on-ienv (implies (ienv-equiv ienv ienv-equiv) (equal (ienv->char-size ienv) (ienv->char-size ienv-equiv))) :rule-classes :congruence)