Theorems about ubyte32 and IHS functions.
Theorem:
(defthm ubyte32p-of-loghead-of-32 (ubyte32p (loghead 32 x)))
Theorem:
(defthm loghead-of-32-when-ubyte32p (implies (ubyte32p x) (equal (loghead 32 x) x)))
Theorem:
(defthm logtail-of-32-when-ubyte32p (implies (ubyte32p x) (equal (logtail 32 x) 0)))