From 4d7184fe2f570f123eef72c88d6d3f082617bd2a Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 23 Sep 2003 11:22:41 +0000
Subject: Fonctions utiles

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4460 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/nameops.ml  | 5 +++++
 library/nameops.mli | 1 +
 2 files changed, 6 insertions(+)

(limited to 'library')

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
 
-- 
cgit v1.2.3