diff options
| author | Pierre-Marie Pédrot | 2018-10-08 11:23:24 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-08 11:23:24 +0200 |
| commit | 53319bdde6fc1f0bac8424cc6cfa6ff759914b1c (patch) | |
| tree | 7d3958888c5429a524a89a11bf5cf5f5aebd0cfc /library | |
| parent | 81b6debf21180bd8b2cb303fce4104320fc32cd0 (diff) | |
| parent | 6023b16dddfb043c6c80815c726936b02735c9cc (diff) | |
Merge PR #8585: Simplify declaration of universe 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 |