Maximum mathematical integer value of type
(schar-max) → val
Given the assumptions explained in ienv, this is
We keep this nullary function closed for more abstraction.
Function:
(defun schar-max nil (declare (xargs :guard t)) (let ((__function__ 'schar-max)) (declare (ignorable __function__)) 127))
Theorem:
(defthm natp-of-schar-max (b* ((val (schar-max))) (natp val)) :rule-classes :rewrite)