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

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)

diff --git a/helm/ocaml/tactics/tactics.ml b/helm/ocaml/tactics/tactics.ml
index 31364aa4487862f7f53167976c2c9f49ab61d94a..d1441aa4b37b89f6c641ca2e6832e69fd731e93f 100644 (file)
--- a/helm/ocaml/tactics/tactics.ml
+++ b/helm/ocaml/tactics/tactics.ml
@@ -37,6 +37,7 @@ let decide_equality = DiscriminationTactics.decide_equality_tac
 let decompose = EliminationTactics.decompose_tac
 let discriminate = DiscriminationTactics.discriminate_tac
 let elim_intros_simpl = PrimitiveTactics.elim_intros_simpl_tac
+let elim_intros = PrimitiveTactics.elim_intros_tac
 let elim_type = EliminationTactics.elim_type_tac
 let exact = PrimitiveTactics.exact_tac
 let exists = IntroductionTactics.exists_tac