From c3ea3cd8a2bd29fc0129e34af4a1689bbf7519a5 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Wed, 31 Oct 2018 16:09:43 +0100
Subject: Introduce Safe_typing.set_share_reduction

---
 library/global.ml  | 3 +++
 library/global.mli | 4 ++++
 2 files changed, 7 insertions(+)

(limited to 'library')

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
-- 
cgit v1.2.3