fact: Definition subclause (cl1 cl2 : list _lit) := List.forallb (fun l1 => (l1 =? Lit._false) || (l1 =? Lit.neg Lit._true) || List.existsb (fun l2 => l1 =? l2) cl2) cl1.
imports: List Bool Int63 Psatz Ring63 PArray Misc Ring