X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fcommon_sig.ml;h=0e53b92f9098fb66cb53768fb6aa457ddb9a724d;hp=37437e4a755855e8d6ffbae8061c2a3e0be604a4;hb=a601c67e92d85f7096db693e4fde86950be598c6;hpb=974dacbf4f625bfd8ea83db69d6b346050141fea

diff --git a/src/common_sig.ml b/src/common_sig.ml
index 37437e4..0e53b92 100644
--- a/src/common_sig.ml
+++ b/src/common_sig.ml
@@ -13,10 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-04 23:01:55 CET by Kim Nguyen>
-*)
-
 (** Type equipped with an equality and hash function.
     If [equal a b] then [(hash a) = (hash b)]
 *)
@@ -92,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