From 6a07fbdd857a5e2aeb291af22888fbe6282562a6 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Tue, 24 May 2005 08:33:06 +0000 Subject: [PATCH] Added a new tactic elim_intros (without simpl of the new goal). --- helm/ocaml/tactics/primitiveTactics.ml | 5 +++++ helm/ocaml/tactics/tactics.ml | 1 + 2 files changed, 6 insertions(+) diff --git a/helm/ocaml/tactics/primitiveTactics.ml b/helm/ocaml/tactics/primitiveTactics.ml index d7b910fce..7eddcd164 100644 --- 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 31364aa44..d1441aa4b 100644 --- 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 -- 2.39.2