X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2FautoTypes.ml;h=5a84c2c2ba73bab691fdd39cc606ebfa718346a9;hb=2951babfd31047ac057714130157da2bc36e906e;hp=17005b06d40d7e4ae06710a51a9f0ad3a1474dd7;hpb=be87825f491f5eff5f02ee78dd23f34fc0e46e71;p=helm.git

diff --git a/components/tactics/autoTypes.ml b/components/tactics/autoTypes.ml
index 17005b06d..5a84c2c2b 100644
--- a/components/tactics/autoTypes.ml
+++ b/components/tactics/autoTypes.ml
@@ -27,14 +27,22 @@ type flags = {
   maxwidth: int;
   maxdepth: 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;timeout=Unix.gettimeofday() +.
-  3.0;use_paramod=true;use_only_paramod=false;dont_cache_failures=false}
+  {maxwidth=3;
+   maxdepth=3;
+   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 *)