diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-08-14 11:17:17 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-08-14 11:17:17 +0200 |
| commit | 58a01fa1dabaf4ebd25d1386e7cc9de36c82e1eb (patch) | |
| tree | b0fb646c993224fe3419acb0315765323e183bc8 /tactics/elimschemes.ml | |
| parent | 6346bee2ad3cecf1b8da1e8cab04b524e72bc45b (diff) | |
Fix elimschemes accessing directly the universe context of inductives (fixes test-suite
file HoTT_coq_089.v).
Diffstat (limited to 'tactics/elimschemes.ml')
| -rw-r--r-- | tactics/elimschemes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/elimschemes.ml b/tactics/elimschemes.ml index f497b99d6..34658e8ea 100644 --- a/tactics/elimschemes.ml +++ b/tactics/elimschemes.ml @@ -47,7 +47,7 @@ let optimize_non_type_induction_scheme kind dep sort ind = (nf c', Evd.evar_universe_context sigma), eff else let mib,mip = Inductive.lookup_mind_specif env ind in - let ctx = if mib.mind_polymorphic then mib.mind_universes else Univ.UContext.empty in + let ctx = Inductive.inductive_context mib in let u = Univ.UContext.instance ctx in let ctxset = Univ.ContextSet.of_context ctx in let ectx = Evd.evar_universe_context_of ctxset in |