equal
deleted
inserted
replaced
3569 have "A ` {a \<in> I. k (B a) = (SUP x\<in>I. k (B x))} = {a \<in> A ` I. k a = (SUP x\<in>I. k (B x))}" |
3569 have "A ` {a \<in> I. k (B a) = (SUP x\<in>I. k (B x))} = {a \<in> A ` I. k a = (SUP x\<in>I. k (B x))}" |
3570 using assms(1) by auto |
3570 using assms(1) by auto |
3571 moreover have "B ` {a \<in> I. k (B a) = (SUP x\<in>I. k (B x))} = {a \<in> B ` I. k a = (SUP x\<in>I. k (B x))}" |
3571 moreover have "B ` {a \<in> I. k (B a) = (SUP x\<in>I. k (B x))} = {a \<in> B ` I. k a = (SUP x\<in>I. k (B x))}" |
3572 by auto |
3572 by auto |
3573 ultimately show ?thesis |
3573 ultimately show ?thesis |
3574 using assms by (auto simp: Sup_lexord_def Let_def) |
3574 using assms by (auto simp: Sup_lexord_def Let_def image_comp) |
3575 qed |
3575 qed |
3576 |
3576 |
3577 lemma sets_SUP_cong: |
3577 lemma sets_SUP_cong: |
3578 assumes eq: "\<And>i. i \<in> I \<Longrightarrow> sets (M i) = sets (N i)" shows "sets (SUP i\<in>I. M i) = sets (SUP i\<in>I. N i)" |
3578 assumes eq: "\<And>i. i \<in> I \<Longrightarrow> sets (M i) = sets (N i)" shows "sets (SUP i\<in>I. M i) = sets (SUP i\<in>I. N i)" |
3579 unfolding Sup_measure_def |
3579 unfolding Sup_measure_def |
3672 by (subst sigma_le_iff) (auto simp add: M *) |
3672 by (subst sigma_le_iff) (auto simp add: M *) |
3673 qed |
3673 qed |
3674 |
3674 |
3675 lemma SUP_sigma_sigma: |
3675 lemma SUP_sigma_sigma: |
3676 "M \<noteq> {} \<Longrightarrow> (\<And>m. m \<in> M \<Longrightarrow> f m \<subseteq> Pow \<Omega>) \<Longrightarrow> (SUP m\<in>M. sigma \<Omega> (f m)) = sigma \<Omega> (\<Union>m\<in>M. f m)" |
3676 "M \<noteq> {} \<Longrightarrow> (\<And>m. m \<in> M \<Longrightarrow> f m \<subseteq> Pow \<Omega>) \<Longrightarrow> (SUP m\<in>M. sigma \<Omega> (f m)) = sigma \<Omega> (\<Union>m\<in>M. f m)" |
3677 using Sup_sigma[of "f`M" \<Omega>] by auto |
3677 using Sup_sigma[of "f`M" \<Omega>] by (auto simp: image_comp) |
3678 |
3678 |
3679 lemma sets_vimage_Sup_eq: |
3679 lemma sets_vimage_Sup_eq: |
3680 assumes *: "M \<noteq> {}" "f \<in> X \<rightarrow> Y" "\<And>m. m \<in> M \<Longrightarrow> space m = Y" |
3680 assumes *: "M \<noteq> {}" "f \<in> X \<rightarrow> Y" "\<And>m. m \<in> M \<Longrightarrow> space m = Y" |
3681 shows "sets (vimage_algebra X f (Sup M)) = sets (SUP m \<in> M. vimage_algebra X f m)" |
3681 shows "sets (vimage_algebra X f (Sup M)) = sets (SUP m \<in> M. vimage_algebra X f m)" |
3682 (is "?IS = ?SI") |
3682 (is "?IS = ?SI") |