Fixtype of true lists of signed bytes of size 2.
This is an ordinary fty::deflist.
Theorem:
(defthm sbyte2-listp-forward-signed-byte-listp (implies (sbyte2-listp x) (signed-byte-listp 2 x)) :rule-classes :forward-chaining)
Theorem:
(defthm sbyte2-listp-rewrite-signed-byte-listp (equal (sbyte2-listp x) (signed-byte-listp 2 x)))
Theorem:
(defthm signed-byte-listp-rewrite-sbyte2-listp (equal (signed-byte-listp 2 x) (sbyte2-listp x)))
Theorem:
(defthm true-listp-when-sbyte2-listp-rewrite (implies (sbyte2-listp x) (true-listp x)))
Theorem:
(defthm sbyte2-list-fix-of-take (implies (<= (nfix n) (len x)) (equal (sbyte2-list-fix (take n x)) (take n (sbyte2-list-fix x)))))
Theorem:
(defthm sbyte2-list-fix-of-rcons (equal (sbyte2-list-fix (rcons a x)) (rcons (sbyte2-fix a) (sbyte2-list-fix x))))