diff options
| author | Maxime Dénès | 2015-01-16 22:17:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2015-01-17 08:02:45 +0100 |
| commit | 9f5586d88880cbb98c92edfe9c33c76564f1a19c (patch) | |
| tree | 6de2a171eff5706b0e4ce9268554b84a922f12b3 /tactics/elimschemes.ml | |
| parent | 4985f0ff99278beb3b934f86edf1398659c611a8 (diff) | |
Make native compiler handle universe polymorphic definitions.
One remaining issue: aliased constants raise an anomaly when some unsubstituted
universe variables remain. VM may suffer from the same problem.
Diffstat (limited to 'tactics/elimschemes.ml')
| -rw-r--r-- | tactics/elimschemes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/elimschemes.ml b/tactics/elimschemes.ml index 9914ff3411..749e0d2b5b 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 = Inductive.inductive_context mib in + let ctx = Declareops.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 @@ -58,7 +58,7 @@ let build_induction_scheme_in_type dep sort ind = let env = Global.env () in let ctx = let mib,mip = Inductive.lookup_mind_specif env ind in - Inductive.inductive_context mib + Declareops.inductive_context mib in let u = Univ.UContext.instance ctx in let ctxset = Univ.ContextSet.of_context ctx in |