missing function

src/core/CCEqual.ml

@@ -11,6 +11,7 @@ let int : int t = (=)
 let string : string t = (=)
 let bool : bool t = (=)
 let float : float t = (=)
+let unit () () = true
 
 let rec list f l1 l2 = match l1, l2 with
   | [], [] -> true

src/core/CCEqual.mli

@@ -15,6 +15,7 @@ val int : int t
 val string : string t
 val bool : bool t
 val float : float t
+val unit : unit t
 
 val list : 'a t -> 'a list t
 val array : 'a t -> 'a array t