From ee7f5486fff86c453767997f97eda381983c4bbc Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 21 Feb 2018 15:47:51 +0100
Subject: Option for messing with inference of irrelevant constraints

---
 engine/evarutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'engine/evarutil.ml')

diff --git a/engine/evarutil.ml b/engine/evarutil.ml
index 8db6037156..2b6913c0b7 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)
-- 
cgit v1.2.3