sig   type 'a t   val create : unit -> 'a CCHet.Key.t   val equal : 'a CCHet.Key.t -> 'a CCHet.Key.t -> bool end