diff options
| author | filliatr | 1999-12-07 14:56:36 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-07 14:56:36 +0000 |
| commit | f2da732ffd5db2b93a2c8120c668f8b2f6068d3b (patch) | |
| tree | 6cf46158c757cb654c241728eed3ea03bd04d0d0 /lib | |
| parent | 59263ca55924e2f43097ae2296f541b153981bf8 (diff) | |
debuggage inductifs (suite) / compilation Dhyp et Auto (mais pas linkes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@220 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 8410367f96..567c8edb69 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -231,6 +231,8 @@ let list_except_assoc e = in except_e +let list_join_map f l = List.flatten (List.map f l) + (* Arrays *) diff --git a/lib/util.mli b/lib/util.mli index e0de343dfb..e0743627d5 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -72,6 +72,7 @@ val list_map_append : ('a -> 'b list) -> 'a list -> 'b list val list_map_append2 : ('a -> 'b -> 'c list) -> 'a list -> 'b list -> 'c list val list_share_tails : 'a list -> 'a list -> 'a list * 'a list * 'a list val list_except_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list +val list_join_map : ('a -> 'b list) -> 'a list -> 'b list (*s Arrays. *) |