let add_wp_menu
    (popup_factory:GMenu.menu GMenu.factory)
    (main_ui:Design.main_window_extension_points) 
    localizable =
  let strategy = get_strategy localizable in
  let add_wp_run descr =
    ignore (popup_factory#add_item
              (Printf.sprintf "Prove %s by WP" descr)
              ~callback:(fun () -> run_and_prove main_ui strategy))
  in
  match strategy with
  | Snone -> ()
  | Scall _ -> add_wp_run "call preconditions"
  | Scode { sp_target = descr } -> add_wp_run descr