let has_edge_id source_node end_node tree= List.length (IdtMap.fold (fun _ y a-> let (conn, endid, _)=y.edge in if (endid == end_node && conn.sourceid == source_node) then conn.nameforudg::a else a) tree.treeEdges []) >0