]> matita.cs.unibo.it Git - helm.git/commitdiff
...
authorEnrico Tassi <enrico.tassi@inria.fr>
Tue, 9 Jun 2009 13:15:18 +0000 (13:15 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Tue, 9 Jun 2009 13:15:18 +0000 (13:15 +0000)
helm/software/components/grafite_engine/grafiteEngine.ml

index a9e5a56b5fdd78c79efedaae3018f1c9ee20afed..1c918ac50bbb1693dc7bef890fd775994464ca91 100644 (file)
@@ -604,9 +604,9 @@ let eval_ng_tac (text, prefix_len, tac) =
            ) hyps,
           (text,prefix_len,concl))
        ) seqs)
-  | GrafiteAst.NAuto (_loc, params) ->
+  | GrafiteAst.NAuto (_loc, (l,a)) ->
       NTactics.auto_tac
-       ~params
+       ~params:(List.map (fun x -> "",0,x) l,a)
   | GrafiteAst.NCases (_loc, what, where) ->
       NTactics.cases_tac 
         ~what:(text,prefix_len,what)