fact: Definition insert_normalised_clause (id: int) (cl:Annot.t clause_kind) (st: state) : dresult := match cl.(Annot.elt) with | EMPTY => Success (hconsmap st,Annot.deps cl) | UNIT l => Progress (insert_unit (Annot.set cl l) st) | TRUE => Progress st | CLAUSE cl' => Progress (add_watched_clause st id (Annot.set cl cl')) end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause