src/HOL/MicroJava/BV/BVExample.thy
changeset 52866 438f578ef1d9
parent 52435 6646bb548c6b
child 58886 8a6cac7c7247
--- 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