case zero
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
⊢ Continuous fun a => a ^ Nat.zero

case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
⊢ Continuous fun a => a ^ Nat.succ n
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
⊢ Continuous fun a => a ^ n
induction' n with n IH
case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
⊢ ∀ (x : ℝ≥0∞), ContinuousAt (fun a => a ^ n * a) x
case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
⊢ Continuous fun a => a ^ Nat.succ n
simp_rw [Nat.succ_eq_add_one, pow_add, pow_one, continuous_iff_continuousAt]
case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
⊢ ContinuousAt (fun a => a ^ n * a) x
case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
⊢ ∀ (x : ℝ≥0∞), ContinuousAt (fun a => a ^ n * a) x
intro x
case pos
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : x = 0
⊢ x ^ n ≠ 0 ∨ x ≠ ⊤

case neg
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : ¬x = 0
⊢ x ^ n ≠ 0 ∨ x ≠ ⊤

case pos
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : x = 0
⊢ x ≠ 0 ∨ x ^ n ≠ ⊤

case neg
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : ¬x = 0
⊢ x ≠ 0 ∨ x ^ n ≠ ⊤
case succ
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
⊢ ContinuousAt (fun a => a ^ n * a) x
refine' ENNReal.Tendsto.mul (IH.tendsto _) _ tendsto_id _ <;> by_cases H : x = 0
no goals
case zero
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
⊢ Continuous fun a => a ^ Nat.zero
simp [continuous_const]
no goals
case pos
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : x = 0
⊢ x ^ n ≠ 0 ∨ x ≠ ⊤
simp only [H, zero_ne_top, Ne.def, or_true_iff, not_false_iff]
no goals
case neg
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : ¬x = 0
⊢ x ^ n ≠ 0 ∨ x ≠ ⊤
exact Or.inl fun h => H (pow_eq_zero h)
no goals
case pos
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : x = 0
⊢ x ≠ 0 ∨ x ^ n ≠ ⊤
simp only [H, pow_eq_top_iff, zero_ne_top, false_or_iff, eq_self_iff_true, not_true, Ne.def,
  not_false_iff, false_and_iff]
no goals
case neg
α : Type ?u.105152
β : Type ?u.105155
γ : Type ?u.105158
a b c d : ℝ≥0∞
r p q : ℝ≥0
x✝ y z ε ε₁ ε₂ : ℝ≥0∞
s : Set ℝ≥0∞
n : ℕ
IH : Continuous fun a => a ^ n
x : ℝ≥0∞
H : ¬x = 0
⊢ x ≠ 0 ∨ x ^ n ≠ ⊤
simp only [H, true_or_iff, Ne.def, not_false_iff]