fact: Definition add_clause (l:literal) (clause_id: int) (cl: Annot.t watched_clause) (cls : WMap.t) := match l with | POS f => IntMap.insert' (fun _ '(ln,lp) => (ln,IntMap.set' clause_id cl lp)) f.(id) (IntMap.empty _, IntMap.Leaf _ clause_id cl) cls | NEG f => IntMap.insert' (fun _ '(ln,lp) => (IntMap.set' clause_id cl ln,lp)) f.(id) (IntMap.Leaf _ clause_id cl, IntMap.empty _) cls end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause