diff options
| author | Gaëtan Gilbert | 2020-10-26 11:45:28 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-10-26 11:45:47 +0100 |
| commit | e901ce83ff5c0a3a95d420f6ae10d07312fad4a4 (patch) | |
| tree | b2877208beb226126ee473eb5498bdaf58b1f28a /kernel/vars.ml | |
| parent | 716299d489b5a91ab46b28900d04cd5dd7f7acac (diff) | |
universes_of_constr: don't ignore CaseInvert universes
Not sure if we can get a bug from this omission.
Diffstat (limited to 'kernel/vars.ml')
| -rw-r--r-- | kernel/vars.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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 |