equal
deleted
inserted
replaced
1584 with eq show ?thesis |
1584 with eq show ?thesis |
1585 by (auto simp add: measure_of_def intro!: arg_cong[where f=Abs_measure]) |
1585 by (auto simp add: measure_of_def intro!: arg_cong[where f=Abs_measure]) |
1586 qed |
1586 qed |
1587 |
1587 |
1588 lemma |
1588 lemma |
1589 shows space_measure_of_conv: "space (measure_of \<Omega> A \<mu>) = \<Omega>" (is ?space) |
1589 shows space_measure_of_conv [simp]: "space (measure_of \<Omega> A \<mu>) = \<Omega>" (is ?space) |
1590 and sets_measure_of_conv: |
1590 and sets_measure_of_conv: |
1591 "sets (measure_of \<Omega> A \<mu>) = (if A \<subseteq> Pow \<Omega> then sigma_sets \<Omega> A else {{}, \<Omega>})" (is ?sets) |
1591 "sets (measure_of \<Omega> A \<mu>) = (if A \<subseteq> Pow \<Omega> then sigma_sets \<Omega> A else {{}, \<Omega>})" (is ?sets) |
1592 and emeasure_measure_of_conv: |
1592 and emeasure_measure_of_conv: |
1593 "emeasure (measure_of \<Omega> A \<mu>) = |
1593 "emeasure (measure_of \<Omega> A \<mu>) = |
1594 (\<lambda>B. if B \<in> sigma_sets \<Omega> A \<and> measure_space \<Omega> (sigma_sets \<Omega> A) \<mu> then \<mu> B else 0)" (is ?emeasure) |
1594 (\<lambda>B. if B \<in> sigma_sets \<Omega> A \<and> measure_space \<Omega> (sigma_sets \<Omega> A) \<mu> then \<mu> B else 0)" (is ?emeasure) |