diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-10 14:27:41 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-10 14:27:41 +0000 |
| commit | ce014bf1c0912a7a48025e6184a27bd929089252 (patch) | |
| tree | 4bdbfe817fa97d4fbfd635ec45667031a03bfd05 /lib/util.mli | |
| parent | 08502c0d2299ed820a07e76fe785b6330ff119cd (diff) | |
Added list_map_filter_i
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14397 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index 7b8f9d31d..e24df1a31 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -133,6 +133,7 @@ val list_distinct : 'a list -> bool val list_duplicates : 'a list -> 'a list val list_filter2 : ('a -> 'b -> bool) -> 'a list * 'b list -> 'a list * 'b list val list_map_filter : ('a -> 'b option) -> 'a list -> 'b list +val list_map_filter_i : (int -> 'a -> 'b option) -> 'a list -> 'b list (** [list_smartmap f [a1...an] = List.map f [a1...an]] but if for all i [ f ai == ai], then [list_smartmap f l==l] *) |