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/evarutil.ml | |
parent | db0918bfa5089f9ab44374504cbd0ddc758ea1e5 (diff) |
Option for messing with inference of irrelevant constraints
Diffstat (limited to 'engine/evarutil.ml')
-rw-r--r-- | engine/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 8db603715..2b6913c0b 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -827,7 +827,7 @@ let compare_cumulative_instances cv_pb variances u u' sigma = let cstrs, soft = Array.fold_left3 (fun (cstrs, soft) v u u' -> let open Univ.Variance in match v with - | Irrelevant -> cstrs, (u,u')::soft + | Irrelevant -> cstrs, if !EConstr.cumul_weak_constraints then (u,u')::soft else soft | Covariant when cv_pb == Reduction.CUMUL -> Univ.Constraint.add (u,Univ.Le,u') cstrs, soft | Covariant | Invariant -> Univ.Constraint.add (u,Univ.Eq,u') cstrs, soft) |