fact: Definition run_thy_prover (st: state) (g: option HFormula) := let cl := generate_conflict_clause st g in match thy_prover (hconsmap st) cl with | None => Fail HasModel | Some (h',cl') => match augment_with_clause cl' (set_hmap h' st) with | Success (h',d) => Success (h',cl'::nil,d) | Progress st' => ProverT st' g | Fail f => Fail f end end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause