diff options
| author | Pierre-Marie Pédrot | 2014-11-21 15:39:48 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-11-21 15:45:25 +0100 |
| commit | 9fb8cc227279deb871fd3369f86f5bba8e3bee62 (patch) | |
| tree | 7039d630a547457debe089fb0a80132fb2833d2c /plugins | |
| parent | f5d30b9c93e41f29cb1323f9874c177c051135d5 (diff) | |
Writing Tactics.keep in the new monad.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index d7344d3558..43fefc4c6c 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -1435,7 +1435,7 @@ let new_prove_with_tcc is_mes acc_inv hrec tcc_hyps eqs : tactic = (Proofview.V82.of_tactic (apply (mkVar hrec))) [ tclTHENSEQ [ - keep (tcc_hyps@eqs); + (Proofview.V82.of_tactic (keep (tcc_hyps@eqs))); (Proofview.V82.of_tactic (apply (Lazy.force acc_inv))); (fun g -> if is_mes |