diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-11-04 21:54:15 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-11-05 00:11:17 +0100 |
commit | 755dd6ce7140e849fcd44c1c4ce2e265776b2c6a (patch) | |
tree | 46a5205dffd0f789689093da231023cbc19a3eb1 /plugins/omega | |
parent | 740928a69e22ac1c89c9258f54d56e273b32521c (diff) |
Writing the raw introduction tactic in the new monad.
Diffstat (limited to 'plugins/omega')
-rw-r--r-- | plugins/omega/coq_omega.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |