Theorems about ubyte3 and IHS functions.
Theorem:
(defthm ubyte3p-of-loghead-of-3 (ubyte3p (loghead 3 x)))
Theorem:
(defthm loghead-of-3-when-ubyte3p (implies (ubyte3p x) (equal (loghead 3 x) x)))
Theorem:
(defthm logtail-of-3-when-ubyte3p (implies (ubyte3p x) (equal (logtail 3 x) 0)))