let prove base prover =
  let dir = Wp_parameters.get_output () in
  let suffix = 
    match prover with
      | AltErgo91 -> "_ergo91.why"
      | AltErgo92 -> "_ergo92.why"
      | WP | Why _ -> ".why"
      | Coq -> ".v"
      | Coqide -> ".v"
  in Printf.sprintf "%s/%s%s" dir base suffix