A fixtype of true lists of (unsigned 4-bit) nibbles.
We use fty::defbytelist to generate this fixtype, along with the recognizer, fixer, and equivalence.
Theorem:
(defthm nibble-listp-forward-unsigned-byte-listp (implies (nibble-listp x) (unsigned-byte-listp 4 x)) :rule-classes :forward-chaining)
Theorem:
(defthm nibble-listp-rewrite-unsigned-byte-listp (equal (nibble-listp x) (unsigned-byte-listp 4 x)))
Theorem:
(defthm unsigned-byte-listp-rewrite-nibble-listp (equal (unsigned-byte-listp 4 x) (nibble-listp x)))
Theorem:
(defthm true-listp-when-nibble-listp-rewrite (implies (nibble-listp x) (true-listp x)))
Theorem:
(defthm nibble-list-fix-of-take (implies (<= (nfix n) (len x)) (equal (nibble-list-fix (take n x)) (take n (nibble-list-fix x)))))
Theorem:
(defthm nibble-list-fix-of-rcons (equal (nibble-list-fix (rcons a x)) (rcons (nibble-fix a) (nibble-list-fix x))))