fact: Fixpoint cons_lit (l:Lit.t) (cl:clause) := match cl with | nil => l::nil | l1::cl' => if pol l1 || negb (pol l) then l::cl else l1 ::(cons_lit l cl') end.
imports: ZArith List Bool Lia Morphisms Cdcl.Syntax Cdcl.Lib Cdcl.Lit Cdcl.Clause