awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (hypothesis)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
⊢ 0 < (p.rightInv i x).radius
have IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
Tactic: have IRec : ∀ n, 1 ≤ n → S n ≤ (I + 1) * a := by
    apply Nat.le_induction
    · simp only [S]
      rw [Ico_eq_empty_of_le (le_refl 1), sum_empty]
      positivity
    · intro n one_le_n hn
      have In : 2 ≤ n + 1 := by lia
      have rSn : r * S n ≤ 1 / 2 :=
        calc
          r * S n ≤ r * ((I + 1) * a) := by gcongr
          _ ≤ 1 / 2 := by rwa [← mul_assoc]
      calc
        S (n + 1) ≤ I * a + I * C * ∑ k ∈ Ico 2 (n + 1), (r * S n) ^ k :=
          radius_rightInv_pos_of_radius_pos_aux2 In p i rpos.le apos.le Cpos.le ple
        _ = I * a + I * C * (((r * S n) ^ 2 - (r * S n) ^ (n + 1)) / (1 - r * S n)) := by
          rw [geom_sum_Ico' _ In]; exact ne_of_lt (rSn.trans_lt (by norm_num))
        _ ≤ I * a + I * C * ((r * S n) ^ 2 / (1 / 2)) := by
          gcongr
          · simp only [sub_le_self_iff]
            positivity
          · linarith only [rSn]
        _ = I * a + 2 * I * C * (r * S n) ^ 2 := by ring
        _ ≤ I * a + 2 * I * C * (r * ((I + 1) * a)) ^ 2 := by gcongr
        _ = (I + 2 * I * C * r ^ 2 * (I + 1) ^ 2 * a) * a := by ring
        _ ≤ (I + 1) * a := by gcongr
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
a' : NNReal := Subtype.mk (p := fun (r : ℝ) ↦ 0 ≤ r) a ⋯
H : (↑a' : ℝ≥0∞) ≤ (p.rightInv i x).radius
⊢ 0 < (p.rightInv i x).radius
have apply : 0 < (↑a' : ℝ≥0∞)
Tactic: apply lt_of_lt_of_le _ H
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
a' : NNReal := Subtype.mk (p := fun (r : ℝ) ↦ 0 ≤ r) a ⋯
⊢ 0 < (p.rightInv i x).radius
have suffices : (↑a' : ℝ≥0∞) ≤ (p.rightInv i x).radius
Tactic: suffices H : (a' : ENNReal) ≤ (p.rightInv i x).radius by
    apply lt_of_lt_of_le _ H
    -- Prior to https://github.com/leanprover/lean4/pull/2734, this was `exact_mod_cast apos`.
    simpa only [ENNReal.coe_pos]
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
a' : NNReal := Subtype.mk (p := fun (r : ℝ) ↦ 0 ≤ r) a ⋯
⊢ (↑a' : ℝ≥0∞) ≤ (p.rightInv i x).radius
have apply : ∀ᶠ (n : ℕ) in atTop, ‖p.rightInv i x n‖ * (↑a' : ℝ) ^ n ≤ (I + 1) * a
Tactic: apply le_radius_of_eventually_le _ ((I + 1) * a)
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
a' : NNReal := Subtype.mk (p := fun (r : ℝ) ↦ 0 ≤ r) a ⋯
n : ℕ
⊢ Membership.mem (γ := Set ℕ) (Set.Ici 1) n → ‖p.rightInv i x n‖ * (↑a' : ℝ) ^ n ≤ (I + 1) * a
have h : ∀ (hn : 1 ≤ n), ‖p.rightInv i x n‖ * (↑a' : ℝ) ^ n ≤ (I + 1) * a
Tactic: (hn : 1 ≤ n)
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
C r : ℝ
Cpos : 0 < C
rpos : 0 < r
ple : ∀ (n : ℕ), ‖p n‖ ≤ C * r ^ n
I : ℝ := ‖(↑i.symm : F →L[𝕜] E)‖
a : ℝ
apos : 0 < a
ha1 : 2 * I * C * HPow.hPow (β := ℕ) r 2 * HPow.hPow (β := ℕ) (I + 1) 2 * a ≤ 1
ha2 : r * (I + 1) * a ≤ 1 / 2
S : (n : ℕ) → ℝ := fun (n : ℕ) ↦ ∑ k ∈ Ico 1 n, a ^ k * ‖p.rightInv i x k‖
IRec : ∀ (n : ℕ), 1 ≤ n → S n ≤ (I + 1) * a
a' : NNReal := Subtype.mk (p := fun (r : ℝ) ↦ 0 ≤ r) a ⋯
⊢ ∀ᶠ (n : ℕ) in atTop, ‖p.rightInv i x n‖ * (↑a' : ℝ) ^ n ≤ (I + 1) * a
have h : ∀ (n : ℕ) (hn : 1 ≤ n), ‖p.rightInv i x n‖ * (↑a' : ℝ) ^ n ≤ (I + 1) * a
Tactic: filter_upwards [Ici_mem_atTop 1] with n (hn : 1 ≤ n)
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
p : FormalMultilinearSeries 𝕜 E F
i : E ≃L[𝕜] F
x : E
hp : 0 < p.radius
h :
  Eq (α := ContinuousMultilinearMap.{u_1, 0, u_2, u_3} 𝕜 (fun (i : Fin 1) ↦ E) F) (p 1)
    ((LinearIsometryEquiv.symm (continuousMultilinearCurryFin1 𝕜 E F) :
        (a : E →L[𝕜] F) → ContinuousMultilinearMap 𝕜 (fun (i : Fin 1) ↦ E) F)
      (↑i : E →L[𝕜] F))
⊢ 0 < (p.leftInv i x).radius
have rw : 0 < (p.rightInv i x).radius
Tactic: rw [leftInv_eq_rightInv _ _ _ h]
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hf : HasFPowerSeriesAt f (q.comp p) x
hq : 0 < q.radius
hp : 0 < p.radius
⊢ ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
have rcases : ∀ (r0 : ℝ≥0∞) (h0 : HasFPowerSeriesOnBall f (q.comp p) x r0),
  ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
Tactic: rcases hf with ⟨r0, h0⟩
Cleared hypotheses: hf
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
⊢ ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
have rcases : ∀ (r1 : NNReal) (r1_pos : 0 < r1)
  (hr1 :
    Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
      ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
        r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)),
  ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
Tactic: rcases q.comp_summable_nnreal p hq hp with ⟨r1, r1_pos : 0 < r1, hr1⟩
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (hypothesis)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
⊢ ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
have this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
Tactic: have : Metric.eball (0 : E) r ∈ 𝓝 0 :=
    Metric.eball_mem_nhds 0 (lt_min h0.r_pos (by exact_mod_cast r1_pos))
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
⊢ ∀ᶠ (y : E) in 𝓝 0,
    Tendsto
      (fun (a : ℕ × ℕ) ↦
        q.partialSum a.1
          (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
      atTop (𝓝 (f (x + y)))
have h : ∀ (y : E) (hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y),
  Tendsto
    (fun (a : ℕ × ℕ) ↦
      q.partialSum a.1
        (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
    atTop (𝓝 (f (x + y)))
Tactic: filter_upwards [this] with y hy
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (hypothesis)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
⊢ Tendsto
    (fun (a : ℕ × ℕ) ↦
      q.partialSum a.1
        (HSub.hSub (β := F) (p.partialSum a.2 y) ((p 0 : (a : (i : Fin 0) → E) → F) fun (x : Fin 0) ↦ 0 : F)))
    atTop (𝓝 (f (x + y)))
have hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
Tactic: have hy0 : y ∈ Metric.eball 0 r0 := Metric.eball_subset_eball (min_le_left _ _) hy
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
⊢ CauchySeq.{u_4, 0} (α := G) fun (s : Finset ((n : ℕ) × Composition n)) ↦
    ∑ i ∈ s,
      (q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n)) : (a : (i : Fin i.fst) → E) → G)
        fun (_j : Fin (i.fst (β := fun (n : ℕ) ↦ Composition n))) ↦ y
have apply : ∀ (i : (n : ℕ) × Composition n),
  norm.{u_4} (E := G)
      ((q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n)) : (a : (i : Fin i.fst) → E) → G)
          fun (_j : Fin (i.fst (β := fun (n : ℕ) ↦ Composition n))) ↦ y :
        G) ≤
    (↑(‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
          r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)) :
      ℝ)
Tactic: apply cauchySeq_finset_of_norm_bounded (NNReal.summable_coe.2 hr1) _
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
⊢ ‖q.compAlongComposition p c‖ * ∏ _j : Fin n, ‖y‖ ≤ ‖q.compAlongComposition p c‖ * (↑r1 : ℝ) ^ n
have apply : ∏ _j : Fin n, ‖y‖ ≤ (↑r1 : ℝ) ^ n
Tactic: apply mul_le_mul_of_nonneg_left _ (norm_nonneg _)
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
⊢ ∏ _j : Fin n, ‖y‖ ≤ (↑r1 : ℝ) ^ n
have rw : ‖y‖ ^ n ≤ (↑r1 : ℝ) ^ n
Tactic: rw [Finset.prod_const, Finset.card_fin]
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
⊢ ‖y‖ ^ n ≤ (↑r1 : ℝ) ^ n
have hab : ‖y‖ ≤ (↑r1 : ℝ)
Tactic: gcongr
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : Membership.mem (γ := Set E) (Metric.eball 0 r) y
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
⊢ ‖y‖ ≤ (↑r1 : ℝ)
have hab : ∀ (hy : ‖y‖ₑ < r) (hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y) (n : ℕ) (c : Composition n), ‖y‖ ≤ (↑r1 : ℝ)
Tactic: rw [Metric.mem_eball, edist_zero_right] at hy
Cleared hypotheses: hy, hy0, n, c
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (hypothesis)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : ‖y‖ₑ < r
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
⊢ ‖y‖ ≤ (↑r1 : ℝ)
have this₁ : ‖y‖ₑ ≤ (↑r1 : ℝ≥0∞)
Tactic: have := le_trans (le_of_lt hy) (min_le_right _ _)
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this_1 : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : ‖y‖ₑ < r
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
this : ‖y‖ₑ ≤ (↑r1 : ℝ≥0∞)
⊢ ‖y‖ ≤ (↑r1 : ℝ)
have hab : ∀ (this : ‖y‖₊ ≤ r1), ‖y‖ ≤ (↑r1 : ℝ)
Tactic: rwa [enorm_le_coe, ← NNReal.coe_le_coe, coe_nnnorm] at this
Cleared hypotheses: this
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this_1 : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : ‖y‖ₑ < r
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
this : ‖y‖ₑ ≤ (↑r1 : ℝ≥0∞)
hab : ∀ (this : ‖y‖₊ ≤ r1), ‖y‖ ≤ (↑r1 : ℝ)
⊢ ‖y‖ ≤ (↑r1 : ℝ)
have hab₁ : ∀ (this : (↑‖y‖₊ : ℝ) ≤ (↑r1 : ℝ)), ‖y‖ ≤ (↑r1 : ℝ)
Tactic: rwa [enorm_le_coe, ← NNReal.coe_le_coe, coe_nnnorm] at this
Cleared hypotheses: this
-- Lean 4 proof step from Mathlib.Analysis.Analytic.Inverse (goal)
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
E : Type u_2
inst_1 : NormedAddCommGroup E
inst_2 : NormedSpace 𝕜 E
F : Type u_3
inst_3 : NormedAddCommGroup F
inst_4 : NormedSpace 𝕜 F
G : Type u_4
inst_5 : NormedAddCommGroup G
inst_6 : NormedSpace 𝕜 G
f : E → G
q : FormalMultilinearSeries 𝕜 F G
p : FormalMultilinearSeries 𝕜 E F
x : E
hq : 0 < q.radius
hp : 0 < p.radius
r0 : ℝ≥0∞
h0 : HasFPowerSeriesOnBall f (q.comp p) x r0
r1 : NNReal
r1_pos : 0 < r1
hr1 :
  Summable (α := NNReal) fun (i : (n : ℕ) × Composition n) ↦
    ‖q.compAlongComposition p (i.snd (β := fun (n : ℕ) ↦ Composition n))‖₊ *
      r1 ^ i.fst (β := fun (n : ℕ) ↦ Composition n)
r : ℝ≥0∞ := min r0 (↑r1 : ℝ≥0∞)
this_1 : Membership.mem (γ := Filter E) (𝓝 0) (Metric.eball 0 r)
y : E
hy : ‖y‖ₑ < r
hy0 : Membership.mem (γ := Set E) (Metric.eball 0 r0) y
n : ℕ
c : Composition n
this : ‖y‖ₑ ≤ (↑r1 : ℝ≥0∞)
hab : ∀ (this : ‖y‖₊ ≤ r1), ‖y‖ ≤ (↑r1 : ℝ)
hab₁ : ∀ (this : (↑‖y‖₊ : ℝ) ≤ (↑r1 : ℝ)), ‖y‖ ≤ (↑r1 : ℝ)
⊢ ‖y‖ ≤ (↑r1 : ℝ)
have hab₂ : ∀ (this : ‖y‖ ≤ (↑r1 : ℝ)), ‖y‖ ≤ (↑r1 : ℝ)
Tactic: rwa [enorm_le_coe, ← NNReal.coe_le_coe, coe_nnnorm] at this
Cleared hypotheses: this