fact: Definition check_extract (bs bsres: list _lit) (i j: N) : bool := if (N.ltb (N.of_nat (length bs)) j) then false else if (forallb2 eq_carry_lit (lit_to_carry (extract_lit bs (nat_of_N i) (nat_of_N j))) bsres) then true else false.
imports: Int63 PArray SMT_classes ZArith Misc State SMT_terms BVList Psatz Bool List BoolEq NZParity Nnat BinPos BinNat Pnat Init.Peano ProofIrrelevance