src/HOL/Probability/Interval_Integral.thy
changeset 59867 58043346ca64
parent 59587 8ea7b22525cb
child 61609 77b453bd616f
equal deleted inserted replaced
59866:eebe69f31474 59867:58043346ca64
   218   shows "(c \<noteq> 0 \<Longrightarrow> interval_lebesgue_integrable M a b f) \<Longrightarrow>
   218   shows "(c \<noteq> 0 \<Longrightarrow> interval_lebesgue_integrable M a b f) \<Longrightarrow>
   219     interval_lebesgue_integrable M a b (\<lambda>x. f x * c)"
   219     interval_lebesgue_integrable M a b (\<lambda>x. f x * c)"
   220   by (simp add: interval_lebesgue_integrable_def)
   220   by (simp add: interval_lebesgue_integrable_def)
   221 
   221 
   222 lemma interval_lebesgue_integrable_divide [intro, simp]:
   222 lemma interval_lebesgue_integrable_divide [intro, simp]:
   223   fixes M a b c and f :: "real \<Rightarrow> 'a::{banach, real_normed_field, field_inverse_zero, second_countable_topology}"
   223   fixes M a b c and f :: "real \<Rightarrow> 'a::{banach, real_normed_field, field, second_countable_topology}"
   224   shows "(c \<noteq> 0 \<Longrightarrow> interval_lebesgue_integrable M a b f) \<Longrightarrow>
   224   shows "(c \<noteq> 0 \<Longrightarrow> interval_lebesgue_integrable M a b f) \<Longrightarrow>
   225     interval_lebesgue_integrable M a b (\<lambda>x. f x / c)"
   225     interval_lebesgue_integrable M a b (\<lambda>x. f x / c)"
   226   by (simp add: interval_lebesgue_integrable_def)
   226   by (simp add: interval_lebesgue_integrable_def)
   227 
   227 
   228 lemma interval_lebesgue_integral_mult_right [simp]:
   228 lemma interval_lebesgue_integral_mult_right [simp]:
   236   shows "interval_lebesgue_integral M a b (\<lambda>x. f x * c) =
   236   shows "interval_lebesgue_integral M a b (\<lambda>x. f x * c) =
   237     interval_lebesgue_integral M a b f * c"
   237     interval_lebesgue_integral M a b f * c"
   238   by (simp add: interval_lebesgue_integral_def)
   238   by (simp add: interval_lebesgue_integral_def)
   239 
   239 
   240 lemma interval_lebesgue_integral_divide [simp]:
   240 lemma interval_lebesgue_integral_divide [simp]:
   241   fixes M a b c and f :: "real \<Rightarrow> 'a::{banach, real_normed_field, field_inverse_zero, second_countable_topology}"
   241   fixes M a b c and f :: "real \<Rightarrow> 'a::{banach, real_normed_field, field, second_countable_topology}"
   242   shows "interval_lebesgue_integral M a b (\<lambda>x. f x / c) =
   242   shows "interval_lebesgue_integral M a b (\<lambda>x. f x / c) =
   243     interval_lebesgue_integral M a b f / c"
   243     interval_lebesgue_integral M a b f / c"
   244   by (simp add: interval_lebesgue_integral_def)
   244   by (simp add: interval_lebesgue_integral_def)
   245 
   245 
   246 lemma interval_lebesgue_integral_uminus:
   246 lemma interval_lebesgue_integral_uminus: