fact: Definition shorten_clause (l: Annot.t literal) (lit : IntMap.ptrie (Annot.t bool)) (ann : LitSet.t) (cl : watched_clause) := if opp_literal (Annot.elt l) (watch1 cl) then reduce lit (LitSet.union (Annot.deps l) ann) (watch2 cl) (unwatched cl) else if opp_literal (Annot.elt l) (watch2 cl) then reduce lit (LitSet.union (Annot.deps l) ann) (watch1 cl) (unwatched cl) else Annot.mk TRUE LitSet.empty.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause