From 85ed2504568ee06207546b1ac0660e9c559bca22 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 2 Dec 2013 01:15:54 +0100 Subject: Writing [cut] tactic using the new monad. --- plugins/firstorder/rules.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'plugins/firstorder/rules.ml') diff --git a/plugins/firstorder/rules.ml b/plugins/firstorder/rules.ml index 99e03cdbe..6d9af2bbf 100644 --- a/plugins/firstorder/rules.ml +++ b/plugins/firstorder/rules.ml @@ -144,12 +144,12 @@ let ll_arrow_tac a b c backtrack id continue seq= mkApp ((constr_of_global id), [|mkLambda (Anonymous,(lift 1 a),(mkRel 2))|])) in tclORELSE - (tclTHENS (cut c) + (tclTHENS (Proofview.V82.of_tactic (cut c)) [tclTHENLIST [Proofview.V82.of_tactic introf; clear_global id; wrap 1 false continue seq]; - tclTHENS (cut cc) + tclTHENS (Proofview.V82.of_tactic (cut cc)) [exact_no_check (constr_of_global id); tclTHENLIST [generalize [d]; @@ -184,7 +184,7 @@ let left_exists_tac ind backtrack id continue seq gls= let ll_forall_tac prod backtrack id continue seq= tclORELSE - (tclTHENS (cut prod) + (tclTHENS (Proofview.V82.of_tactic (cut prod)) [tclTHENLIST [Proofview.V82.of_tactic intro; (fun gls-> -- cgit v1.2.3