From aa5e962c9888889380ae85a7cbd82a8ac4779a0f Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Sat, 28 Apr 2018 17:26:18 +0200 Subject: Make set minimization option internal to Universes --- engine/universes.ml | 10 +++++++++- engine/universes.mli | 3 --- 2 files changed, 9 insertions(+), 4 deletions(-) (limited to 'engine') diff --git a/engine/universes.ml b/engine/universes.ml index a13663cba..96d49361f 100644 --- a/engine/universes.ml +++ b/engine/universes.ml @@ -116,7 +116,15 @@ let universe_binders_with_opt_names ref levels = function let set_minimization = ref true let is_set_minimization () = !set_minimization - + +let _ = + Goptions.(declare_bool_option + { optdepr = false; + optname = "minimization to Set"; + optkey = ["Universe";"Minimization";"ToSet"]; + optread = is_set_minimization; + optwrite = (:=) set_minimization }) + type universe_constraint = | ULe of Universe.t * Universe.t | UEq of Universe.t * Universe.t diff --git a/engine/universes.mli b/engine/universes.mli index df2e961d6..46d65f257 100644 --- a/engine/universes.mli +++ b/engine/universes.mli @@ -17,9 +17,6 @@ open Univ (** Unordered pairs of universe levels (ie (u,v) = (v,u)) *) module UPairSet : CSet.S with type elt = (Level.t * Level.t) -val set_minimization : bool ref -val is_set_minimization : unit -> bool - (** Universes *) val pr_with_global_universes : Level.t -> Pp.t -- cgit v1.2.3