auto rewritten with only one tail recursive function.

[helm.git] / components / tactics / auto.mli

diff --git a/components/tactics/auto.mli b/components/tactics/auto.mli
index 5883f0bf2ac72d0ff024157f12bc428729246882..f0bc752f670fe624e7be58be3fae4a7d6e190c69 100644 (file)
--- a/components/tactics/auto.mli
+++ b/components/tactics/auto.mli
@@ -24,23 +24,31 @@
  *)
 
 (* stops at the first solution *)
-val auto: 
-  HMysql.dbd ->
-  AutoCache.cache ->
-  Cic.context ->
-  Cic.metasenv ->
-  ProofEngineTypes.goal list -> (* goals in AND *)
-  AutoTypes.flags ->
-    (Cic.substitution * Cic.metasenv) option * AutoCache.cache
+val auto_tac:
+  dbd:HMysql.dbd -> 
+  params:(string * string) list -> 
+  universe:Universe.universe ->
+  ProofEngineTypes.tactic
 
-val auto_all_solutions: 
-  HMysql.dbd ->
-  AutoCache.cache ->
-  Cic.context ->
-  Cic.metasenv ->
-  ProofEngineTypes.goal list ->
-  AutoTypes.flags ->
-    (Cic.substitution * Cic.metasenv) list * AutoCache.cache
+val applyS_tac:
+  dbd:HMysql.dbd -> 
+  term: Cic.term -> 
+  params:(string * string) list ->
+  universe:Universe.universe ->
+  ProofEngineTypes.tactic
 
-val applyS_tac: dbd:HMysql.dbd -> term: Cic.term -> ProofEngineTypes.tactic
+val demodulate_tac : 
+  dbd:HMysql.dbd -> 
+  universe:Universe.universe ->
+  ProofEngineTypes.tactic
 
+type auto_status = 
+  Cic.context * (Cic.term * (int * Cic.term) list) list * Cic.term list *
+  Cic.term list
+val get_auto_status : unit -> auto_status
+val pause: bool -> unit
+val step : unit -> unit
+val give_hint : int -> unit
+(*
+val cic2grafite : Cic.context -> Cic.metasenv -> Cic.term -> string
+*)