Recognizer for ubyte256.
(ubyte256p x) → yes/no
Function:
(defun ubyte256p (x) (declare (xargs :guard t)) (mbe :logic (unsigned-byte-p 256 x) :exec (and (integerp x) (<= 0 x) (< x 115792089237316195423570985008687907853269984665640564039457584007913129639936))))
Theorem:
(defthm booleanp-of-ubyte256p (b* ((yes/no (ubyte256p x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm ubyte256p-forward-unsigned-byte-p (implies (ubyte256p x) (unsigned-byte-p 256 x)) :rule-classes :forward-chaining)
Theorem:
(defthm unsigned-byte-p-rewrite-ubyte256p (equal (unsigned-byte-p 256 x) (ubyte256p x)))
Theorem:
(defthm natp-when-ubyte256p (implies (ubyte256p x) (natp x)) :rule-classes :compound-recognizer)