sig
  val ( --> ) : ('a, 'b) BatMultiPMap.t -> 'a -> 'b BatSet.PSet.t
  val ( <-- ) : ('a, 'b) BatMultiPMap.t -> 'a * 'b -> ('a, 'b) BatMultiPMap.t
end