fact: Definition add_watched_clause (st : state) (id: int) (acl: Annot.t watched_clause) : state := let cl := Annot.elt acl in let w1 := watch1 cl in let w2 := watch2 cl in let mcl := clauses st in let mcl := WMap.add_clause w1 id acl mcl in let mcl := WMap.add_clause w2 id acl mcl in {| fresh_clause_id := fresh_clause_id st; hconsmap := hconsmap st; arrows := arrows st; wneg := add_wneg_lit w1 (add_wneg_lit w2 (wneg st)); defs := defs st ; units := units st; unit_stack := unit_stack st; clauses := mcl |}.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause