awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
x : H
hx : x ∈ ball x₀ ε
a : α
ha_bound : ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
pos : 0 ≤ ‖x - x₀‖
pos₁ : b a * ‖x - x₀‖ ≤ b a * ‖x - x₀‖
pos₂ : 0 ≤ ‖x - x₀‖
⊢ b a * ‖x - x₀‖ / ‖x - x₀‖ + ‖F' a‖ * ‖x - x₀‖ / ‖x - x₀‖ ≤ b a + ‖F' a‖
have pos₃ : 0 ≤ ‖F' a‖
Tactic: apply_rules [add_le_add, div_le_of_le_mul₀]
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
x : H
hx : x ∈ ball x₀ ε
a : α
ha_bound : ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
pos : 0 ≤ ‖x - x₀‖
pos₁ : b a * ‖x - x₀‖ ≤ b a * ‖x - x₀‖
pos₂ : 0 ≤ ‖x - x₀‖
pos₃ : 0 ≤ ‖F' a‖
⊢ b a * ‖x - x₀‖ / ‖x - x₀‖ + ‖F' a‖ * ‖x - x₀‖ / ‖x - x₀‖ ≤ b a + ‖F' a‖
have pos₄ : ‖F' a‖ * ‖x - x₀‖ ≤ ‖F' a‖ * ‖x - x₀‖
Tactic: apply_rules [add_le_add, div_le_of_le_mul₀]
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
⊢ ∀ᵐ (a : α) ∂μ,
    Tendsto (fun (n : H) ↦ ‖n - x₀‖⁻¹ • HSub.hSub (β := E) (F n a - F x₀ a) ((F' a : (a : H) → E) (n - x₀) : E)) (𝓝 x₀)
      (𝓝 (‖x₀ - x₀‖⁻¹ • HSub.hSub (β := E) (F x₀ a - F x₀ a) ((F' a : (a : H) → E) (x₀ - x₀) : E)))
have pos : ∀ (x : α),
  HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x_1 : H) ↦ F x_1 x) (F' x) x₀ →
    Tendsto (fun (n : H) ↦ ‖n - x₀‖⁻¹ • HSub.hSub (β := E) (F n x - F x₀ x) ((F' x : (a : H) → E) (n - x₀) : E)) (𝓝 x₀)
      (𝓝 (‖x₀ - x₀‖⁻¹ • HSub.hSub (β := E) (F x₀ x - F x₀ x) ((F' x : (a : H) → E) (x₀ - x₀) : E)))
Tactic: apply h_diff.mono
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
⊢ Tendsto (fun (n : H) ↦ ‖n - x₀‖⁻¹ • HSub.hSub (β := E) (F n a - F x₀ a) ((F' a : (a : H) → E) (n - x₀) : E)) (𝓝 x₀)
    (𝓝 (‖x₀ - x₀‖⁻¹ • HSub.hSub (β := E) (F x₀ a - F x₀ a) ((F' a : (a : H) → E) (x₀ - x₀) : E)))
have pos : Tendsto.{u_4, u_3} (β := E)
  (fun (x : H) ↦ ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)) (𝓝 x₀) (𝓝 0)
Tactic: suffices Tendsto (fun x ↦ ‖x - x₀‖⁻¹ • (F x a - F x₀ a - F' a (x - x₀))) (𝓝 x₀) (𝓝 0) by simpa
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
⊢ Tendsto.{u_4, u_3} (β := E)
    (fun (x : H) ↦ ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)) (𝓝 x₀) (𝓝 0)
have pos : Tendsto (β := ℝ) (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖)
  (𝓝 x₀) (𝓝 0)
Tactic: rw [tendsto_zero_iff_norm_tendsto_zero]
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
⊢ Eq.{u_4 + 1} (α := (x : H) → ℝ)
    (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) fun (x : H) ↦
    ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
have h : ∀ (x : H),
  ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖ =
    ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
Tactic: ext x
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
x : H
⊢ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖ =
    ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
have h : ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖ =
  ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
Tactic: rw [norm_smul_of_nonneg (nneg _)]
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (hypothesis)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
⊢ Tendsto (β := ℝ)
    (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀) (𝓝 0)
have this₁ : Eq.{u_4 + 1} (α := (x : H) → ℝ)
  (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) fun (x : H) ↦
  ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
Tactic: have : (fun x ↦ ‖x - x₀‖⁻¹ * ‖F x a - F x₀ a - F' a (x - x₀)‖) = fun x ↦
        ‖‖x - x₀‖⁻¹ • (F x a - F x₀ a - F' a (x - x₀))‖ := by
      ext x
      rw [norm_smul_of_nonneg (nneg _)]
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this_1 :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
this :
  Eq.{u_4 + 1} (α := (x : H) → ℝ)
    (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) fun (x : H) ↦
    ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
⊢ Tendsto (β := ℝ)
    (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀) (𝓝 0)
have pos : ∀
  (ha :
    Tendsto (β := ℝ)
      (fun (x' : H) ↦ ‖x' - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x' a - F x₀ a) ((F' a : (a : H) → E) (x' - x₀) : E)‖) (𝓝 x₀)
      (𝓝 0))
  (this :
    Eq.{u_4 + 1} (α := (x : H) → ℝ)
      (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖)
      fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖),
  Tendsto (β := ℝ)
    (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀) (𝓝 0)
Tactic: rwa [hasFDerivAt_iff_tendsto, this] at ha
Cleared hypotheses: ha, this
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ x ∈ s, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
ε : ℝ
ε_pos : ε > 0
hε : ball x₀ ε ⊆ s
x₀_in : x₀ ∈ ball x₀ ε
nneg : ∀ (x : H), 0 ≤ ‖x - x₀‖⁻¹
b : α → ℝ := fun (a : α) ↦ |bound a|
b_int : Integrable b μ
b_nonneg : ∀ (a : α), 0 ≤ b a
h_lipsch : ∀ᵐ (a : α) ∂μ, ∀ x ∈ ball x₀ ε, ‖F x a - F x₀ a‖ ≤ b a * ‖x - x₀‖
hF_int' : ∀ x ∈ ball x₀ ε, Integrable (F x) μ
hF'_int : Integrable F' μ
hE : CompleteSpace E
h_ball : ball x₀ ε ∈ 𝓝 x₀
this_1 :
  ∀ᶠ (x : H) in 𝓝 x₀,
    ‖x - x₀‖⁻¹ *
        ‖HSub.hSub (β := E) (HSub.hSub (α := E) (∫ (a : α), F x a ∂μ) (∫ (a : α), F x₀ a ∂μ))
            ((∫ (a : α), F' a ∂μ : (a : H) → E) (x - x₀) : E)‖ =
      norm.{u_3} (E := E)
        (∫ (a : α), ‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E) ∂μ)
a : α
ha : HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
this :
  Eq.{u_4 + 1} (α := (x : H) → ℝ)
    (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) fun (x : H) ↦
    ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖
pos :
  ∀
    (ha :
      Tendsto (β := ℝ)
        (fun (x' : H) ↦ ‖x' - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x' a - F x₀ a) ((F' a : (a : H) → E) (x' - x₀) : E)‖)
        (𝓝 x₀) (𝓝 0))
    (this :
      Eq.{u_4 + 1} (α := (x : H) → ℝ)
        (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖)
        fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖),
    Tendsto (β := ℝ)
      (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀)
      (𝓝 0)
⊢ Tendsto (β := ℝ)
    (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀) (𝓝 0)
have pos₁ : ∀
  (ha :
    Tendsto (β := ℝ)
      (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀)
      (𝓝 0))
  (this :
    Eq.{u_4 + 1} (α := (x : H) → ℝ)
      (fun (x : H) ↦ ‖x - x₀‖⁻¹ * ‖HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖)
      fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖),
  Tendsto (β := ℝ)
    (fun (x : H) ↦ ‖‖x - x₀‖⁻¹ • HSub.hSub (β := E) (F x a - F x₀ a) ((F' a : (a : H) → E) (x - x₀) : E)‖) (𝓝 x₀) (𝓝 0)
Tactic: rwa [hasFDerivAt_iff_tendsto, this] at ha
Cleared hypotheses: ha, this
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (goal)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ᶠ (x : H) in 𝓝 x₀, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
h_lip :
  ∀ᵐ (a : α) ∂μ, LipschitzOnWith.{u_4, u_3} (β := E) ((Real.nnabs : (a : ℝ) → NNReal) (bound a)) (fun (x : H) ↦ F x a) s
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
⊢ Integrable F' μ ∧
    HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ ∫ (a : α), F x a ∂μ) (∫ (a : α), F' a ∂μ) x₀
have obtain : ∀ (δ : ℝ) (δ_pos : δ > 0) (hδ : ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ ∧ x ∈ s),
  Integrable F' μ ∧
    HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ ∫ (a : α), F x a ∂μ) (∫ (a : α), F' a ∂μ) x₀
Tactic: obtain ⟨δ, δ_pos, hδ⟩ : ∃ δ > 0, ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ ∧ x ∈ s :=
    eventually_nhds_iff_ball.mp (hF_meas.and hs)
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (hypothesis)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ᶠ (x : H) in 𝓝 x₀, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
h_lip :
  ∀ᵐ (a : α) ∂μ, LipschitzOnWith.{u_4, u_3} (β := E) ((Real.nnabs : (a : ℝ) → NNReal) (bound a)) (fun (x : H) ↦ F x a) s
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
δ : ℝ
δ_pos : δ > 0
hδ : ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ ∧ x ∈ s
⊢ Integrable F' μ ∧
    HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ ∫ (a : α), F x a ∂μ) (∫ (a : α), F' a ∂μ) x₀
have hδ_meas : ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ
Tactic: choose hδ_meas hδε using hδ
Cleared hypotheses: hδ
-- Lean 4 proof step from Mathlib.Analysis.Calculus.ParametricIntegral (hypothesis)
Goal:
α : Type u_1
inst : MeasurableSpace α
μ : Measure α
𝕜 : Type u_2
inst_1 : RCLike 𝕜
E : Type u_3
inst_2 : NormedAddCommGroup E
inst_3 : NormedSpace ℝ E
inst_4 : NormedSpace 𝕜 E
H : Type u_4
inst_5 : NormedAddCommGroup H
inst_6 : NormedSpace 𝕜 H
F : H → α → E
x₀ : H
bound : α → ℝ
s : Set H
F' : α → H →L[𝕜] E
hs : s ∈ 𝓝 x₀
hF_meas : ∀ᶠ (x : H) in 𝓝 x₀, AEStronglyMeasurable (F x) μ
hF_int : Integrable (F x₀) μ
hF'_meas : AEStronglyMeasurable F' μ
h_lip :
  ∀ᵐ (a : α) ∂μ, LipschitzOnWith.{u_4, u_3} (β := E) ((Real.nnabs : (a : ℝ) → NNReal) (bound a)) (fun (x : H) ↦ F x a) s
bound_integrable : Integrable bound μ
h_diff : ∀ᵐ (a : α) ∂μ, HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ F x a) (F' a) x₀
δ : ℝ
δ_pos : δ > 0
hδ : ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ ∧ x ∈ s
hδ_meas : ∀ x ∈ ball x₀ δ, AEStronglyMeasurable (F x) μ
⊢ Integrable F' μ ∧
    HasFDerivAt.{u_2, u_4, u_3} (𝕜 := 𝕜) (F := E) (fun (x : H) ↦ ∫ (a : α), F x a ∂μ) (∫ (a : α), F' a ∂μ) x₀
have hδε : ∀ x ∈ ball x₀ δ, x ∈ s
Tactic: choose hδ_meas hδε using hδ
Cleared hypotheses: hδ