Lemmas about logmaskp from the logops-lemmas book.
Theorem:
(defthm logmaskp-expt-2-n-minus-1 (implies (and (force (integerp n)) (>= n 0)) (logmaskp (+ -1 (expt 2 n)))))
Theorem:
(defthm logmaskp-logmask (implies (logmask-guard n) (logmaskp (logmask n))))
Theorem:
(defthm logand-with-mask (implies (and (logmaskp mask) (equal size (integer-length mask)) (force (integerp i))) (equal (logand mask i) (loghead size i))))