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