diff options
| author | Gaëtan Gilbert | 2018-09-27 13:46:20 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-04 14:34:32 +0200 |
| commit | 6023b16dddfb043c6c80815c726936b02735c9cc (patch) | |
| tree | 4b43ce1c11443c573602aab6c7a491db8c0d9730 /library | |
| parent | c1e7333faab2f3b0381fc56aa69979cd80ccd75f (diff) | |
Simplify declaration of universe names
Declaring the universe to the kernel/section mechanism is centralized
to [Declare.declare_universe_context].
Then the universe name object really is only about the user visible
names.
Diffstat (limited to 'library')
| -rw-r--r-- | library/nametab.ml | 3 | ||||
| -rw-r--r-- | library/nametab.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 840cf8e380..06ace373c3 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -30,6 +30,9 @@ let error_global_not_found qid = *) type visibility = Until of int | Exactly of int +let map_visibility f = function + | Until i -> Until (f i) + | Exactly i -> Exactly (f i) (* Data structure for nametabs *******************************************) diff --git a/library/nametab.mli b/library/nametab.mli index 57e9141db9..1c3322bfb1 100644 --- a/library/nametab.mli +++ b/library/nametab.mli @@ -75,6 +75,8 @@ val error_global_not_found : qualid -> 'a type visibility = Until of int | Exactly of int +val map_visibility : (int -> int) -> visibility -> visibility + val push : visibility -> full_path -> GlobRef.t -> unit val push_modtype : visibility -> full_path -> ModPath.t -> unit val push_dir : visibility -> DirPath.t -> global_dir_reference -> unit |