diff options
| author | Maxime Dénès | 2018-10-31 16:09:43 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-31 16:16:41 +0100 |
| commit | c3ea3cd8a2bd29fc0129e34af4a1689bbf7519a5 (patch) | |
| tree | c4abbf08afd6f11a96b28f31e06571a10f12dac7 /library | |
| parent | d1091555104e0198eaaa94a1bb69e96d5cc73447 (diff) | |
Introduce Safe_typing.set_share_reduction
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 |