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