Size of signed and unsigned
(short-bits) → short-bits
Function:
(defun short-bits nil (declare (xargs :guard t)) 16)
Theorem:
(defthm posp-of-short-bits (b* ((short-bits (short-bits))) (posp short-bits)) :rule-classes :type-prescription)
Theorem:
(defthm short-bits-multiple-of-char-bits (integerp (/ (short-bits) (char-bits))) :rule-classes :type-prescription)
Theorem:
(defthm short-bits-bound (b* ((?short-bits (short-bits))) (>= short-bits 16)) :rule-classes :linear)