fact: Definition augment_cnf (is_classic: bool) (h: literal) (st: state) := let f := form_of_literal h in let '(cp,cm,ar,acc) := (cnf_of_literal h) is_classic (fst (defs st)) (snd (defs st)) (arrows st) nil f.(elt) f in fold_update insert_fresh_watched_clause acc (insert_defs (cp,cm) ar st).
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause