diff options
| author | Gaëtan Gilbert | 2018-09-14 12:59:52 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-09-27 13:28:33 +0200 |
| commit | 2566d45fcc05c1cd80ba2ac16ef342e7f145f01a (patch) | |
| tree | da9b8f3d9574f467ae494dba4acb703f726c06c9 /interp | |
| parent | 49e9fe1c4666beda099872988144d12138dc6349 (diff) | |
Fix #8478: Undeclared universe anomaly with sections
Instead of looking into the name-oriented structure we look into the
actual section structures.
Note: together with #8475 this lets us remove UnivNames.add_global_universe.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/declare.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/interp/declare.ml b/interp/declare.ml index 22e6cf9d1c..23c68b5e18 100644 --- a/interp/declare.ml +++ b/interp/declare.ml @@ -491,7 +491,6 @@ let add_universe src (dp, i) = Option.iter (fun poly -> let ctx = Univ.ContextSet.add_universe level Univ.ContextSet.empty in Global.push_context_set poly ctx; - UnivNames.add_global_universe level poly; if poly then Lib.add_section_context ctx) optpoly @@ -580,7 +579,7 @@ let do_constraint poly l = let open Univ in let u_of_id x = let level = Pretyping.interp_known_glob_level (Evd.from_env (Global.env ())) x in - UnivNames.is_polymorphic level, level + Lib.is_polymorphic_univ level, level in let in_section = Lib.sections_are_opened () in let () = |