let
edge_key e = (
VL
.hash (edge_src e)), (
VL
.hash (edge_dst e))