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