fact: Definition augment_with_clause (cl: list literal) (st:state) : dresult := let (fr,st') := get_fresh_clause_id st in insert_normalised_clause fr (make_clause (units st') LitSet.empty cl) st'.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause