equal
deleted
inserted
replaced
4736 unfolding connected_component_def |
4736 unfolding connected_component_def |
4737 proof clarify |
4737 proof clarify |
4738 fix T |
4738 fix T |
4739 assume "connected T" and TB: "T \<subseteq> - frontier B" and "a \<in> T" and "b \<in> T" |
4739 assume "connected T" and TB: "T \<subseteq> - frontier B" and "a \<in> T" and "b \<in> T" |
4740 have "a \<notin> B" |
4740 have "a \<notin> B" |
4741 by (metis A_def B_def ComplD \<open>a \<in> A\<close> assms(1) closed_open connected_component_subset in_closure_connected_component set_mp) |
4741 by (metis A_def B_def ComplD \<open>a \<in> A\<close> assms(1) closed_open connected_component_subset in_closure_connected_component subsetD) |
4742 have "T \<inter> B \<noteq> {}" |
4742 have "T \<inter> B \<noteq> {}" |
4743 using \<open>b \<in> B\<close> \<open>b \<in> T\<close> by blast |
4743 using \<open>b \<in> B\<close> \<open>b \<in> T\<close> by blast |
4744 moreover have "T - B \<noteq> {}" |
4744 moreover have "T - B \<noteq> {}" |
4745 using \<open>a \<notin> B\<close> \<open>a \<in> T\<close> by blast |
4745 using \<open>a \<notin> B\<close> \<open>a \<in> T\<close> by blast |
4746 ultimately show "False" |
4746 ultimately show "False" |