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