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 /plugins | |
| parent | 0b8c1aa84dc7200b055d45cf528a83163dfd21f8 (diff) | |
| parent | 40114382c04aafa1c8e1c156ca24a5ad1aa4b9fb (diff) | |
Merge PR #7906: universes_of_constr don't include universes of monomorphic constants
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/setoid_ring/newring.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/setoid_ring/newring.ml b/plugins/setoid_ring/newring.ml index 84b29a0bf..e4d17f250 100644 --- a/plugins/setoid_ring/newring.ml +++ b/plugins/setoid_ring/newring.ml @@ -148,8 +148,7 @@ let ic_unsafe c = (*FIXME remove *) let decl_constant na univs c = let open Constr in - let env = Global.env () in - let vars = Univops.universes_of_constr env c in + let vars = Univops.universes_of_constr c in let univs = Univops.restrict_universe_context univs vars in let univs = Monomorphic_const_entry univs in mkConst(declare_constant (Id.of_string na) |