| 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