diff options
-rw-r--r-- | kernel/safe_typing.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index bf758b96b..867705c47 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -557,7 +557,10 @@ let end_module l restype senv = let mb = build_module_body params restype senv in let newenv = oldsenv.env in let newenv = set_engagement_opt newenv senv.engagement in - let senv'= propagate_loads {senv with env=newenv} in + let senv'= + propagate_loads { senv with + env = newenv; + univ = Univ.union_constraints senv.univ mb.mod_constraints} in let newenv = Environ.add_constraints mb.mod_constraints senv'.env in let newenv = Modops.add_module mb newenv in let newresolver = |