let
hasedge eid tree =
IdtMap
.mem eid tree.treeEdges