diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-05-28 17:02:46 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-05-28 17:02:46 +0200 |
| commit | b7d58843654963754593b0c9e44c0a5b7b7af16e (patch) | |
| tree | 712844638f82eee8fd8cafd1a21da390d4e5b3df /plugins/funind | |
| parent | 81535edc4b21015bd63d23e57ca9d707b4b71f6b (diff) | |
Tactics.introduction: remove dangerous option ~check
In locally nameless mode (proof mode) names in the context *must*
be distinct otherwise the term representation makes no sense.
Diffstat (limited to 'plugins/funind')
| -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 83fe1fc2f..533694864 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -598,7 +598,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 (fun id -> Proofview.V82.of_tactic (introduction ~check:false id)) dyn_infos.rec_hyps; + tclMAP (fun id -> Proofview.V82.of_tactic (introduction id)) dyn_infos.rec_hyps; observe_tac "after_introduction" (fun g' -> (* We get infos on the equations introduced*) let new_term_value_eq = pf_unsafe_type_of g' (mkVar heq_id) in |