From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Fri, 22 Oct 2004 12:53:44 +0000 (+0000)
Subject: temporary: for the moment we need both MQI handle and DBI handle
X-Git-Tag: V_0_0_10~28
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=1e7f26974e12e7cc2517656dc978bb67bc15559f;p=helm.git

temporary: for the moment we need both MQI handle and DBI handle
---

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