Add fold_left/right functions to the set interface (iterate in

[tatoo.git] / src / common_sig.ml

diff --git a/src/common_sig.ml b/src/common_sig.ml
index 1bb80a9..0e53b92 100644 (file)
--- a/src/common_sig.ml
+++ b/src/common_sig.ml
@@ -88,6 +88,8 @@ sig
   val subset : t -> t -> bool
   val iter : (elt -> unit) -> t -> unit
   val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
+  val fold_left : (elt -> 'a -> 'a) -> t -> 'a -> 'a
+  val fold_right : (elt -> 'a -> 'a) -> t -> 'a -> 'a
   val for_all : (elt -> bool) -> t -> bool
   val exists : (elt -> bool) -> t -> bool
   val filter : (elt -> bool) -> t -> t