X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Ftactics%2FautoTypes.ml;h=b0833c947e03f61fc75a20a12c96081c173a0ac7;hb=a1c4c601850c71e094a4703af00f02ca2026d8ed;hp=5a84c2c2ba73bab691fdd39cc606ebfa718346a9;hpb=c30b48dc423ef9c25473d7b5f211eac018f2f0fa;p=helm.git

diff --git a/components/tactics/autoTypes.ml b/components/tactics/autoTypes.ml
index 5a84c2c2b..b0833c947 100644
--- a/components/tactics/autoTypes.ml
+++ b/components/tactics/autoTypes.ml
@@ -25,6 +25,7 @@
 
 type flags = {
   maxwidth: int;
+  maxsize: int;
   maxdepth: int;
   timeout: float;
   use_library: bool;
@@ -37,6 +38,7 @@ type flags = {
 let default_flags _ =
   {maxwidth=3;
    maxdepth=3;
+   maxsize = 6;
    timeout=Unix.gettimeofday() +.3.0;
    use_library=false;
    use_paramod=true;
@@ -47,8 +49,8 @@ let default_flags _ =
 
 (* (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