Shape.Uid
val mk : current_unit:string -> t
val internal_not_actually_unique : t
val for_actual_declaration : t -> bool
module T : sig ... end
val hash : T.t -> int
val output : out_channel -> T.t -> unit
val print : Format.formatter -> T.t -> unit
module Set : sig ... end
module Map : sig ... end
module Tbl : sig ... end