let prover_of_name = function
  | "" | "none" -> None
  | "alt-ergo" -> Some AltErgo
  | "coq" | "coqide" -> Some Coq
  | s -> Some (Why s)