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