let get_parent_edge n =
    match (Tree.get_parent_edge n) with
        Some e ->
          Tree.get_edge_label e
      | None ->
          invalid_arg "get_parent_edge: input node has no parent edge"