top_command (cmd_load currentFile []) goal_command 0 cmd_refine "let module m = M (F A) in ?"