X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fgrafite_engine%2FgrafiteEngine.ml;h=ae497fc12cbdd25db29b319643cfbe444d421aa0;hb=679f6296c9a979213425104fa606809d9f1e3bad;hp=e4f70117a344bb41db8700aaa5d588d2cd3b834c;hpb=36eecd95ced29b1925913c8cfaf804c472599e66;p=helm.git

diff --git a/components/grafite_engine/grafiteEngine.ml b/components/grafite_engine/grafiteEngine.ml
index e4f70117a..ae497fc12 100644
--- a/components/grafite_engine/grafiteEngine.ml
+++ b/components/grafite_engine/grafiteEngine.ml
@@ -63,9 +63,8 @@ let tactic_of_ast ast =
   | GrafiteAst.ApplyS (_, term) ->
      Tactics.applyS ~term ~dbd:(LibraryDb.instance ())
   | GrafiteAst.Assumption _ -> Tactics.assumption
-  | GrafiteAst.Auto (_,depth,width,paramodulation,full) ->
-      AutoTactic.auto_tac ?depth ?width ?paramodulation ?full
-        ~dbd:(LibraryDb.instance ()) ()
+  | GrafiteAst.Auto (_,params) ->
+      AutoTactic.auto_tac ~params ~dbd:(LibraryDb.instance ()) 
   | GrafiteAst.Change (_, pattern, with_what) ->
      Tactics.change ~pattern with_what
   | GrafiteAst.Clear (_,id) -> Tactics.clear id