awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
rwa :
  ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
          ((f : (a : E) → F) x : F) -
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖
rwa₁ :
  ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
          ((f : (a : E) → F) x : F) -
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') 1 y‖
rwa₂ : d ≠ 0
⊢ ‖HSub.hSub (α := F) ((f : (a : E) → F) (HSMul.hSMul.{u_1, u_3, u_3} (α := 𝕜) ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) x) : F)
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖
have rwa₃ : ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
        ((f : (a : E) → F) x : F) -
      y‖ =
  ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - y‖
Tactic: rwa [f.map_smulₛₗ _, inv_mul_cancel₀, one_smul, map_inv₀, map_inv₀,
            RingHomCompTriple.comp_apply, RingHom.id_apply]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
rwa :
  ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
          ((f : (a : E) → F) x : F) -
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖
rwa₁ :
  ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
          ((f : (a : E) → F) x : F) -
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') 1 y‖
rwa₂ : d ≠ 0
rwa₃ :
  ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) : 𝕜')
          ((f : (a : E) → F) x : F) -
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - y‖
rwa₄ : d ≠ 0
⊢ ‖HSub.hSub (α := F) ((f : (a : E) → F) (HSMul.hSMul.{u_1, u_3, u_3} (α := 𝕜) ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) x) : F)
        y‖ =
    ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖
have rwa₅ : ‖HSMul.hSMul.{u_2, u_4, u_4} (α := 𝕜') (β := F) ((σ : (a : 𝕜) → 𝕜') (((σ' : (a : 𝕜') → 𝕜) d)⁻¹ : 𝕜) : 𝕜')
        ((f : (a : E) → F) x : F) -
      y‖ =
  ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - y‖
Tactic: rwa [f.map_smulₛₗ _, inv_mul_cancel₀, one_smul, map_inv₀, map_inv₀,
            RingHomCompTriple.comp_apply, RingHom.id_apply]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
⊢ ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖ =
    ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
have rw : ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - d⁻¹ • d • y‖ =
  ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
Tactic: rw [mul_smul, smul_sub]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
rw :
  ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - d⁻¹ • d • y‖ =
    ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
⊢ ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - (d⁻¹ * d) • y‖ =
    ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
have rw₁ : ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - d⁻¹ • d • y‖ =
  ‖HSMul.hSMul (β := F) d⁻¹ ((f : (a : E) → F) x : F) - d⁻¹ • d • y‖
Tactic: rw [mul_smul, smul_sub]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
⊢ ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ =
    ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
have rw : ‖d⁻¹‖ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ =
  ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
Tactic: rw [norm_smul, norm_inv]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
rw :
  ‖d⁻¹‖ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ =
    ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
⊢ ‖d⁻¹ • HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ =
    ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
have rw₁ : ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ =
  ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖
Tactic: rw [norm_smul, norm_inv]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
⊢ ‖d‖⁻¹ * ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ ‖d‖⁻¹ * (2 * δ)
have ha : 0 ≤ ‖d‖⁻¹
Tactic: gcongr
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (goal)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
⊢ ‖d‖⁻¹ * (2 * δ) = 1 / 2 * ‖y‖
have simp : HPow.hPow (α := ℝ) (β := ℕ) 2 2 = 4
Tactic: simp [δ, field]
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (hypothesis)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
⊢ ∃ (x : E), dist ((f : (a : E) → F) x) y ≤ 1 / 2 * ‖y‖ ∧ ‖x‖ ≤ (ε / 2)⁻¹ * ‖c‖ * 2 * (↑n : ℝ) * ‖y‖
have J : ‖HSub.hSub (α := F) ((f : (a : E) → F) (HSMul.hSMul.{u_1, u_3, u_3} (α := 𝕜) ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) x) : F) y‖ ≤
  1 / 2 * ‖y‖
