Theorems about ubyte5 and IHS functions.
Theorem:
(defthm ubyte5p-of-loghead-of-5 (ubyte5p (loghead 5 x)))
Theorem:
(defthm loghead-of-5-when-ubyte5p (implies (ubyte5p x) (equal (loghead 5 x) x)))
Theorem:
(defthm logtail-of-5-when-ubyte5p (implies (ubyte5p x) (equal (logtail 5 x) 0)))