fact: Fixpoint make_clause (lit: IntMap.ptrie (Annot.t bool)) (ann: LitSet.t) (l: list literal) : Annot.t clause_kind := match l with | nil => Annot.mk EMPTY ann | e::l => match find_lit e lit with | None => reduce lit ann e l | Some b => if Annot.elt b then Annot.mk TRUE LitSet.empty else make_clause lit (LitSet.union (Annot.deps b) ann) l end end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause