diff options
| author | Pierre-Marie Pédrot | 2014-11-05 00:56:29 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-11-07 18:41:22 +0100 |
| commit | c32728e7bf0ba0449b60ea49df7f92fb6b70923d (patch) | |
| tree | aa4221a0343c0095808010f15fb5dbb1a4efe237 /plugins/funind/functional_principles_proofs.ml | |
| parent | b320666d84e2f9b91d0ab6dd70f29cdb7da68818 (diff) | |
Removing the legacy intro tactic code.
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
| -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 8e6bbcefdd..d7344d3558 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -589,7 +589,7 @@ let treat_new_case ptes_infos nb_prod continue_tac term dyn_infos = Proofview.V82.of_tactic (intro_using heq_id); onLastHypId (fun heq_id -> tclTHENLIST [ (* Then the new hypothesis *) - tclMAP introduction_no_check dyn_infos.rec_hyps; + tclMAP (fun id -> Proofview.V82.of_tactic (introduction ~check:false id)) dyn_infos.rec_hyps; observe_tac "after_introduction" (fun g' -> (* We get infos on the equations introduced*) let new_term_value_eq = pf_type_of g' (mkVar heq_id) in |