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"