let
find_edge g v1 v2 =
let
dsts =
Node
.
Hashtbl
.find g.d_graph v1
in
To
.find v2 dsts