sig
  type t
  module E : Sig.HASHABLE
  val fold_edges_e : (E.t -> '-> 'a) -> Gmap.E_SRC.t -> '-> 'a
end