changeset 76836 | 30182f9e1818 |
parent 74123 | 7c5842b06114 |
child 76837 | d908a7d3ed1b |
--- a/src/HOL/Analysis/Path_Connected.thy Sat Dec 31 11:09:19 2022 +0000 +++ b/src/HOL/Analysis/Path_Connected.thy Sun Jan 01 00:45:55 2023 +0000 @@ -2497,7 +2497,7 @@ by (simp add: inner_commute) qed obtain S :: "'a set" where "S \<subseteq> Basis" and "card S = Suc (Suc 0)" - using ex_card[OF assms] + using obtain_subset_with_card_n[OF assms] by auto then obtain b0 b1 :: 'a where "b0 \<in> Basis" and "b1 \<in> Basis" and "b0 \<noteq> b1" unfolding card_Suc_eq by auto