diff options
| author | Pierre-Marie Pédrot | 2019-05-16 00:02:54 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-20 14:10:58 +0200 |
| commit | 27468ae02bbbf018743d53a9db49efa34b6d6a3e (patch) | |
| tree | e8fa5ad95ba323d76af06d24e9d804a0dae94844 /library | |
| parent | 801aed67a90ec49c15a4469e1905aa2835fabe19 (diff) | |
Ensure statically that declarations built by Term_typing are direct.
This removes a lot of cruft breaking the opaque proof abstraction in
Safe_typing and similar.
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 1 | ||||
| -rw-r--r-- | library/global.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 33cdbd88ea..58e2380440 100644 --- a/library/global.ml +++ b/library/global.ml @@ -95,6 +95,7 @@ let set_allow_sprop b = globalize0 (Safe_typing.set_allow_sprop b) let sprop_allowed () = Environ.sprop_allowed (env()) let export_private_constants ~in_section cd = globalize (Safe_typing.export_private_constants ~in_section cd) let add_constant ?role ~in_section id d = globalize (Safe_typing.add_constant ?role ~in_section (i2l id) d) +let add_recipe ~in_section id d = globalize (Safe_typing.add_recipe ~in_section (i2l id) d) let add_mind id mie = globalize (Safe_typing.add_mind (i2l id) mie) let add_modtype id me inl = globalize (Safe_typing.add_modtype (i2l id) me inl) let add_module id me inl = globalize (Safe_typing.add_module (i2l id) me inl) diff --git a/library/global.mli b/library/global.mli index eabae89d8d..984d8c666c 100644 --- a/library/global.mli +++ b/library/global.mli @@ -47,6 +47,7 @@ val export_private_constants : in_section:bool -> val add_constant : ?role:Entries.side_effect_role -> in_section:bool -> Id.t -> Safe_typing.global_declaration -> Constant.t * Safe_typing.private_constants +val add_recipe : in_section:bool -> Id.t -> Cooking.recipe -> Constant.t val add_mind : Id.t -> Entries.mutual_inductive_entry -> MutInd.t |