diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-09-30 17:49:33 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:12 +0200 |
commit | 0adf0838a59a3fbca1ced05243ccc42c969fcf18 (patch) | |
tree | d019fcc4ce87df6ff87fb09670e93db83301439e /kernel/modops.ml | |
parent | 96760d8516398ecfa55e4e6f808dd6aa5305e483 (diff) |
Univs: uncovered bug in strengthening of opaque polymorphic definitions.
Diffstat (limited to 'kernel/modops.ml')
-rw-r--r-- | kernel/modops.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index d52fe611c..8733ca8c2 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -331,8 +331,10 @@ let strengthen_const mp_from l cb resolver = let kn = KerName.make2 mp_from l in let con = constant_of_delta_kn resolver kn in let u = - if cb.const_polymorphic then - Univ.UContext.instance cb.const_universes + if cb.const_polymorphic then + let u = Univ.UContext.instance cb.const_universes in + let s = Univ.make_instance_subst u in + Univ.subst_univs_level_instance s u else Univ.Instance.empty in { cb with |