let iter_edges_e f (_, proj) =
let _ = match proj.T.actions with [] -> ()
| rq :: _ -> f ((node_slice_callers (), (Action (1, rq))), None) in
let _ = iter_edges_slices f proj in
let _ = iter_edges_actions f proj in
let _ = iter_edges_src_fun f proj in
()