From 755dd6ce7140e849fcd44c1c4ce2e265776b2c6a Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 4 Nov 2014 21:54:15 +0100 Subject: Writing the raw introduction tactic in the new monad. --- plugins/omega/coq_omega.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/omega') diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index 847fda8cd..b35ef1772 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1675,7 +1675,7 @@ let onClearedName id tac = (Proofview.V82.tactic (tclTRY (clear [id]))) (Proofview.Goal.nf_enter begin fun gl -> let id = Tacmach.New.of_old (fresh_id [] id) gl in - Tacticals.New.tclTHEN (Proofview.V82.tactic (introduction id)) (tac id) + Tacticals.New.tclTHEN (introduction id) (tac id) end) let onClearedName2 id tac = @@ -1684,7 +1684,7 @@ let onClearedName2 id tac = (Proofview.Goal.nf_enter begin fun gl -> let id1 = Tacmach.New.of_old (fresh_id [] (add_suffix id "_left")) gl in let id2 = Tacmach.New.of_old (fresh_id [] (add_suffix id "_right")) gl in - Tacticals.New.tclTHENLIST [ Proofview.V82.tactic (introduction id1); Proofview.V82.tactic (introduction id2); tac id1 id2 ] + Tacticals.New.tclTHENLIST [ introduction id1; introduction id2; tac id1 id2 ] end) let destructure_hyps = -- cgit v1.2.3