diff options
| author | Pierre-Marie Pédrot | 2020-11-02 12:57:57 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-02 12:57:57 +0100 |
| commit | 4ab2522244f703f73323ee918bb324cce4b9b237 (patch) | |
| tree | fca8ca0eae12af7585f4e332f5f9b14667b92a7b | |
| parent | 473160ebe4a835dde50d6c209ab17c7e1b84979c (diff) | |
| parent | e901ce83ff5c0a3a95d420f6ae10d07312fad4a4 (diff) | |
Merge PR #13273: universes_of_constr: don't ignore CaseInvert universes
Reviewed-by: ppedrot
| -rw-r--r-- | engine/eConstr.ml | 3 | ||||
| -rw-r--r-- | kernel/vars.ml | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 374cb72753..bb2873b486 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -563,6 +563,9 @@ let universes_of_constr sigma c = | Array (u,_,_,_) -> let s = LSet.fold LSet.add (Instance.levels (EInstance.kind sigma u)) s in fold sigma aux s c + | Case (_,_,CaseInvert {univs;args=_},_,_) -> + let s = LSet.fold LSet.add (Instance.levels (EInstance.kind sigma univs)) s in + fold sigma aux s c | _ -> fold sigma aux s c in aux LSet.empty c diff --git a/kernel/vars.ml b/kernel/vars.ml index f7e28b0cfe..a446fa413c 100644 --- a/kernel/vars.ml +++ b/kernel/vars.ml @@ -348,5 +348,8 @@ let universes_of_constr c = | Array (u,_,_,_) -> let s = LSet.fold LSet.add (Instance.levels u) s in Constr.fold aux s c + | Case (_,_,CaseInvert {univs;args=_},_,_) -> + let s = LSet.fold LSet.add (Instance.levels univs) s in + Constr.fold aux s c | _ -> Constr.fold aux s c in aux LSet.empty c |