fact: Fixpoint get_polarity_rec (p:HFormula) (l : clause) := match l with | nil => None | li :: l => match Lit.get_pol p li with | None => match get_polarity_rec p l with | None => None | Some (b,l) => Some (b,li::l) end | Some b => Some (b,l) end end.
imports: ZArith List Bool Lia Morphisms Cdcl.Syntax Cdcl.Lib Cdcl.Lit Cdcl.Clause