parameter sintax added to axiom statement

[helm.git] / helm / software / components / tactics / autoTypes.ml

diff --git a/helm/software/components/tactics/autoTypes.ml b/helm/software/components/tactics/autoTypes.ml
index 17005b06d40d7e4ae06710a51a9f0ad3a1474dd7..9bced7618e08ad290726b01089e09a2a1a28b721 100644 (file)
--- a/helm/software/components/tactics/autoTypes.ml
+++ b/helm/software/components/tactics/autoTypes.ml
@@ -25,22 +25,41 @@
 
 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;
+  do_types: bool;
+  skip_trie_filtering: bool;
+  skip_context: bool;
 }
 
 let default_flags _ =
-  {maxwidth=3;maxdepth=3;timeout=Unix.gettimeofday() +.
-  3.0;use_paramod=true;use_only_paramod=false;dont_cache_failures=false}
+  {maxwidth=3;
+   maxdepth=3;
+   maxsize = 6;
+   maxgoalsizefactor = max_int;
+   timeout=Unix.gettimeofday() +.3.0;
+   use_library=false;
+   use_paramod=true;
+   use_only_paramod=false;
+   close_more=false; 
+   dont_cache_failures=false;
+   do_types=false;
+   skip_trie_filtering=false;
+   skip_context=false;
+}
 ;;
 
 (* (metasenv, subst, (metano,depth)list *)
 type sort = P | T;;
-type and_elem =  Cic.metasenv * Cic.substitution * (int * int * sort) list
+type and_elem =  (int * Cic.term * Cic.term) * Cic.metasenv * Cic.substitution * (int * 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