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