From: Andrea Asperti Date: Tue, 24 May 2005 08:33:06 +0000 (+0000) Subject: Added a new tactic elim_intros (without simpl of the new goal). X-Git-Tag: single_binding~19 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6a07fbdd857a5e2aeb291af22888fbe6282562a6;p=helm.git 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 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