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