		Search-engine friendly clone of the ACL2 documentation.

Implementation-environments

Ienv->schar-max

The ACL2 integer value of SCHAR_MAX [C17:5.2.4.2.1/1].

Signature
(ienv->schar-max ienv) → max
Arguments: ienv — Guard (ienvp ienv).
Returns: max — Type (posp max).

See schar-format->max.

Definitions and Theorems

Function: ienv->schar-max

(defun ienv->schar-max (ienv)
  (declare (xargs :guard (ienvp ienv)))
  (let ((__function__ 'ienv->schar-max))
    (declare (ignorable __function__))
    (schar-format->max
         (char+short+int+long+llong-format->schar
              (ienv->char+short+int+long+llong-format ienv))
         (char+short+int+long+llong-format->uchar
              (ienv->char+short+int+long+llong-format ienv)))))

Theorem: posp-of-ienv->schar-max

(defthm posp-of-ienv->schar-max
  (b* ((max (ienv->schar-max ienv)))
    (posp max))
  :rule-classes :rewrite)

Theorem: ienv->schar-max-type-prescription

(defthm ienv->schar-max-type-prescription
  (b* ((common-lisp::?max (ienv->schar-max ienv)))
    (and (posp max) (> max 1)))
  :rule-classes :type-prescription)

Theorem: ienv->schar-max-lower-bound

(defthm ienv->schar-max-lower-bound
  (b* ((common-lisp::?max (ienv->schar-max ienv)))
    (>= max 127))
  :rule-classes :linear)

Theorem: ienv->schar-max-of-ienv-fix-ienv

(defthm ienv->schar-max-of-ienv-fix-ienv
  (equal (ienv->schar-max (ienv-fix ienv))
         (ienv->schar-max ienv)))

Theorem: ienv->schar-max-ienv-equiv-congruence-on-ienv

(defthm ienv->schar-max-ienv-equiv-congruence-on-ienv
  (implies (ienv-equiv ienv ienv-equiv)
           (equal (ienv->schar-max ienv)
                  (ienv->schar-max ienv-equiv)))
  :rule-classes :congruence)