type 'a key = {
uid : int;
tid : 'a tid;
}
val uid : unit -> int
val create : unit -> 'a key
type t =
| V : 'a key -> t
val hide_type : 'a key -> t
val equal : t -> t -> bool
val compare : t -> t -> int
