let do_wp_proofs () =
  let pname = Wp_parameters.Prover.get () in
  match Wpo.prover_of_name pname with
    | None -> ()
    | Some prover ->
        let interactive = Wpo.is_interactive pname in
        let server = Prover.server () in
        try
          Wpo.iter ~on_goal:(do_wp_proof server interactive prover) () ;
          Task.launch server ;
        with e ->
          Task.cancel_all server ;
          raise e