X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FautoTypes.ml;h=5a84c2c2ba73bab691fdd39cc606ebfa718346a9;hb=3f676ab6acafa32514a44bc84d287f44dbc5389e;hp=93205c8362f5289957ce06f8d3973bd844c69a42;hpb=572417ec66fd4ba7482aeefa062f509914b4729b;p=helm.git

diff --git a/helm/software/components/tactics/autoTypes.ml b/helm/software/components/tactics/autoTypes.ml
index 93205c836..5a84c2c2b 100644
--- a/helm/software/components/tactics/autoTypes.ml
+++ b/helm/software/components/tactics/autoTypes.ml
@@ -27,8 +27,10 @@ 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;
 }
 
@@ -36,8 +38,10 @@ let default_flags _ =
   {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}
 ;;