fact: Definition check_neg (bs br : list _lit) := let z := map (fun _ => Lit._false) bs in let nbs := map (fun l => Lit.neg l) bs in check_add nbs z br (Clit Lit._true).
imports: Int63 PArray SMT_classes ZArith Misc State SMT_terms BVList Psatz Bool List BoolEq NZParity Nnat BinPos BinNat Pnat Init.Peano ProofIrrelevance