From f912004bbe2c8f77de09cc290c3c687dc4ebf7f8 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Thu, 8 May 2014 13:43:26 +0200 Subject: Adapt the checker to polymorphic universes and projections (untested). --- checker/modops.ml | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'checker/modops.ml') diff --git a/checker/modops.ml b/checker/modops.ml index 2d20dd0f3..c27c5d598 100644 --- a/checker/modops.ml +++ b/checker/modops.ml @@ -90,7 +90,11 @@ let strengthen_const mp_from l cb resolver = | _ -> let con = Constant.make2 mp_from l in (* let con = constant_of_delta resolver con in*) - { cb with const_body = Def (Declarations.from_val (Const con)) } + let u = + if cb.const_polymorphic then Univ.UContext.instance cb.const_universes + else Univ.Instance.empty + in + { cb with const_body = Def (Declarations.from_val (Const (con,u))) } let rec strengthen_mod mp_from mp_to mb = if Declarations.mp_in_delta mb.mod_mp mb.mod_delta then -- cgit v1.2.3