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