let
find_dpd g v1 v2 =
let
lbl = find_edge g v1 v2
in
((v1, lbl, v2), lbl)