diff --git a/src/core/CCNativeint.ml b/src/core/CCNativeint.ml
index 171426be..f13cf27d 100644
--- a/src/core/CCNativeint.ml
+++ b/src/core/CCNativeint.ml
@@ -3,8 +3,6 @@
 open CCShims_
 include Nativeint
 
-let equal (x:t) y = Stdlib.(=) x y
-
 module Infix = struct
   let (+) = add
 
diff --git a/src/core/CCNativeint.mli b/src/core/CCNativeint.mli
index 47930754..310b2fe8 100644
--- a/src/core/CCNativeint.mli
+++ b/src/core/CCNativeint.mli
@@ -93,10 +93,6 @@ module Infix : sig
   val (<) : t -> t -> bool
 end
 
-val equal : t -> t -> bool
-(** The equal function for native integers.
-    Like {!Pervasives.(=) x y)}. *)
-
 val hash : t -> int
 (** Like {!Pervasives.abs (to_int x)}. *)