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