changeset 40786 | 0a54cfc9add3 |
parent 35849 | b5522b51cb1e |
child 41433 | 1b8ff770f02c |
--- a/src/HOL/Algebra/FiniteProduct.thy Sat Nov 27 17:44:36 2010 -0800 +++ b/src/HOL/Algebra/FiniteProduct.thy Sun Nov 28 15:20:51 2010 +0100 @@ -130,7 +130,7 @@ apply (rule Suc_le_mono [THEN subst]) apply (simp add: card_Suc_Diff1) apply (rule_tac A1 = "Aa - {xb}" in finite_imp_foldSetD [THEN exE]) - apply (blast intro: foldSetD_imp_finite finite_Diff) + apply (blast intro: foldSetD_imp_finite) apply best apply assumption apply (frule (1) Diff1_foldSetD)