sig
  type t = Key.t
  val compare : t -> t -> int
  val hash : t -> int
  val t_of_sexp : Sexplib.Sexp.t -> t
  val sexp_of_t : t -> Sexplib.Sexp.t
end