src/HOL/Tools/Sledgehammer/sledgehammer_preplay.ML
changeset 54799 565f9af86d67
parent 54767 81290fe85890
child 54813 c8b04da1bd01
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_preplay.ML	Wed Dec 18 16:50:14 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_preplay.ML	Wed Dec 18 16:50:14 2013 +0100
@@ -123,7 +123,7 @@
 (* main function for preplaying Isar steps; may throw exceptions *)
 fun preplay_raw _ _ _ _ _ (Let _) = zero_preplay_time
   | preplay_raw debug type_enc lam_trans ctxt timeout
-      (step as Prove (_, xs, _, t, subproofs, (fact_names, (meth :: _) :: _))) =
+      (Prove (_, xs, _, t, subproofs, (fact_names, (meth :: _) :: _))) =
     let
       val goal =
         (case xs of