src/HOL/Probability/Interval_Integral.thy
changeset 63092 a949b2a5f51d
parent 63040 eb4ddd18d635
child 63329 6b26c378ab35
equal deleted inserted replaced
63091:54f16a0a3069 63092:a949b2a5f51d
   333 *)
   333 *)
   334 
   334 
   335 lemma interval_integral_zero [simp]:
   335 lemma interval_integral_zero [simp]:
   336   fixes a b :: ereal
   336   fixes a b :: ereal
   337   shows"LBINT x=a..b. 0 = 0" 
   337   shows"LBINT x=a..b. 0 = 0" 
   338 using assms unfolding interval_lebesgue_integral_def einterval_eq 
   338 unfolding interval_lebesgue_integral_def einterval_eq 
   339 by simp
   339 by simp
   340 
   340 
   341 lemma interval_integral_const [intro, simp]:
   341 lemma interval_integral_const [intro, simp]:
   342   fixes a b c :: real
   342   fixes a b c :: real
   343   shows "interval_lebesgue_integrable lborel a b (\<lambda>x. c)" and "LBINT x=a..b. c = c * (b - a)" 
   343   shows "interval_lebesgue_integrable lborel a b (\<lambda>x. c)" and "LBINT x=a..b. c = c * (b - a)" 
   344 using assms unfolding interval_lebesgue_integral_def interval_lebesgue_integrable_def einterval_eq 
   344 unfolding interval_lebesgue_integral_def interval_lebesgue_integrable_def einterval_eq 
   345 by (auto simp add:  less_imp_le field_simps measure_def)
   345 by (auto simp add:  less_imp_le field_simps measure_def)
   346 
   346 
   347 lemma interval_integral_cong_AE:
   347 lemma interval_integral_cong_AE:
   348   assumes [measurable]: "f \<in> borel_measurable borel" "g \<in> borel_measurable borel"
   348   assumes [measurable]: "f \<in> borel_measurable borel" "g \<in> borel_measurable borel"
   349   assumes "AE x \<in> einterval (min a b) (max a b) in lborel. f x = g x"
   349   assumes "AE x \<in> einterval (min a b) (max a b) in lborel. f x = g x"