sig
  type t = string
  val to_yojson : Ketrew_pervasives.Unique_id.t -> Yojson.Safe.json
  val of_yojson :
    Yojson.Safe.json ->
    [ `Error of string | `Ok of Ketrew_pervasives.Unique_id.t ]
  val create : unit -> string
end