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