Add CCEqual.physical

src/core/CCEqual.ml

@@ -6,6 +6,7 @@
 type 'a t = 'a -> 'a -> bool
 
 let poly = Pervasives.(=)
+let physical = Pervasives.(==)
 
 let int : int t = (=)
 let string : string t = Pervasives.(=)

src/core/CCEqual.mli

@@ -11,6 +11,10 @@ type 'a t = 'a -> 'a -> bool
 val poly : 'a t
 (** Standard polymorphic equality *)
 
+val physical : 'a t
+(** Standard physical equality
+    @since NEXT_RELEASE *)
+
 val int : int t
 val string : string t
 val bool : bool t