diff -r 8d7cec9b861d -r 7dc8ac6f0895 src/HOL/Probability/Convolution.thy --- a/src/HOL/Probability/Convolution.thy Mon Nov 24 12:20:35 2014 +0100 +++ b/src/HOL/Probability/Convolution.thy Mon Nov 24 12:20:14 2014 +0100 @@ -23,7 +23,7 @@ lemma nn_integral_convolution: assumes "finite_measure M" "finite_measure N" - assumes [simp]: "sets N = sets borel" "sets M = sets borel" + assumes [measurable_cong]: "sets N = sets borel" "sets M = sets borel" assumes [measurable]: "f \ borel_measurable borel" shows "(\\<^sup>+x. f x \convolution M N) = (\\<^sup>+x. \\<^sup>+y. f (x + y) \N \M)" proof - @@ -53,7 +53,7 @@ lemma convolution_finite: assumes [simp]: "finite_measure M" "finite_measure N" - assumes [simp]: "sets N = sets borel" "sets M = sets borel" + assumes [measurable_cong]: "sets N = sets borel" "sets M = sets borel" shows "finite_measure (M \ N)" unfolding convolution_def by (intro finite_measure_pair_measure finite_measure.finite_measure_distr) auto @@ -71,7 +71,7 @@ lemma convolution_emeasure_3': assumes [simp, measurable]:"A \ sets borel" assumes [simp]: "finite_measure M" "finite_measure N" "finite_measure L" - assumes [simp]: "sets N = sets borel" "sets M = sets borel" "sets L = sets borel" + assumes [measurable_cong, simp]: "sets N = sets borel" "sets M = sets borel" "sets L = sets borel" shows "emeasure ((L \ M) \ N ) A = \\<^sup>+x. \\<^sup>+y. \\<^sup>+z. indicator A (x + y + z) \N \M \L" apply (subst nn_integral_indicator[symmetric], simp)+ apply (subst nn_integral_convolution) @@ -82,7 +82,7 @@ lemma convolution_commutative: assumes [simp]: "finite_measure M" "finite_measure N" - assumes [simp]: "sets N = sets borel" "sets M = sets borel" + assumes [measurable_cong, simp]: "sets N = sets borel" "sets M = sets borel" shows "(M \ N) = (N \ M)" proof (rule measure_eqI) interpret M: finite_measure M by fact