-- Mathlib/MeasureTheory/Covering/Differentiation.lean
theorem measure_limRatioMeas_top : μ {x | v.limRatioMeas hρ x = ∞} = 0

Proof state:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
⊢ ∃ u ∈ 𝓝[{x | v.limRatioMeas hρ x = ⊤}] x, μ u = 0

Tactic:
refine ⟨s, inter_mem_nhdsWithin _ (o_open.mem_nhds xo), le_antisymm ?_ bot_le⟩

Result:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
⊢ μ s ≤ 0

Proof state:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
⊢ s ⊆ {x | ↑q < v.limRatioMeas hρ x}

Tactic:
intro y hy

Result:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
y : α
hy : y ∈ s
⊢ y ∈ {x | ↑q < v.limRatioMeas hρ x}

Proof state:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
y : α
hy : y ∈ s
this : v.limRatioMeas hρ y = ⊤
⊢ y ∈ {x | ↑q < v.limRatioMeas hρ x}

Tactic:
simp only [this, ENNReal.coe_lt_top, mem_setOf_eq]

Result:
no goals

Proof state:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
A : ∀ (q : ℝ≥0), 1 ≤ q → μ s ≤ (↑q)⁻¹ * ρ s
B : Tendsto (fun q => (↑q)⁻¹ * ρ s) atTop (𝓝 (⊤⁻¹ * ρ s))
⊢ μ s ≤ 0

Tactic:
simp only [zero_mul, ENNReal.inv_top] at B

Result:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
A : ∀ (q : ℝ≥0), 1 ≤ q → μ s ≤ (↑q)⁻¹ * ρ s
B : Tendsto (fun q => (↑q)⁻¹ * ρ s) atTop (𝓝 0)
⊢ μ s ≤ 0

Proof state:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
⊢ μ {x | v.limRatioMeas hρ x = ⊤} = 0

Tactic:
refine measure_null_of_locally_null _ fun x _ => ?_

Result:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
⊢ ∃ u ∈ 𝓝[{x | v.limRatioMeas hρ x = ⊤}] x, μ u = 0

Proof state:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
⊢ μ s ≤ 0

Tactic:
have ρs : ρ s ≠ ∞ := ((measure_mono inter_subset_right).trans_lt μo).ne

Result:
case intro.intro.intro
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
⊢ μ s ≤ 0

Proof state:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
⊢ ∀ (q : ℝ≥0), 1 ≤ q → μ s ≤ (↑q)⁻¹ * ρ s

Tactic:
intro q hq

Result:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
⊢ μ s ≤ (↑q)⁻¹ * ρ s

Proof state:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
⊢ ↑q * μ s ≤ ρ s

Tactic:
apply v.mul_measure_le_of_subset_lt_limRatioMeas hρ

Result:
α : Type u_1
inst✝⁴ : PseudoMetricSpace α
m0 : MeasurableSpace α
μ : Measure α
v : VitaliFamily μ
inst✝³ : SecondCountableTopology α
inst✝² : BorelSpace α
inst✝¹ : IsLocallyFiniteMeasure μ
ρ : Measure α
inst✝ : IsLocallyFiniteMeasure ρ
hρ : ρ ≪ μ
x : α
x✝ : x ∈ {x | v.limRatioMeas hρ x = ⊤}
o : Set α
xo : x ∈ o
o_open : IsOpen o
μo : ρ o < ⊤
s : Set α := {x | v.limRatioMeas hρ x = ⊤} ∩ o
ρs : ρ s ≠ ⊤
q : ℝ≥0
hq : 1 ≤ q
⊢ s ⊆ {x | ↑q < v.limRatioMeas hρ x}