X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2FautoTypes.ml;h=45f981be1ffebe1d6403921a42796ddb7efc5954;hb=249d11773d32add20d665c4f8521b7380e4fec0a;hp=93205c8362f5289957ce06f8d3973bd844c69a42;hpb=c049b167b6a59e7a1e755c0f5a4bc00ce0826c48;p=helm.git

diff --git a/components/tactics/autoTypes.ml b/components/tactics/autoTypes.ml
index 93205c836..45f981be1 100644
--- a/components/tactics/autoTypes.ml
+++ b/components/tactics/autoTypes.ml
@@ -25,26 +25,34 @@
 
 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;
 }
 
 let default_flags _ =
   {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}
 ;;
 
 (* (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