X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FautoTypes.mli;h=a026a908fa659fd869d5720673fc9a534e934314;hb=750d027aedc76aac9def8885dc2bdb6ccdc049d9;hp=5014f41ce10d6eb75c60a6b2ec1a768cf5120ae0;hpb=2c40b39e14811c380e03bdd876ec1591f30da911;p=helm.git

diff --git a/helm/software/components/tactics/autoTypes.mli b/helm/software/components/tactics/autoTypes.mli
index 5014f41ce..a026a908f 100644
--- a/helm/software/components/tactics/autoTypes.mli
+++ b/helm/software/components/tactics/autoTypes.mli
@@ -25,6 +25,7 @@
 
 type flags = {
   maxwidth: int;
+  maxsize: int;
   maxdepth: int;
   timeout: float;
   use_library: bool;
@@ -39,8 +40,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