(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

(** Multiset - Set with multiplicity for each element *)

include module type of Multiset_intf

type ('elt, 'mul, 'compare_elt) t [@@deriving compare, equal, sexp]
type ('compare_elt, 'compare_mul) compare [@@deriving compare, equal, sexp]

module Make (Elt : sig
  type t [@@deriving equal, sexp_of]

  include Comparer.S with type t := t
end)
(Mul : MULTIPLICITY) :
  S
    with type mul = Mul.t
    with type elt = Elt.t
    with type compare = (Elt.compare, Mul.compare) compare
    with type t = (Elt.t, Mul.t, Elt.compare) t