Theorems about ubyte8 and IHS functions.
Theorem:
(defthm ubyte8p-of-loghead-of-8 (ubyte8p (loghead 8 x)))
Theorem:
(defthm loghead-of-8-when-ubyte8p (implies (ubyte8p x) (equal (loghead 8 x) x)))
Theorem:
(defthm logtail-of-8-when-ubyte8p (implies (ubyte8p x) (equal (logtail 8 x) 0)))