diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-06-22 16:09:23 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-06-26 13:33:51 +0200 |
commit | 05dff3bdaaf474e67b0878bc2dd0952427ce277e (patch) | |
tree | 61aca8104fd4e3729d06c392f3fa9bd9b6db06bd /vernac/classes.ml | |
parent | df35025b2be4a0dc9aadecc0e3110a21012683cf (diff) |
universes_of_constr don't include universes of monomorphic constants
Apparently it was not useful. I don't remember what I was thinking
when I added it.
Diffstat (limited to 'vernac/classes.ml')
-rw-r--r-- | vernac/classes.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 382d18b09..26d105ecf 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -116,9 +116,8 @@ let instance_hook k info global imps ?hook cst = let declare_instance_constant k info global imps ?hook id decl poly sigma term termtype = let kind = IsDefinition Instance in let sigma = - let env = Global.env () in - let levels = Univ.LSet.union (Univops.universes_of_constr env termtype) - (Univops.universes_of_constr env term) in + let levels = Univ.LSet.union (Univops.universes_of_constr termtype) + (Univops.universes_of_constr term) in Evd.restrict_universe_context sigma levels in let uctx = Evd.check_univ_decl ~poly sigma decl in |