let file_for_log_proof ~gid = function
  | Why s -> local gid ("_" ^s^".txt")
  | Coq -> local gid "_coq.txt"
  | AltErgo -> local gid "_ergo.txt"
  | WP -> local gid "_wp.txt"