let backward_edges tree = IdtMap.fold (fun x y a -> if y.edgeway == Backward then y::a else a) tree.treeEdges []