X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Ftactics%2FautoTypes.mli;h=306c42daa75c22c73af7b52a399def3cfac19b67;hb=refs%2Ftags%2F0.4.95%407852;hp=c580bff3955849162e35785a6d0a77c16e339efb;hpb=61acdea2419b3889096fd1e41275062b78253af0;p=helm.git

diff --git a/components/tactics/autoTypes.mli b/components/tactics/autoTypes.mli
index c580bff39..306c42daa 100644
--- a/components/tactics/autoTypes.mli
+++ b/components/tactics/autoTypes.mli
@@ -23,40 +23,26 @@
  * http://cs.unibo.it/helm/.
  *)
 
-type universe
-val empty_universe:universe
-val get_candidates: universe -> Cic.term -> Cic.term list
-val universe_of_goals: 
-  HMysql.dbd -> ProofEngineTypes.proof -> ProofEngineTypes.goal list ->
-    universe -> universe
-val universe_of_context: Cic.context -> Cic.metasenv -> universe -> universe
-
-type cache
-type cache_key = Cic.term
-type cache_elem = 
-  | Failed_in of int
-  | Succeded of Cic.term
-  | UnderInspection
-  | Notfound
-val cache_examine: cache -> cache_key -> cache_elem
-val cache_add_failure: cache -> cache_key -> int -> cache 
-val cache_add_success: cache -> cache_key -> Cic.term -> cache
-val cache_add_underinspection: cache -> cache_key -> int -> cache
-val cache_empty: cache
-
 type flags = {
   maxwidth: int;
+  maxsize: int;
   maxdepth: int;
+  maxgoalsizefactor : int;
   timeout: float;
+  use_library: bool;
+  use_paramod: bool;
+  use_only_paramod : bool;
+  close_more : bool;
+  dont_cache_failures: bool
 }
 
-val default_flags : flags
+val default_flags : unit -> flags
 
 (* (metasenv, subst, (metano,depth)list *)
 type sort = P | T;;
 type and_elem =  
-  Cic.metasenv * Cic.substitution * (ProofEngineTypes.goal * int * sort) list
+  (int * Cic.term * Cic.term) * Cic.metasenv * Cic.substitution * (ProofEngineTypes.goal * int * sort) list
 type auto_result = 
   | Fail of string
-  | Success of Cic.metasenv * Cic.substitution * and_elem list
+  | Success of (int * Cic.term * Cic.term) * Cic.metasenv * Cic.substitution * and_elem list