--- a/src/HOL/Tools/Sledgehammer/sledgehammer_commands.ML Wed Apr 22 19:48:32 2015 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_commands.ML Wed Apr 22 20:14:43 2015 +0200
@@ -359,7 +359,7 @@
end
fun sledgehammer_trans (((subcommand, params), fact_override), opt_i) =
- Toplevel.keep (hammer_away params subcommand opt_i fact_override o Toplevel.proof_of)
+ Toplevel.keep_proof (hammer_away params subcommand opt_i fact_override o Toplevel.proof_of)
fun string_of_raw_param (key, values) =
key ^ (case implode_param values of "" => "" | value => " = " ^ value)