let missing_rte kf =
  List.map
    (fun (name,_,_) -> name)
    (List.filter (fun (_,rte,_) -> not (rte kf)) rte_wp)