diff options
| author | Pierre-Marie Pédrot | 2016-10-30 21:44:53 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-30 21:51:45 +0100 |
| commit | a6a7806a91275a3f509a920ee2e56f0f354a8e6c (patch) | |
| tree | fb8ab1cd55595e66764829560d08af4740f1a521 /pretyping | |
| parent | 4ec4c906fdca8907a839f813927280dc127c7f05 (diff) | |
Moving Universes to the engine/ folder.
Before this patch, this module was a member of the library folder, which had
little to do with its actual use. A tiny part relative to global registering
of universe names has been effectively moved to the Global module.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 2f13121ad1..8f369a811e 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -188,7 +188,7 @@ let _ = (** Miscellaneous interpretation functions *) let interp_universe_level_name evd (loc,s) = - let names, _ = Universes.global_universe_names () in + let names, _ = Global.global_universe_names () in if CString.string_contains s "." then match List.rev (CString.split '.' s) with | [] -> anomaly (str"Invalid universe name " ++ str s) |