let wp_prover_get () =
  match Wp_parameters.Prover.get () with
    | "alt-ergo" -> AltErgo (Wp_parameters.Arrays.get ())
    | "coqide" -> Prover "coqide"
    | "coq" -> Wp_parameters.Prover.set "coqide" ; Prover "coqide"
    | "simplify" -> Prover "simplify"
    | "z3" -> Prover "z3"
    | "none" -> NoProver
    | _ -> Unknown