X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fextlib%2FhExtlib.mli;h=f5e3741d44a5e4f082ced3c3e3e3d99448fb8fe1;hb=4693f3b9de6d867921b51f61e9a7dc36c3da1b77;hp=a0b85ca4f9b1e27ece951ec169a86ef0ca6f32e8;hpb=c6b50e06bd73a29501cafe599551db206193220b;p=helm.git

diff --git a/helm/software/components/extlib/hExtlib.mli b/helm/software/components/extlib/hExtlib.mli
index a0b85ca4f..f5e3741d4 100644
--- a/helm/software/components/extlib/hExtlib.mli
+++ b/helm/software/components/extlib/hExtlib.mli
@@ -86,6 +86,8 @@ val list_uniq:
 val filter_map: ('a -> 'b option) -> 'a list -> 'b list (** filter + map *)
 val filter_map_acc: ('acc -> 'a -> ('acc * 'b) option) -> 'acc -> 'a list ->
         'acc * 'b list (** fold/filter + map *)
+val filter_map_monad: ('acc -> 'a -> 'acc * 'b option) -> 'acc -> 'a list ->
+        'acc * 'b list (** fold/filter + map *)
 
 val list_rev_map_filter: ('a -> 'b option) -> 'a list -> 'b list
 val list_rev_map_filter_fold: ('c -> 'a -> 'c * 'b option) -> 'c -> 'a list -> 'c * 'b list
@@ -95,6 +97,8 @@ val list_findopt: ('a -> int -> 'b option) -> 'a list -> 'b option
 val flatten_map: ('a -> 'b list) -> 'a list -> 'b list
 val list_last: 'a list -> 'a
 val list_mapi: ('a -> int -> 'b) -> 'a list -> 'b list
+val list_mapi_acc: 
+      ('a -> int -> 'acc -> 'acc * 'b) -> 'acc -> 'a list -> 'acc * 'b list 
 (* Finds the zero based index of the first element that satisfies a predicate*)
 val list_index: ('a -> bool) -> 'a list -> (int * 'a) option
 val sharing_map: ('a -> 'a) -> 'a list -> 'a list
@@ -102,14 +106,14 @@ val sharing_map: ('a -> 'a) -> 'a list -> 'a list
    The second one can be shorter and is padded with a default value.
    This function cannot fail. *)
 val list_iter_default2: ('a -> 'b -> unit) -> 'a list -> 'b -> 'b list -> unit
+exception FailureAt of int
 (* Checks a predicate in parallel on three lists, the first two having the same
    length (otherwise it raises Invalid_argument). It stops when the first two
-   lists are empty. The third one can be shorter and is padded with a default value. *)
+   lists are empty. The third one can be shorter and is padded with a default
+   value. It can also raise FailureAt when ??? *)
 val list_forall_default3: ('a -> 'b -> 'c -> bool) -> 'a list -> 'b list -> 'c -> 'c list -> bool
 val list_forall_default3_var: ('a -> 'b -> 'c -> bool) -> 'a list -> 'b list -> 'c -> 'c list -> bool
 
-exception FailureAt of int
-
   (** split_nth n l
    * @returns two list, the first contains at least n elements, the second the
    * remaining ones