let
hasnode nid tree =
IdtMap
.mem nid tree.treeNodes