functor (G_Src : V_SRC) ->
  functor (G_Dst : V_DST) ->
    sig val map : (G_Src.V.t -> G_Dst.vertex) -> G_Src.t -> G_Dst.t end