diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 3 | ||||
| -rw-r--r-- | library/global.mli | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 009f498a9e..6461b4c37f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -183,3 +183,6 @@ let register_inline c = globalize0 (Safe_typing.register_inline c) let set_strategy k l = GlobalSafeEnv.set_safe_env (Safe_typing.set_strategy (safe_env ()) k l) + +let set_share_reduction b = + globalize0 (Safe_typing.set_share_reduction b) diff --git a/library/global.mli b/library/global.mli index 5b0ff11b71..762a3f006d 100644 --- a/library/global.mli +++ b/library/global.mli @@ -150,6 +150,10 @@ val register_inline : Constant.t -> unit val set_strategy : Constant.t Names.tableKey -> Conv_oracle.level -> unit +(** {6 Conversion settings } *) + +val set_share_reduction : bool -> unit + (* Modifies the global state, registering new universes *) val current_modpath : unit -> ModPath.t |