Hmap.Key
val create : unit -> 'a key
type t
val hide_type : 'a key -> t
val equal : t -> t -> bool
val compare : t -> t -> int