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