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