Theorem: MeasureTheory.Measure.countable_meas_pos_of_disjoint_iUnion₀
File: Mathlib/MeasureTheory/Measure/Typeclasses.lean

tactic: rw [← sum_sFiniteSeq μ] at As_disj As_mble ⊢
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) μ
As_disj : Pairwise (AEDisjoint μ on As)
⊢ {i | 0 < μ (As i)}.Countable
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
⊢ {i | 0 < (sum (sFiniteSeq μ)) (As i)}.Countable

tactic: apply Countable.mono obs
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
⊢ {i | 0 < (sum (sFiniteSeq μ)) (As i)}.Countable
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
⊢ (⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}).Countable

tactic: refine countable_iUnion fun n ↦ ?_
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
⊢ (⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}).Countable
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ {i | 0 < (sFiniteSeq μ n) (As i)}.Countable

tactic: apply countable_meas_pos_of_disjoint_of_meas_iUnion_ne_top₀
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ {i | 0 < (sFiniteSeq μ n) (As i)}.Countable
state_after: case As_mble
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ ∀ (i : ι), NullMeasurableSet (As i) (sFiniteSeq μ n)

case As_disj
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ Pairwise (AEDisjoint (sFiniteSeq μ n) on As)

case Union_As_finite
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ (sFiniteSeq μ n) (⋃ i, As i) ≠ ⊤

tactic: intro i hi
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
⊢ {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : i ∈ {i | 0 < (sum (sFiniteSeq μ)) (As i)}
⊢ i ∈ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}

tactic: by_contra con
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : i ∈ {i | 0 < (sum (sFiniteSeq μ)) (As i)}
⊢ i ∈ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : i ∈ {i | 0 < (sum (sFiniteSeq μ)) (As i)}
con : i ∉ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
⊢ False

tactic: simp only [mem_iUnion, mem_setOf_eq, not_exists, not_lt, nonpos_iff_eq_zero] at *
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : i ∈ {i | 0 < (sum (sFiniteSeq μ)) (As i)}
con : i ∉ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
⊢ False
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < (sum (sFiniteSeq μ)) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ False

tactic: rw [sum_apply₀] at hi
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < (sum (sFiniteSeq μ)) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ False
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < ∑' (i_1 : ℕ), (sFiniteSeq μ i_1) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ False

case hs
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < (sum (sFiniteSeq μ)) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ NullMeasurableSet (As i) (sum (sFiniteSeq μ))

tactic: simp_rw [con] at hi
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < ∑' (i_1 : ℕ), (sFiniteSeq μ i_1) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ False
state_after: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
hi : 0 < ∑' (i : ℕ), 0
⊢ False

tactic: simp at hi
state_before: α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
hi : 0 < ∑' (i : ℕ), 0
⊢ False
state_after: no goals

tactic: exact As_mble i
state_before: case hs
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
i : ι
hi : 0 < (sum (sFiniteSeq μ)) (As i)
con : ∀ (x : ℕ), (sFiniteSeq μ x) (As i) = 0
⊢ NullMeasurableSet (As i) (sum (sFiniteSeq μ))
state_after: no goals

tactic: exact fun i ↦ (As_mble i).mono (le_sum _ _)
state_before: case As_mble
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ ∀ (i : ι), NullMeasurableSet (As i) (sFiniteSeq μ n)
state_after: no goals

tactic: exact fun i j hij ↦ AEDisjoint.of_le (As_disj hij) (le_sum _ _)
state_before: case As_disj
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ Pairwise (AEDisjoint (sFiniteSeq μ n) on As)
state_after: no goals

tactic: exact measure_ne_top _ (⋃ i, As i)
state_before: case Union_As_finite
α : Type u_1
β : Type u_2
δ : Type u_3
ι✝ : Type u_4
m0 : MeasurableSpace α
inst✝¹ : MeasurableSpace β
μ✝ ν ν₁ ν₂ : Measure α
s t : Set α
ι : Type u_5
x✝ : MeasurableSpace α
μ : Measure α
inst✝ : SFinite μ
As : ι → Set α
As_mble : ∀ (i : ι), NullMeasurableSet (As i) (sum (sFiniteSeq μ))
As_disj : Pairwise (AEDisjoint (sum (sFiniteSeq μ)) on As)
obs : {i | 0 < (sum (sFiniteSeq μ)) (As i)} ⊆ ⋃ n, {i | 0 < (sFiniteSeq μ n) (As i)}
n : ℕ
⊢ (sFiniteSeq μ n) (⋃ i, As i) ≠ ⊤
state_after: no goals