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