fact: Definition prover_intro (st: state) (g:option HFormula) := match g with | None => Fail HasModel | Some g => match intro_state st g.(elt) g with | Success (h,d) => Success (h,nil,d) | Progress (st',g') => 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