fact: Definition add_clause_old (l:literal) (clause_id: int) (cl: Annot.t watched_clause) (cls : WMap.t) := let lid := id_of_literal l in let (ln,lp) := find_clauses_p lid cls in if is_positive_literal l then IntMap.set' lid (ln,IntMap.set' clause_id cl lp) cls else IntMap.set' lid (IntMap.set' clause_id cl ln,lp) cls.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause