# HG changeset patch # User hoelzl # Date 1291661693 -3600 # Node ID 8b2cd85ecf11914f13c119e775ad83cf2205e4ec # Parent ba961a606c67763a50099afed96540c2ca6c56c0 fixed spelling errors diff -r ba961a606c67 -r 8b2cd85ecf11 src/HOL/Probability/Borel_Space.thy --- a/src/HOL/Probability/Borel_Space.thy Mon Dec 06 19:54:48 2010 +0100 +++ b/src/HOL/Probability/Borel_Space.thy Mon Dec 06 19:54:53 2010 +0100 @@ -776,7 +776,7 @@ "(f::'a \ real) \ borel_measurable M = (\a. {w \ space M. a < f w} \ sets M)" using borel_measurable_iff_halfspace_greater[where 'c=real] by simp -lemma borel_measureable_euclidean_component: +lemma borel_measurable_euclidean_component: "(\x::'a::euclidean_space. x $$ i) \ borel_measurable borel" unfolding borel_def[where 'a=real] proof (rule borel.measurable_sigma, simp_all) @@ -786,14 +786,14 @@ by (auto intro: borel_open) qed -lemma (in sigma_algebra) borel_measureable_euclidean_space: +lemma (in sigma_algebra) borel_measurable_euclidean_space: fixes f :: "'a \ 'c::ordered_euclidean_space" shows "f \ borel_measurable M \ (\ix. f x $$ i) \ borel_measurable M)" proof safe fix i assume "f \ borel_measurable M" then show "(\x. f x $$ i) \ borel_measurable M" using measurable_comp[of f _ _ "\x. x $$ i", unfolded comp_def] - by (auto intro: borel_measureable_euclidean_component) + by (auto intro: borel_measurable_euclidean_component) next assume f: "\ix. f x $$ i) \ borel_measurable M" then show "f \ borel_measurable M" @@ -1323,7 +1323,7 @@ lemma (in sigma_algebra) borel_measurable_pextreal_add[intro, simp]: fixes f :: "'a \ pextreal" - assumes measure: "f \ borel_measurable M" "g \ borel_measurable M" + assumes "f \ borel_measurable M" "g \ borel_measurable M" shows "(\x. f x + g x) \ borel_measurable M" proof - have *: "(\x. f x + g x) =