Theorem: MeasureTheory.tendsto_measure_biInter_gt
File: Mathlib/MeasureTheory/Measure/MeasureSpace.lean

Proof steps:
state_before: α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
⊢ Tendsto (⇑μ ∘ s) (𝓝[>] a) (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
state_after: case refine_1
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
l : ℝ≥0∞
hl : l < μ (⋂ r, ⋂ (_ : r > a), s r)
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, l < (⇑μ ∘ s) b

case refine_2
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
tactic: refine tendsto_order.2 ⟨fun l hl => ?_, fun L hL => ?_⟩
state_before: case refine_2
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
state_after: case refine_2.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
tactic: obtain ⟨u, u_anti, u_pos, u_lim⟩ :
    ∃ u : ℕ → ι, StrictAnti u ∧ (∀ n : ℕ, a < u n) ∧ Tendsto u atTop (𝓝 a) := by
    rcases hf with ⟨r, ar, _⟩
    rcases exists_seq_strictAnti_tendsto' ar with ⟨w, w_anti, w_mem, w_lim⟩
    exact ⟨w, w_anti, fun n => (w_mem n).1, w_lim⟩
state_before: case refine_2.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ n, s (u n))))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
state_after: case refine_2.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
tactic: rw [B] at A
state_before: case refine_2.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
state_after: case refine_2.intro.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
n : ℕ
hn : μ (s (u n)) < L
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
tactic: obtain ⟨n, hn⟩ : ∃ n, μ (s (u n)) < L := ((tendsto_order.1 A).2 _ hL).exists
state_before: case refine_2.intro.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
n : ℕ
hn : μ (s (u n)) < L
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
state_after: case refine_2.intro.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
n : ℕ
hn : μ (s (u n)) < L
this : Ioc a (u n) ∈ 𝓝[>] a
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
tactic: have : Ioc a (u n) ∈ 𝓝[>] a := Ioc_mem_nhdsWithin_Ioi ⟨le_rfl, u_pos n⟩
state_before: case refine_2.intro.intro.intro.intro
α : Type u_1
β : Type u_2
γ : Type u_3
δ : Type u_4
ι✝ : Type u_5
R : Type u_6
R' : Type u_7
m : MeasurableSpace α
μ μ₁ μ₂ : Measure α
s✝ s₁ s₂ t : Set α
ι : Type u_8
inst✝⁴ : LinearOrder ι
inst✝³ : TopologicalSpace ι
inst✝² : OrderTopology ι
inst✝¹ : DenselyOrdered ι
inst✝ : FirstCountableTopology ι
s : ι → Set α
a : ι
hs : ∀ r > a, MeasurableSet (s r)
hm : ∀ (i j : ι), a < i → i ≤ j → s i ⊆ s j
hf : ∃ r > a, μ (s r) ≠ ⊤
L : ℝ≥0∞
hL : L > μ (⋂ r, ⋂ (_ : r > a), s r)
u : ℕ → ι
u_anti : StrictAnti u
u_pos : ∀ (n : ℕ), a < u n
u_lim : Tendsto u atTop (𝓝 a)
A : Tendsto (⇑μ ∘ s ∘ u) atTop (𝓝 (μ (⋂ r, ⋂ (_ : r > a), s r)))
B : ⋂ n, s (u n) = ⋂ r, ⋂ (_ : r > a), s r
n : ℕ
hn : μ (s (u n)) < L
this : Ioc a (u n) ∈ 𝓝[>] a
⊢ ∀ᶠ (b : ι) in 𝓝[>] a, (⇑μ ∘ s) b < L
state_after: no goals
tactic: filter_upwards [this] with r hr using lt_of_le_of_lt (measure_mono (hm _ _ hr.1 hr.2)) hn