diff options
| author | Matthieu Sozeau | 2014-06-23 13:01:31 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-23 13:10:02 +0200 |
| commit | db37c9f3f32ae7a2abcd5e1a3f6239eddb5e1768 (patch) | |
| tree | 6eaead7c3cd3b61ec54295a9037a4ef568b5dedb /plugins/funind | |
| parent | 0b1507b16da38e883d63802db7c013e2c09665fd (diff) | |
Fix semantics of change p with c to typecheck c at each specific occurrence of p,
avoiding unwanted universe constraints in presence of universe polymorphic constants.
Fixing HoTT bugs # 36, 54 and 113.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/recdef.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index f141d3619c..38cbd0c533 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -668,7 +668,8 @@ let mkDestructEq : [Simple.generalize new_hyps; (fun g2 -> change_in_concl None - (pattern_occs [Locus.AllOccurrencesBut [1], expr] (pf_env g2) Evd.empty (pf_concl g2)) g2); + (fun env sigma -> + sigma, pattern_occs [Locus.AllOccurrencesBut [1], expr] (pf_env g2) Evd.empty (pf_concl g2)) g2); Proofview.V82.of_tactic (simplest_case expr)]), to_revert |