diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-02-21 15:47:51 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-09 16:30:11 +0100 |
| commit | ee7f5486fff86c453767997f97eda381983c4bbc (patch) | |
| tree | 327e64c5324962e40c58e6a012b19b84d4955c66 /engine/eConstr.ml | |
| parent | db0918bfa5089f9ab44374504cbd0ddc758ea1e5 (diff) | |
Option for messing with inference of irrelevant constraints
Diffstat (limited to 'engine/eConstr.ml')
| -rw-r--r-- | engine/eConstr.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 59dc5a221..e832a0688 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -570,6 +570,8 @@ let compare_constr sigma cmp c1 c2 = let cmp nargs c1 c2 = cmp (of_constr c1) (of_constr c2) in compare_gen kind (fun _ _ -> Univ.Instance.equal) Sorts.equal cmp 0 (unsafe_to_constr c1) (unsafe_to_constr c2) +let cumul_weak_constraints = ref true + let compare_cumulative_instances cv_pb nargs_ok variances u u' cstrs = let open Universes in if not nargs_ok then enforce_eq_instances_univs false u u' cstrs @@ -580,7 +582,7 @@ let compare_cumulative_instances cv_pb nargs_ok variances u u' cstrs = let u = Univ.Universe.make u in let u' = Univ.Universe.make u' in match v with - | Irrelevant -> Constraints.add (u,ULub,u') cstrs + | Irrelevant -> if !cumul_weak_constraints then Constraints.add (u,ULub,u') cstrs else cstrs | Covariant -> (match cv_pb with | Reduction.CONV -> Constraints.add (u,UEq,u') cstrs |