Lemmas about logextu from the logops-lemmas book.
Theorem:
(defthm logextu-0 (implies (logextu-guard 0 ext-size i) (equal (logextu 0 ext-size i) 0)))
Theorem:
(defthm logextu-as-loghead (implies (and (logextu-guard final-size ext-size i) (<= final-size ext-size)) (equal (loghead final-size (logext ext-size i)) (loghead final-size i))))
Theorem:
(defthm loghead-logextu (implies (and (<= ext-size final-size) (<= size ext-size) (logextu-guard final-size ext-size i) (force (integerp size)) (force (>= size 0))) (equal (loghead size (logextu final-size ext-size i)) (loghead size i))))