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