let usedEdge tree edget etype= 
    let (conn,node,port) = edget.edge 
    in let rem = IdtMap.remove conn.nameforudg tree.treeEdges
    in let newTreeEdges = IdtMap.add conn.nameforudg {edge = (conn, node, port); edgeway = etype; used = true} rem
    in {tree with treeEdges = newTreeEdges}