fact: Definition normalise_watched_clause (diff_watched: option (Annot.t literal)) (lit : IntMap.ptrie (Annot.t bool)) (ann : LitSet.t) (cl : watched_clause) := match diff_watched with | Some l => shorten_clause l lit ann cl | None => match reduce_lits lit ann (watch1 cl :: watch2 cl :: unwatched cl) with | None => Annot.mk_elt TRUE | Some l => Annot.mk (no_dup_clause (Annot.elt l)) (Annot.deps l) end end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause