
diff -r 9b6a0fb85fa3 -r c3658c18b7bc src/HOL/Library/Permutations.thy
--- a/src/HOL/Library/Permutations.thy	Tue Oct 13 09:21:14 2015 +0200
+++ b/src/HOL/Library/Permutations.thy	Tue Oct 13 09:21:15 2015 +0200
@@ -196,7 +196,7 @@
       by (auto intro: card_ge_0_finite)
     then have pF'f: "finite ?pF'"
       using H0 \<open>finite F\<close>
-      apply (simp only: Collect_split Collect_mem_eq)
+      apply (simp only: Collect_case_prod Collect_mem_eq)
       apply (rule finite_cartesian_product)
       apply simp_all
       done
@@ -246,7 +246,7 @@
     from pFs H0 have xFc: "card ?xF = fact n"
       unfolding xfgpF' card_image[OF ginj]
       using \<open>finite F\<close> \<open>finite ?pF\<close>
-      apply (simp only: Collect_split Collect_mem_eq card_cartesian_product)
+      apply (simp only: Collect_case_prod Collect_mem_eq card_cartesian_product)
       apply simp
       done
     from finite_imageI[OF pF'f, of ?g] have xFf: "finite ?xF"




