diff --git a/AUTHORS.adoc b/AUTHORS.adoc
index 895cb10e..ec288cda 100644
--- a/AUTHORS.adoc
+++ b/AUTHORS.adoc
@@ -29,3 +29,4 @@
 - Dave Aitken (@actionshrimp)
 - Etienne Millon (@emillon)
 - Christopher Zimmermann (@madroach)
+- Jules Aguillon (@julow)
diff --git a/src/core/CCEqual.mli b/src/core/CCEqual.mli
index 6dc59f80..f940a56c 100644
--- a/src/core/CCEqual.mli
+++ b/src/core/CCEqual.mli
@@ -36,10 +36,9 @@ val map : ('a -> 'b) -> 'b t -> 'a t
     [map fst int] compares values of type [(int * 'a)]  by their
       first component. *)
 
-val (>|=) : 'b t -> ('a -> 'b) -> 'a t
-(** Infix equivalent of {!map}. *)
-
 module Infix : sig
   val (>|=) : 'b t -> ('a -> 'b) -> 'a t
   (** Infix equivalent of {!map}. *)
 end
+
+include module type of Infix
diff --git a/src/core/CCInt32.mli b/src/core/CCInt32.mli
index 33a0cfab..79eb9292 100644
--- a/src/core/CCInt32.mli
+++ b/src/core/CCInt32.mli
@@ -90,6 +90,8 @@ module Infix : sig
   val (<) : t -> t -> bool
 end
 
+include module type of Infix
+
 val equal : t -> t -> bool
 (** The equal function for 32-bit integers.
     Like {!Pervasives.(=) x y)}. *)
diff --git a/src/core/CCInt64.mli b/src/core/CCInt64.mli
index 6d6b7214..b0cdffaa 100644
--- a/src/core/CCInt64.mli
+++ b/src/core/CCInt64.mli
@@ -90,6 +90,8 @@ module Infix : sig
   val (<) : t -> t -> bool
 end
 
+include module type of Infix
+
 val equal : t -> t -> bool
 (** The equal function for 64-bit integers.
     Like {!Pervasives.(=) x y)}. *)