fact: Fixpoint normalise (cl: clause): option clause := match cl with | nil => Some nil | l::cl' => match normalise cl' with | None => None | Some cl' => match get_polarity_rec (Lit.var l) cl' with | None => Some (l::cl') | Some(b,_) => if Lit.eq_dec (Lit.make (negb b) (Lit.var l)) l then None else Some cl' end end end.
imports: ZArith List Bool Lia Morphisms Cdcl.Syntax Cdcl.Lib Cdcl.Lit Cdcl.Clause