Theorems about ubyte12 and IHS functions.
Theorem:
(defthm ubyte12p-of-loghead-of-12 (ubyte12p (loghead 12 x)))
Theorem:
(defthm loghead-of-12-when-ubyte12p (implies (ubyte12p x) (equal (loghead 12 x) x)))
Theorem:
(defthm logtail-of-12-when-ubyte12p (implies (ubyte12p x) (equal (logtail 12 x) 0)))