diff options
| author | Pierre-Marie Pédrot | 2016-05-02 08:03:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-05-02 08:03:05 +0200 |
| commit | 97adfc372fd716c6701677b69950cd9279f46f27 (patch) | |
| tree | 0f0b23f778074065d8920a9c55db81d36d854833 /kernel | |
| parent | 54277abbf0fa15e0437d2a68859ceeef09ec70c3 (diff) | |
| parent | bd5da52c6c625cb4559dd92051384383473ecb1b (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index cfc286135d..f23ed16f05 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -177,7 +177,7 @@ let convert_instances ~flex u u' (s, check) = let conv_table_key infos k1 k2 cuniv = if k1 == k2 then cuniv else match k1, k2 with - | ConstKey (cst, u), ConstKey (cst', u') when eq_constant_key cst cst' -> + | ConstKey (cst, u), ConstKey (cst', u') when Constant.equal cst cst' -> if Univ.Instance.equal u u' then cuniv else let flex = evaluable_constant cst (info_env infos) |