
diff -r 9bbd5497befd -r 3d954183b707 src/HOL/Transitive_Closure.thy
--- a/src/HOL/Transitive_Closure.thy	Sat Nov 10 07:57:19 2018 +0000
+++ b/src/HOL/Transitive_Closure.thy	Sat Nov 10 07:57:20 2018 +0000
@@ -1064,7 +1064,7 @@
 lemma relpow_finite_bounded:
   fixes R :: "('a \<times> 'a) set"
   assumes "finite R"
-  shows "R^^k \<subseteq> (UN n:{n. n \<le> card R}. R^^n)"
+  shows "R^^k \<subseteq> (\<Union>n\<in>{n. n \<le> card R}. R^^n)"
   apply (cases k, force)
   apply (use relpow_finite_bounded1[OF assms, of k] in auto)
   done




