sig
  module Key :
    sig
      type 'a t
      val create :
        name:string -> ('-> Std_internal.Sexp.t) -> 'Univ_map.Multi.Key.t
    end
  val set : t -> 'Univ_map.Multi.Key.t -> 'a list -> t
  val find : t -> 'Univ_map.Multi.Key.t -> 'a list
  val add : t -> 'Univ_map.Multi.Key.t -> '-> t
  val change : t -> 'Univ_map.Multi.Key.t -> ('a list -> 'a list) -> t
end