diff options
| author | herbelin | 2000-07-01 10:13:19 +0000 |
|---|---|---|
| committer | herbelin | 2000-07-01 10:13:19 +0000 |
| commit | 460c3399fd877bf5ca4a7c8029c2dc35db86da8b (patch) | |
| tree | ed69a7f699a53d452d971826d17af0017d2cffaa /lib | |
| parent | 9914d778c0d62e8254ee6d0e68ead261edb7c71a (diff) | |
Le bon type pour list_fold_right_and_left
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@541 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.mli | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/util.mli b/lib/util.mli index 19baf5aed5..ed1ac8ee35 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -58,9 +58,8 @@ val list_map2_i : val list_index : 'a -> 'a list -> int val list_iter_i : (int -> 'a -> unit) -> 'a list -> unit val list_fold_left_i : (int -> 'a -> 'b -> 'a) -> int -> 'a -> 'b list -> 'a -(*i -val list_fold_left_right : ('a -> 'b -> 'b list -> 'a) -> 'b list -> 'a -> 'a -i*) +val list_fold_right_and_left : + ('a -> 'b -> 'b list -> 'a) -> 'b list -> 'a -> 'a val list_for_all_i : (int -> 'a -> bool) -> int -> 'a list -> bool val list_except : 'a -> 'a list -> 'a list val list_for_all2eq : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool |