X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FautoTypes.ml;h=874a20dccf4b366bda48cae857dbf6744a2702f6;hb=e053aaf3085a079c3125ed4666ba648a48fbb2af;hp=45f981be1ffebe1d6403921a42796ddb7efc5954;hpb=cf4088e2cabcbce9b112f1e1fd5cfd38fe16d427;p=helm.git

diff --git a/helm/software/components/tactics/autoTypes.ml b/helm/software/components/tactics/autoTypes.ml
index 45f981be1..874a20dcc 100644
--- a/helm/software/components/tactics/autoTypes.ml
+++ b/helm/software/components/tactics/autoTypes.ml
@@ -34,6 +34,7 @@ type flags = {
   use_only_paramod : bool;
   close_more : bool; 
   dont_cache_failures: bool;
+  do_types: bool;
 }
 
 let default_flags _ =
@@ -46,7 +47,9 @@ let default_flags _ =
    use_paramod=true;
    use_only_paramod=false;
    close_more=false; 
-   dont_cache_failures=false}
+   dont_cache_failures=false;
+   do_types=false;
+}
 ;;
 
 (* (metasenv, subst, (metano,depth)list *)