Theorems about ubyte64 and IHS functions.
Theorem:
(defthm ubyte64p-of-loghead-of-64 (ubyte64p (loghead 64 x)))
Theorem:
(defthm loghead-of-64-when-ubyte64p (implies (ubyte64p x) (equal (loghead 64 x) x)))
Theorem:
(defthm logtail-of-64-when-ubyte64p (implies (ubyte64p x) (equal (logtail 64 x) 0)))