equal
deleted
inserted
replaced
2349 using measurable_sets[OF f `A \<in> sets N`] \<Omega> by blast |
2349 using measurable_sets[OF f `A \<in> sets N`] \<Omega> by blast |
2350 finally show "f -` A \<inter> space (restrict_space M \<Omega>) \<in> sets (restrict_space M \<Omega>)" . |
2350 finally show "f -` A \<inter> space (restrict_space M \<Omega>) \<in> sets (restrict_space M \<Omega>)" . |
2351 qed |
2351 qed |
2352 |
2352 |
2353 lemma measurable_restrict_space2: |
2353 lemma measurable_restrict_space2: |
2354 "\<Omega> \<in> sets N \<Longrightarrow> f \<in> space M \<rightarrow> \<Omega> \<Longrightarrow> f \<in> measurable M N \<Longrightarrow> |
2354 "\<Omega> \<inter> space N \<in> sets N \<Longrightarrow> f \<in> space M \<rightarrow> \<Omega> \<Longrightarrow> f \<in> measurable M N \<Longrightarrow> |
2355 f \<in> measurable M (restrict_space N \<Omega>)" |
2355 f \<in> measurable M (restrict_space N \<Omega>)" |
2356 by (simp add: measurable_def space_restrict_space sets_restrict_space_iff) |
2356 by (simp add: measurable_def space_restrict_space sets_restrict_space_iff Pi_Int[symmetric]) |
2357 |
2357 |
2358 end |
2358 end |
2359 |
2359 |