diff options
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 |