Blocks.BidirectionalUnlabeled
module V : Sig.COMPARABLE
module HM : HM with type key = V.t
module S : sig ... end
module E : sig ... end
type edge = E.t
val mem_edge : ('a * S.t) HM.t -> HM.key -> S.elt -> bool
val mem_edge_e : ('a * S.t) HM.t -> (HM.key * S.elt) -> bool
val find_edge : ('a * S.t) HM.t -> HM.key -> S.elt -> HM.key * S.elt
val find_all_edges : ('a * S.t) HM.t -> HM.key -> S.elt -> (HM.key * S.elt) list
val unsafe_remove_edge : (S.t * S.t) HM.t -> HM.key -> S.elt -> (S.t * S.t) HM.t
val unsafe_remove_edge_e : (S.t * S.t) HM.t -> (HM.key * S.elt) -> (S.t * S.t) HM.t
val remove_edge : (S.t * S.t) HM.t -> HM.key -> HM.key -> (S.t * S.t) HM.t
val remove_edge_e : (S.t * S.t) HM.t -> (HM.key * HM.key) -> (S.t * S.t) HM.t
val iter_succ : (S.elt -> unit) -> ('a * S.t) HM.t -> HM.key -> unit
val fold_succ : (S.elt -> 'a -> 'a) -> ('b * S.t) HM.t -> HM.key -> 'a -> 'a
val iter_succ_e : ((HM.key * S.elt) -> unit) -> ('a * S.t) HM.t -> HM.key -> unit
val fold_succ_e : ((HM.key * S.elt) -> 'a -> 'a) -> ('b * S.t) HM.t -> HM.key -> 'a -> 'a
val succ : ('a * S.t) HM.t -> HM.key -> S.elt list
val succ_e : ('a * S.t) HM.t -> HM.key -> (HM.key * S.elt) list
val map_vertex : (HM.key -> HM.key) -> (S.t * S.t) HM.t -> (S.t * S.t) HM.t
module I : sig ... end
include module type of struct include I end
type t = (S.t * S.t) HM.t
module PV = I.PV
module PE = I.PE
val iter_edges : (HM.key -> S.elt -> unit) -> ('a * S.t) HM.t -> unit
val fold_edges : (HM.key -> S.elt -> 'a -> 'a) -> ('b * S.t) HM.t -> 'a -> 'a
val iter_edges_e : ((HM.key * S.elt) -> unit) -> ('a * S.t) HM.t -> unit
val fold_edges_e : ((HM.key * S.elt) -> 'a -> 'a) -> ('b * S.t) HM.t -> 'a -> 'a
val iter_pred : (S.elt -> unit) -> (S.t * 'a) HM.t -> HM.key -> unit
val fold_pred : (S.elt -> 'a -> 'a) -> (S.t * 'b) HM.t -> HM.key -> 'a -> 'a
val pred : (S.t * 'a) HM.t -> HM.key -> S.elt list
val in_degree : (S.t * 'a) HM.t -> HM.key -> int
val iter_pred_e : ((S.elt * HM.key) -> unit) -> (S.t * 'a) HM.t -> HM.key -> unit
val fold_pred_e : ((S.elt * HM.key) -> 'a -> 'a) -> (S.t * 'b) HM.t -> HM.key -> 'a -> 'a
val pred_e : (S.t * 'a) HM.t -> HM.key -> (S.elt * HM.key) list