		Search-engine friendly clone of the ACL2 documentation.

Implementation-environments

Sllong-max

Maximum mathematical integer value of type signed long long.

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

This depends on the implementation environment.

Definitions and Theorems

Function: sllong-max

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

Theorem: natp-of-sllong-max

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

Theorem: sllong-max-of-ienv-fix-ienv

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

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

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