diff -r 02a7e7180ee5 -r 438f578ef1d9 src/HOL/MicroJava/BV/BVExample.thy
--- a/src/HOL/MicroJava/BV/BVExample.thy	Mon Aug 05 17:14:02 2013 +0200
+++ b/src/HOL/MicroJava/BV/BVExample.thy	Mon Aug 05 17:52:07 2013 +0200
@@ -422,7 +422,7 @@
     apply (rule subsetI)
     apply (erule UN_E)
     apply (case_tac "\<not> stable r step ss p")
-    apply simp+
+    apply simp_all
     done
   also have "\<And>f. (UN p:{..<size ss}. f p) = Union (set (map f [0..<size ss]))" by auto
   also note Sup_set_fold also note fold_map