The (
(int-format-16tcnt) → format
This is the simplest and smallest format for
Function:
(defun int-format-16tcnt nil (declare (xargs :guard t)) (let ((__function__ 'int-format-16tcnt)) (declare (ignorable __function__)) (integer-format-inc-sign-tcnpnt 16)))
Theorem:
(defthm integer-formatp-of-int-format-16tcnt (b* ((format (int-format-16tcnt))) (integer-formatp format)) :rule-classes :rewrite)
Theorem:
(defthm integer-format-int-wfp-of-int-format-16tcnt (integer-format-int-wfp (int-format-16tcnt) (uchar-format-8) (short-format-16tcnt)))
Theorem:
(defthm integer-format->size-of-int-format-16tcnt (equal (integer-format->size (int-format-16tcnt)) 16))
Theorem:
(defthm uinteger-format->max-of-int-format-16tcnt (equal (uinteger-format->max (uinteger+sinteger-format->unsigned (integer-format->pair (int-format-16tcnt)))) 65535))
Theorem:
(defthm sinteger-format->max-of-int-format-16tcnt (equal (sinteger-format->max (uinteger+sinteger-format->signed (integer-format->pair (int-format-16tcnt)))) 32767))
Theorem:
(defthm sinteger-format->min-of-int-format-16tcnt (equal (sinteger-format->min (uinteger+sinteger-format->signed (integer-format->pair (int-format-16tcnt)))) -32768))