diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 4 | ||||
| -rw-r--r-- | library/nameops.mli | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 331b86d80d..c3c94538b9 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -146,6 +146,10 @@ let name_cons na l = | Anonymous -> l | Name id -> id::l +let name_app f = function + | Name id -> Name (f id) + | Anonymous -> Anonymous + let next_name_away_with_default default name l = match name with | Name str -> next_ident_away str l diff --git a/library/nameops.mli b/library/nameops.mli index cb9070dfe5..b876bf5e5b 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -35,6 +35,7 @@ val out_name : name -> identifier val name_fold : (identifier -> 'a -> 'a) -> name -> 'a -> 'a val name_cons : name -> identifier list -> identifier list +val name_app : (identifier -> identifier) -> name -> name val pr_lab : label -> Pp.std_ppcmds |