From 1e7f26974e12e7cc2517656dc978bb67bc15559f Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Fri, 22 Oct 2004 12:53:44 +0000 Subject: [PATCH] temporary: for the moment we need both MQI handle and DBI handle --- helm/gTopLevel/proofEngine.ml | 2 +- helm/gTopLevel/proofEngine.mli | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/helm/gTopLevel/proofEngine.ml b/helm/gTopLevel/proofEngine.ml index ab8d4327a..b8573da89 100644 --- a/helm/gTopLevel/proofEngine.ml +++ b/helm/gTopLevel/proofEngine.ml @@ -227,7 +227,7 @@ let fold_simpl term = let elim_type term = apply_tactic (EliminationTactics.elim_type_tac ~term) let ring () = apply_tactic Ring.ring_tac let fourier () = apply_tactic FourierR.fourier_tac -let auto mqi_handle () = apply_tactic (VariousTactics.auto_tac mqi_handle) +let auto dbh () = apply_tactic (VariousTactics.auto_tac ~dbh) let rewrite_simpl term = apply_tactic (EqualityTactics.rewrite_simpl_tac ~term) let rewrite_back_simpl term = apply_tactic (EqualityTactics.rewrite_back_simpl_tac ~term) diff --git a/helm/gTopLevel/proofEngine.mli b/helm/gTopLevel/proofEngine.mli index 58a9a3695..3e058cfcf 100644 --- a/helm/gTopLevel/proofEngine.mli +++ b/helm/gTopLevel/proofEngine.mli @@ -71,7 +71,8 @@ val fourier : unit -> unit val rewrite_simpl : Cic.term -> unit val rewrite_back_simpl : Cic.term -> unit val replace : goal_input:Cic.term -> input:Cic.term -> unit -val auto : MQIConn.handle -> unit -> unit +(* val auto : MQIConn.handle -> unit -> unit *) +val auto : Dbi.connection -> unit -> unit val reflexivity : unit -> unit val symmetry : unit -> unit -- 2.39.2