aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/stm.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/stm.ml')
-rw-r--r--stm/stm.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/stm/stm.ml b/stm/stm.ml
index 6c956e134..92587b8ea 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -2106,8 +2106,7 @@ and Reach : sig
end = struct (* {{{ *)
let async_policy () =
- let open Flags in
- if is_universe_polymorphism () then false
+ if Flags.is_universe_polymorphism () then false
else if VCS.is_interactive () = `Yes then
(async_proofs_is_master !cur_opt || !cur_opt.async_proofs_mode = APonLazy)
else