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