--- a/ProgTutorial/Tactical.thy	Mon Feb 25 00:33:48 2013 +0000
+++ b/ProgTutorial/Tactical.thy	Fri Mar 01 00:49:15 2013 +0000
@@ -1774,7 +1774,8 @@
 ML %linenosgray{*fun fail_simproc simpset redex = 
 let
   val ctxt = Simplifier.the_context simpset
-  val _ = pwriteln (Pretty.block [Pretty.str "The redex: ", pretty_cterm ctxt redex])
+  val _ = pwriteln (Pretty.block 
+    [Pretty.str "The redex: ", pretty_cterm ctxt redex])
 in
   NONE
 end*}
@@ -1846,7 +1847,8 @@
 ML %grayML{*fun fail_simproc' simpset redex = 
 let
   val ctxt = Simplifier.the_context simpset
-  val _ = pwriteln (Pretty.block [Pretty.str "The redex:", pretty_term ctxt redex])
+  val _ = pwriteln (Pretty.block 
+    [Pretty.str "The redex:", pretty_term ctxt redex])
 in
   NONE
 end*}