added depth and width (optional) parameters to auto_tac_new

[helm.git] / helm / ocaml / tactics / autoTactic.ml

diff --git a/helm/ocaml/tactics/autoTactic.ml b/helm/ocaml/tactics/autoTactic.ml
index bf9ade7b113daecd60b171436f045ec0e55b7c4b..7f6be1d9bb2480be5a1b1c5e6231770d368472e0 100644 (file)
--- a/helm/ocaml/tactics/autoTactic.ml
+++ b/helm/ocaml/tactics/autoTactic.ml
@@ -500,8 +500,12 @@ and auto_new_aux dbd width already_seen_goals = function
              end
 ;; 
 
+let default_depth = 5
+let default_width = 3
 
-let auto_tac_new  ~(dbd:Mysql.dbd) =
+let auto_tac_new ?(depth=default_depth) ?(width=default_width) ~(dbd:Mysql.dbd)
+  ()
+=
   let auto_tac dbd (proof,goal) =
   Hashtbl.clear inspected_goals;
   debug_print "Entro in Auto";