src/HOL/Probability/Sigma_Algebra.thy
changeset 57137 f174712d0a84
parent 57025 e7fd64f82876
child 57138 7b3146180291
equal deleted inserted replaced
57136:653e56c6c963 57137:f174712d0a84
  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