Tactic: have J : ‖f (σ' d⁻¹ • x) - y‖ ≤ 1 / 2 * ‖y‖ :=
      calc
        ‖f (σ' d⁻¹ • x) - y‖ = ‖d⁻¹ • f x - (d⁻¹ * d) • y‖ := by
          rwa [f.map_smulₛₗ _, inv_mul_cancel₀, one_smul, map_inv₀, map_inv₀,
            RingHomCompTriple.comp_apply, RingHom.id_apply]
        _ = ‖d⁻¹ • (f x - d • y)‖ := by rw [mul_smul, smul_sub]
        _ = ‖d‖⁻¹ * ‖f x - d • y‖ := by rw [norm_smul, norm_inv]
        _ ≤ ‖d‖⁻¹ * (2 * δ) := by gcongr
        _ = 1 / 2 * ‖y‖ := by simp [δ, field]; norm_num
-- Lean 4 proof step from Mathlib.Analysis.Normed.Operator.Banach (hypothesis)
Goal:
𝕜 : Type u_1
𝕜' : Type u_2
inst : NontriviallyNormedField 𝕜
inst_1 : NontriviallyNormedField 𝕜'
σ : 𝕜 →+* 𝕜'
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace 𝕜 E
F : Type u_4
inst_4 : NormedAddCommGroup F
inst_5 : NormedSpace 𝕜' F
f : E →SL[σ] F
σ' : 𝕜' →+* 𝕜
inst_6 : RingHomInvPair σ σ'
inst_7 : RingHomIsometric σ
inst_8 : RingHomIsometric σ'
inst_9 : CompleteSpace F
surj : Surjective.{u_3 + 1, u_4 + 1} (α := E) (β := F) (⇑f : (a : E) → F)
A :
  Eq.{u_4 + 1} (α := Set F)
    (⋃ (n : ℕ),
      closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
        (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))))
    Set.univ
n : ℕ
a : F
ε : ℝ
εpos : ε > 0
H :
  ball a ε ⊆
    closure[PseudoMetricSpace.toUniformSpace.toTopologicalSpace]
      (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ)))
c : 𝕜
hc : 1 < ‖c‖
y : F
hy : y ≠ 0
hc' : 1 < norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜')
d : 𝕜'
hd : d ≠ 0
ydlt : ‖d • y‖ < ε / 2
dinv : ‖d‖⁻¹ ≤ (ε / 2)⁻¹ * norm.{u_2} (E := 𝕜') ((σ : (a : 𝕜) → 𝕜') c : 𝕜') * ‖y‖
δ : ℝ := ‖d‖ * ‖y‖ / 4
δpos : 0 < δ
this_1 : a + d • y ∈ ball a ε
z₁ : F
z₁im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₁
x₁ : E
h₁ : dist (a + d • y) ((f : (a : E) → F) x₁) < δ
hx₁ : ‖x₁‖ < (↑n : ℝ)
xz₁ : (f : (a : E) → F) x₁ = z₁
this : a ∈ ball a ε
z₂ : F
z₂im : Membership.mem (γ := Set F) (Set.image.{u_3, u_4} (α := E) (⇑f : (a : E) → F) (ball 0 (↑n : ℝ))) z₂
x₂ : E
h₂ : dist a ((f : (a : E) → F) x₂) < δ
hx₂ : ‖x₂‖ < (↑n : ℝ)
xz₂ : (f : (a : E) → F) x₂ = z₂
x : E := x₁ - x₂
I : ‖HSub.hSub (α := F) ((f : (a : E) → F) x : F) (d • y)‖ ≤ 2 * δ
J :
  ‖HSub.hSub (α := F) ((f : (a : E) → F) (HSMul.hSMul.{u_1, u_3, u_3} (α := 𝕜) ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) x) : F)
        y‖ ≤
    1 / 2 * ‖y‖
⊢ ∃ (x : E), dist ((f : (a : E) → F) x) y ≤ 1 / 2 * ‖y‖ ∧ ‖x‖ ≤ (ε / 2)⁻¹ * ‖c‖ * 2 * (↑n : ℝ) * ‖y‖
have J₁ : dist ((f : (a : E) → F) (HSMul.hSMul.{u_1, u_3, u_3} (α := 𝕜) ((σ' : (a : 𝕜') → 𝕜) d⁻¹ : 𝕜) x)) y ≤ 1 / 2 * ‖y‖
Tactic: rw [← dist_eq_norm] at J
Cleared hypotheses: J