-- Mathlib/MeasureTheory/Function/LpSpace/Basic.lean
theorem tendsto_indicatorConstLp_set [hp₁ : Fact (1 ≤ p)] {β : Type*} {l : Filter β} {t : β → Set α}
    {ht : ∀ b, MeasurableSet (t b)} {hμt : ∀ b, μ (t b) ≠ ∞} (hp : p ≠ ∞)
    (h : Tendsto (fun b ↦ μ (t b ∆ s)) l (𝓝 0)) :
    Tendsto (fun b ↦ indicatorConstLp p (ht b) (hμt b) c) l (𝓝 (indicatorConstLp p hs hμs c))

Proof state:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
⊢ Tendsto (fun b => indicatorConstLp p ⋯ ⋯ c) l (𝓝 (indicatorConstLp p hs hμs c))

Tactic:
rw [tendsto_iff_dist_tendsto_zero]

Result:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
⊢ Tendsto (fun b => dist (indicatorConstLp p ⋯ ⋯ c) (indicatorConstLp p hs hμs c)) l (𝓝 0)

Proof state:
case convert_3
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ ENNReal.toReal 0 ≠ 0 ∨ 0 ≤ 1 / p.toReal

Tactic:
simp

Result:
no goals

Proof state:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ Tendsto (fun b => dist (indicatorConstLp p ⋯ ⋯ c) (indicatorConstLp p hs hμs c)) l (𝓝 0)

Tactic:
simp only [dist_indicatorConstLp_eq_norm, norm_indicatorConstLp hp₀ hp]

Result:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ Tendsto (fun b => ‖c‖ * (μ (t b ∆ s)).toReal ^ (1 / p.toReal)) l (𝓝 0)

Proof state:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
⊢ Tendsto (fun b => dist (indicatorConstLp p ⋯ ⋯ c) (indicatorConstLp p hs hμs c)) l (𝓝 0)

Tactic:
have hp₀ : p ≠ 0 := (one_pos.trans_le hp₁.out).ne'

Result:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ Tendsto (fun b => dist (indicatorConstLp p ⋯ ⋯ c) (indicatorConstLp p hs hμs c)) l (𝓝 0)

Proof state:
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ Tendsto (fun b => ‖c‖ * (μ (t b ∆ s)).toReal ^ (1 / p.toReal)) l (𝓝 0)

Tactic:
convert tendsto_const_nhds.mul
  (((ENNReal.tendsto_toReal ENNReal.zero_ne_top).comp h).rpow_const _)

Result:
case h.e'_5.h.e'_3
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ 0 = ‖c‖ * ENNReal.toReal 0 ^ (1 / p.toReal)

case convert_3
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ ENNReal.toReal 0 ≠ 0 ∨ 0 ≤ 1 / p.toReal

Proof state:
case h.e'_5.h.e'_3
α : Type u_1
E : Type u_4
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝ : NormedAddCommGroup E
s : Set α
hs : MeasurableSet s
hμs : μ s ≠ ⊤
c : E
hp₁ : Fact (1 ≤ p)
β : Type u_7
l : Filter β
t : β → Set α
ht : ∀ (b : β), MeasurableSet (t b)
hμt : ∀ (b : β), μ (t b) ≠ ⊤
hp : p ≠ ⊤
h : Tendsto (fun b => μ (t b ∆ s)) l (𝓝 0)
hp₀ : p ≠ 0
⊢ 0 = ‖c‖ * ENNReal.toReal 0 ^ (1 / p.toReal)

Tactic:
simp [Real.rpow_eq_zero_iff_of_nonneg, ENNReal.toReal_eq_zero_iff, hp, hp₀]

Result:
no goals