From 2b47c0d1b492424c39477f9d4ec262e4d093be92 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Fri, 20 Nov 2015 20:17:35 +0100 Subject: Univs: fix type_of_global_in_context not returning instantiated universe contexts. --- library/global.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'library/global.ml') diff --git a/library/global.ml b/library/global.ml index 6002382c1..4cffd6b7e 100644 --- a/library/global.ml +++ b/library/global.ml @@ -198,13 +198,13 @@ let type_of_global_in_context env r = | IndRef ind -> let (mib, oib as specif) = Inductive.lookup_mind_specif env ind in let univs = - if mib.mind_polymorphic then mib.mind_universes + if mib.mind_polymorphic then Univ.instantiate_univ_context mib.mind_universes else Univ.UContext.empty in Inductive.type_of_inductive env (specif, Univ.UContext.instance univs), univs | ConstructRef cstr -> let (mib,oib as specif) = Inductive.lookup_mind_specif env (inductive_of_constructor cstr) in let univs = - if mib.mind_polymorphic then mib.mind_universes + if mib.mind_polymorphic then Univ.instantiate_univ_context mib.mind_universes else Univ.UContext.empty in let inst = Univ.UContext.instance univs in -- cgit v1.2.3