Theorems about ubyte6 and IHS functions.
Theorem:
(defthm ubyte6p-of-loghead-of-6 (ubyte6p (loghead 6 x)))
Theorem:
(defthm loghead-of-6-when-ubyte6p (implies (ubyte6p x) (equal (loghead 6 x) x)))
Theorem:
(defthm logtail-of-6-when-ubyte6p (implies (ubyte6p x) (equal (logtail 6 x) 0)))