diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-26 15:56:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-26 15:56:28 +0200 |
| commit | b98ae49d282f73343c1950e960f4b3bc7c28de70 (patch) | |
| tree | 53114d948cc278ca0a98e0a19e0ca9282ee891cd /vernac/obligations.ml | |
| parent | 0b8c1aa84dc7200b055d45cf528a83163dfd21f8 (diff) | |
| parent | 40114382c04aafa1c8e1c156ca24a5ad1aa4b9fb (diff) | |
Merge PR #7906: universes_of_constr don't include universes of monomorphic constants
Diffstat (limited to 'vernac/obligations.ml')
| -rw-r--r-- | vernac/obligations.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index e0b1349f7..fa6a9adf1 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -480,10 +480,9 @@ let declare_definition prg = let fix_exn = Hook.get get_fix_exn () in let typ = nf typ in let body = nf body in - let env = Global.env () in let uvars = Univ.LSet.union - (Univops.universes_of_constr env typ) - (Univops.universes_of_constr env body) in + (Univops.universes_of_constr typ) + (Univops.universes_of_constr body) in let uctx = UState.restrict prg.prg_ctx uvars in let univs = UState.check_univ_decl ~poly:(pi2 prg.prg_kind) uctx prg.prg_univdecl in let ce = definition_entry ~fix_exn ~opaque ~types:typ ~univs body in |