diff options
| author | Pierre-Marie Pédrot | 2020-11-15 00:17:21 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-15 00:17:21 +0100 |
| commit | ecea6eda26e18dfacff3793d6ceed5b63e46bb3e (patch) | |
| tree | df01feec359299fb3159d831d0c7735b8f280a74 /engine | |
| parent | 6b7d6be8eb0b8c12804a53475e33c1489e3bc61e (diff) | |
| parent | 89f5d2503d68dae235b9c2153d34f0def30ff626 (diff) | |
Merge PR #13356: Make the universe of primitive arrays irrelevant
Reviewed-by: ppedrot
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/eConstr.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 0c84dee572..c29de27efb 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -452,6 +452,9 @@ let eq_universes env sigma cstrs cv_pb refargs l l' = let open GlobRef in let open UnivProblem in match refargs with + | Some (ConstRef c, 1) when Environ.is_array_type env c -> + cstrs := compare_cumulative_instances cv_pb true [|Univ.Variance.Irrelevant|] l l' !cstrs; + true | None | Some (ConstRef _, _) -> cstrs := enforce_eq_instances_univs true l l' !cstrs; true | Some (VarRef _, _) -> assert false (* variables don't have instances *) |