Maximum ACL2 integer value of type
(sllong-max) → sllong-max
Function:
(defun sllong-max nil (declare (xargs :guard t)) (let ((__function__ 'sllong-max)) (declare (ignorable __function__)) (1- (expt 2 (1- (llong-bits))))))
Theorem:
(defthm integerp-of-sllong-max (b* ((sllong-max (sllong-max))) (integerp sllong-max)) :rule-classes :type-prescription)
Theorem:
(defthm sllong-max-bound (>= (sllong-max) 9223372036854775807) :rule-classes :linear)