tuned presentation;

--- a/src/HOL/Isar_examples/W_correct.thy	Fri Oct 08 16:40:27 1999 +0200
+++ b/src/HOL/Isar_examples/W_correct.thy	Fri Oct 08 16:47:44 1999 +0200
@@ -143,8 +143,8 @@
           qed;
           show "$ s a |- e2 :: $ u t2";
           proof -;
-            from hyp2 W2_ok [RS sym]; have "$ s2 ($ s1 a) |- e2 :: t2";
-              by blast;
+            from hyp2 W2_ok [RS sym];
+              have "$ s2 ($ s1 a) |- e2 :: t2"; by blast;
             hence "$ u ($ s2 ($ s1 a)) |- e2 :: $ u t2";
               by (rule has_type_subst_closed);
             with s'; show ?thesis; by simp;