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