diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-05-08 13:43:26 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-08 19:23:51 +0200 |
commit | f912004bbe2c8f77de09cc290c3c687dc4ebf7f8 (patch) | |
tree | eadad13bfd7e178d782bb46a9bd3e0daff84264b /checker/modops.ml | |
parent | 0db1d850b940a5f2351c1ec6e26d1f8087064d40 (diff) |
Adapt the checker to polymorphic universes and projections (untested).
Diffstat (limited to 'checker/modops.ml')
-rw-r--r-- | checker/modops.ml | 6 |
1 files changed, 5 insertions, 1 deletions
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 |