X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FautoTypes.mli;h=745438462c7bad0effb096c8edae1f4f7639df78;hb=af805d8cb199ea2c532983e29b064cf9861454f4;hp=d3081b0abe9f10bb8d81f7b8cab027e881ddca7c;hpb=572417ec66fd4ba7482aeefa062f509914b4729b;p=helm.git

diff --git a/helm/software/components/tactics/autoTypes.mli b/helm/software/components/tactics/autoTypes.mli
index d3081b0ab..745438462 100644
--- a/helm/software/components/tactics/autoTypes.mli
+++ b/helm/software/components/tactics/autoTypes.mli
@@ -25,11 +25,18 @@
 
 type flags = {
   maxwidth: int;
+  maxsize: int;
   maxdepth: int;
+  maxgoalsizefactor : int;
   timeout: float;
+  use_library: bool;
   use_paramod: bool;
   use_only_paramod : bool;
-  dont_cache_failures: bool
+  close_more : bool;
+  dont_cache_failures: bool;
+  do_types: bool;
+  skip_trie_filtering: bool;
+  skip_context : bool;
 }
 
 val default_flags : unit -> flags
@@ -37,8 +44,8 @@ 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