sig
  type t
  val create : unit -> Schema_namer.t
  val fresh_name : Schema_namer.t -> Namespace_symbols.symbol
end