elim -> elim_intros (no simpl)

[helm.git] / helm / matita / matitaEngine.ml

diff --git a/helm/matita/matitaEngine.ml b/helm/matita/matitaEngine.ml
index 437fed32db9ee9f749c3e7c688cccb15761e3669..c5d36ee48359c9354b4896a3b6311759a8ed3716 100644 (file)
--- a/helm/matita/matitaEngine.ml
+++ b/helm/matita/matitaEngine.ml
@@ -40,7 +40,8 @@ let tactic_of_ast = function
   | TacticAst.Cut (_, term) -> Tactics.cut term
   | TacticAst.Elim (_, term, _) ->
       (* TODO Zack implement "using" argument *)
-      Tactics.elim_intros_simpl term
+      (* old: Tactics.elim_intros_simpl term *)
+      Tactics.elim_intros term
   | TacticAst.ElimType (_, term) -> Tactics.elim_type term
   | TacticAst.Replace (_, what, with_what) -> Tactics.replace ~what ~with_what
   | TacticAst.Auto (_,num) ->