diff options
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 53f6e28a9..221771f4e 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -32,12 +32,13 @@ exception Elimconst let _ = Goptions.declare_bool_option { Goptions.optdepr = false; Goptions.optname = - "debug optiosn"; + "Generate weak constraints between Irrelevant universes"; Goptions.optkey = ["Cumulativity";"Weak";"Constraints"]; - Goptions.optread = (fun () -> !cumul_weak_constraints); - Goptions.optwrite = (fun a -> cumul_weak_constraints:=a); + Goptions.optread = (fun () -> not !UState.drop_weak_constraints); + Goptions.optwrite = (fun a -> UState.drop_weak_constraints:=not a); } + (** Support for reduction effects *) open Mod_subst @@ -713,7 +714,7 @@ let magicaly_constant_of_fixbody env sigma reference bd = function | Some csts -> let subst = Constraints.fold (fun cst acc -> let l, r = match cst with - | ULub (u, v) -> u, v + | ULub (u, v) | UWeak (u, v) -> u, v | UEq (u, v) | ULe (u, v) -> let get u = Option.get (Universe.level u) in get u, get v |