Added a new tactic elim_intros (without simpl of the new goal).

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

diff --git a/helm/ocaml/tactics/primitiveTactics.ml b/helm/ocaml/tactics/primitiveTactics.ml
index d7b910fcec94bc15619728c6baaf0c21352999dd..7eddcd1640c035e9a817e73031bcd3c509bf4d6f 100644 (file)
--- a/helm/ocaml/tactics/primitiveTactics.ml
+++ b/helm/ocaml/tactics/primitiveTactics.ml
@@ -553,6 +553,11 @@ let elim_tac ~term =
   mk_tactic (elim_tac ~term)
 ;;
 
+let elim_intros_tac ~term =
+ Tacticals.then_ ~start:(elim_tac ~term)
+  ~continuation:(intros_tac ())
+;;
+
 (* The simplification is performed only on the conclusion *)
 let elim_intros_simpl_tac ~term =
  Tacticals.then_ ~start:(elim_tac ~term)