diff --git a/ocaml/license/license_init.ml b/ocaml/license/license_init.ml
index 342725c43c4..57e1f7a958b 100644
--- a/ocaml/license/license_init.ml
+++ b/ocaml/license/license_init.ml
@@ -15,8 +15,6 @@
 module D = Debug.Make(struct let name="license" end)
 open D
 
-let ( |> ) a b = b a
-
 (* Dependency injection for unit tests *)
 module type V6clientS = module type of V6client
 let v6client = ref (module V6client : V6clientS)
diff --git a/ocaml/test/mock.ml b/ocaml/test/mock.ml
index 8c544e94c19..b1bad6b4134 100644
--- a/ocaml/test/mock.ml
+++ b/ocaml/test/mock.ml
@@ -12,8 +12,6 @@
  * GNU Lesser General Public License for more details.
  *)
 
-let ( |> ) a b = b a
-
 module Database = struct
 
 	let _schema = Datamodel_schema.of_datamodel () ;;
diff --git a/ocaml/test/suite.ml b/ocaml/test/suite.ml
index 4cd66b0108c..7095467e70c 100644
--- a/ocaml/test/suite.ml
+++ b/ocaml/test/suite.ml
@@ -14,8 +14,6 @@
 
 open OUnit
 
-let ( |> ) a b = b a
-
 let base_suite =
 	"base_suite" >:::
 		[
diff --git a/ocaml/xapi/cancel_tests.ml b/ocaml/xapi/cancel_tests.ml
index 5806c558d1b..b46ef8a077f 100644
--- a/ocaml/xapi/cancel_tests.ml
+++ b/ocaml/xapi/cancel_tests.ml
@@ -14,8 +14,6 @@
 open Client
 open Pervasiveext
 
-let ( |> ) a b = b a
-
 let debug (fmt: ('a , unit, string, unit) format4) =
   (* Convert calendar time, x, to tm in UTC *)
   let of_float x =