X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteEngine.ml;h=1c918ac50bbb1693dc7bef890fd775994464ca91;hb=833b0c94d93d3fe66cecbf0b0f9edf1287669b75;hp=8101dd667b96572d2581108e806004b28ad8f007;hpb=11b2157bacf59cfc561c2ef6f92ee41ee2c1a006;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 8101dd667..1c918ac50 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -604,6 +604,9 @@ let eval_ng_tac (text, prefix_len, tac) =
            ) hyps,
           (text,prefix_len,concl))
        ) seqs)
+  | GrafiteAst.NAuto (_loc, (l,a)) ->
+      NTactics.auto_tac
+	~params:(List.map (fun x -> "",0,x) l,a)
   | GrafiteAst.NCases (_loc, what, where) ->
       NTactics.cases_tac 
         ~what:(text,prefix_len,what)
@@ -776,7 +779,7 @@ let rec eval_command = {ec_go = fun ~disambiguate_command opts status
               let obj_kind =
                NCicUntrusted.map_obj_kind 
                 (NCicUntrusted.apply_subst subst []) obj_kind in
-              let height = NCicUntrusted.height_of_obj_kind uri obj_kind in
+              let height = NCicTypeChecker.height_of_obj_kind uri obj_kind in
               let obj = uri,height,[],[],obj_kind in
                NCicTypeChecker.typecheck_obj obj;
                NCicLibrary.add_obj uri obj;