let
add info e i =
Hashtbl
.add info (edge_key e) i