src/HOL/Isar_examples/W_correct.thy

               by (intro has_type_subst_closed);
             with s' t mgu_ok; show ?thesis; by simp;
           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;
           qed;
         qed;