		Search-engine friendly clone of the ACL2 documentation.

Implementation-environments

Slong-max

Maximum mathematical integer value of type signed long.

Signature
(slong-max ienv) → val
Arguments: ienv — Guard (ienvp ienv).
Returns: val — Type (natp val).

This depends on the implementation environment.

Definitions and Theorems

Function: slong-max

(defun slong-max (ienv)
  (declare (xargs :guard (ienvp ienv)))
  (let ((__function__ 'slong-max))
    (declare (ignorable __function__))
    (1- (expt 2 (1- (* 8 (ienv->long-bytes ienv)))))))

Theorem: natp-of-slong-max

(defthm natp-of-slong-max
  (b* ((val (slong-max ienv))) (natp val))
  :rule-classes (:rewrite :type-prescription))

Theorem: slong-max-of-ienv-fix-ienv

(defthm slong-max-of-ienv-fix-ienv
  (equal (slong-max (ienv-fix ienv))
         (slong-max ienv)))

Theorem: slong-max-ienv-equiv-congruence-on-ienv

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