diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-10-01 23:35:51 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:13 +0200 |
commit | 8860362de4a26286b0cb20cf4e02edc5209bdbd1 (patch) | |
tree | a9c80518d1894341c704f0cc81c8ccc8b43d970e /library/global.ml | |
parent | 4585baa53e7fa4c25e304b8136944748a7622e10 (diff) |
Univs: Change intf of push_named_def to return the computed universe
context
Let-bound definitions can be opaque but the whole universe context
was not gathered to be discharged at section closing time.
Diffstat (limited to 'library/global.ml')
-rw-r--r-- | library/global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/global.ml b/library/global.ml index 382abb846..6002382c1 100644 --- a/library/global.ml +++ b/library/global.ml @@ -78,7 +78,7 @@ let globalize_with_summary fs f = let i2l = Label.of_id let push_named_assum a = globalize0 (Safe_typing.push_named_assum a) -let push_named_def d = globalize0 (Safe_typing.push_named_def d) +let push_named_def d = globalize (Safe_typing.push_named_def d) let add_constraints c = globalize0 (Safe_typing.add_constraints c) let push_context_set b c = globalize0 (Safe_typing.push_context_set b c) let push_context b c = globalize0 (Safe_typing.push_context b c) |