diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-23 11:22:41 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-23 11:22:41 +0000 |
| commit | 4d7184fe2f570f123eef72c88d6d3f082617bd2a (patch) | |
| tree | d0cc6b1d91cd963235e832152e7d4f5e44b7879e /library | |
| parent | f3d34e3e3add974d79d14f043c19a6d76c2b71b7 (diff) | |
Fonctions utiles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4460 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 5 | ||||
| -rw-r--r-- | library/nameops.mli | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index d2ee86dbe..331b86d80 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -141,6 +141,11 @@ let name_fold f na a = | Name id -> f id a | Anonymous -> a +let name_cons na l = + match na with + | Anonymous -> l + | Name id -> id::l + 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 0b6cf1911..cb9070dfe 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -34,6 +34,7 @@ val next_name_away_with_default : val out_name : name -> identifier val name_fold : (identifier -> 'a -> 'a) -> name -> 'a -> 'a +val name_cons : name -> identifier list -> identifier list val pr_lab : label -> Pp.std_ppcmds |