fact: Definition bv_extr (i n0 n1: N) a : bitvector := if (N.ltb n1 (n0 + i)) then mk_list_false (nat_of_N n0) else extract a (nat_of_N i) (nat_of_N (n0 + i)).
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance