sig
  type ('k, 'v) t = ('k, 'v) Multi_map.t
  val t_of_sexp :
    (Sexplib.Sexp.t -> 'a) ->
    (Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> ('a, 'b) t
  val sexp_of_t :
    ('a -> Sexplib.Sexp.t) ->
    ('b -> Sexplib.Sexp.t) -> ('a, 'b) t -> Sexplib.Sexp.t
  val empty : ('k, 'v) t
  val singleton : 'k -> 'v -> ('k, 'v) t
  val is_empty : ('k, 'v) t -> bool
  val add : key:'k -> data:'v -> ('k, 'v) t -> ('k, 'v) t
  val find : ('k, 'v) t -> 'k -> 'v list
  val remove : ('k, 'v) t -> 'k -> ('k, 'v) t
  val set : key:'k -> data:'v list -> ('k, 'v) t -> ('k, 'v) t
  val mem : ('k, 'v) t -> 'k -> bool
  val keys : ('k, 'v) t -> 'k list
  val iter : f:(key:'k -> data:'v -> unit) -> ('k, 'v) t -> unit
  val map : f:('a -> 'b) -> ('k, 'a) t -> ('k, 'b) t
  val mapi : f:(key:'k -> data:'a -> 'b) -> ('k, 'a) t -> ('k, 'b) t
  val fold : f:(key:'k -> data:'v -> 'a -> 'a) -> ('k, 'v) t -> init:'a -> 'a
  val filter : f:(key:'k -> data:'v -> bool) -> ('k, 'v) t -> ('k, 'v) t
  val reduce :
    f:('v list -> 'r) -> ('k, 'v) t -> ('k, 'r) Core.Std.Map.Poly.t
end