src/HOL/Tools/Sledgehammer/sledgehammer_commands.ML
changeset 60190 906de96ba68a
parent 60094 96a4765ba7d1
child 60202 a95023a21725
--- 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)