Theorems about sbyte64 and IHS functions.
Theorem:
(defthm sbyte64p-of-logext-of-64 (sbyte64p (logext 64 x)))
Theorem:
(defthm logext-of-64-when-sbyte64p (implies (sbyte64p x) (equal (logext 64 x) x)))
Theorem:
(defthm logtail-of-64-when-sbyte64p (implies (sbyte64p x) (equal (logtail 64 x) (if (< x 0) -1 0))))