awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
g : ℝ → M
hg : IsMIntegralCurveAt g v t₀
apply :
  ∀ (x : ℝ),
    g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 x →
      g x = ((↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g) x
⊢ g =ᶠ[𝓝 t₀] (↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g

Tactic:
apply (hsrc hg).mono

Premises used: Filter.Eventually.mono
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
g : ℝ → M
hg : IsMIntegralCurveAt g v t₀
t : ℝ
ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
rw : g t = (↑(extChartAt I (g t₀)).symm : E → M) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
rw₁ : g t = (↑(extChartAt I (g t₀)).symm : E → M) ((↑(extChartAt I (g t₀)) : M → E) (g t))
rw₂ rw₃ : g t = g t
⊢ g t = ((↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g) t

Tactic:
rw [Function.comp_apply, Function.comp_apply, PartialEquiv.left_inv _ (hmem ht)]

Premises used: Function.comp_apply, PartialEquiv.left_inv
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
⊢ ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀),
    g =ᶠ[𝓝 t₀] (↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g

Tactic:
have heq {g} (hg : IsMIntegralCurveAt g v t₀) :
    g =ᶠ[𝓝 t₀] (extChartAt I (g t₀)).symm ∘ ↑(extChartAt I (g t₀)) ∘ g := by
    apply (hsrc hg).mono
    intro t ht
    rw [Function.comp_apply, Function.comp_apply, PartialEquiv.left_inv _ (hmem ht)]
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
heq :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀),
    g =ᶠ[𝓝 t₀] (↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g
suffices : (↑(extChartAt I (γ t₀)) : M → E) ∘ γ =ᶠ[𝓝 t₀] (↑(extChartAt I (γ' t₀)) : M → E) ∘ γ'
⊢ γ =ᶠ[𝓝 t₀] γ'

Tactic:
suffices (extChartAt I (γ t₀)) ∘ γ =ᶠ[𝓝 t₀] (extChartAt I (γ' t₀)) ∘ γ' from
    (heq hγ).trans <| (this.fun_comp (extChartAt I (γ t₀)).symm).trans (h ▸ (heq hγ').symm)
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
heq :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀),
    g =ᶠ[𝓝 t₀] (↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g
rw : (↑(extChartAt I (γ t₀)) : M → E) (γ t₀) = ((↑(extChartAt I (γ' t₀)) : M → E) ∘ γ') t₀
rw₁ : (↑(extChartAt I (γ t₀)) : M → E) (γ t₀) = (↑(extChartAt I (γ' t₀)) : M → E) (γ' t₀)
rw₂ rw₃ : (↑(extChartAt I (γ' t₀)) : M → E) (γ' t₀) = (↑(extChartAt I (γ' t₀)) : M → E) (γ' t₀)
⊢ ((↑(extChartAt I (γ t₀)) : M → E) ∘ γ) t₀ = ((↑(extChartAt I (γ' t₀)) : M → E) ∘ γ') t₀

Tactic:
rw [Function.comp_apply, Function.comp_apply, h]

Premises used: Function.comp_apply
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
hγt₀ : I.IsInteriorPoint (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
v' : E → E :=
  fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
hv' :
  v' = fun (x : E) ↦
    (tangentCoordChange I ((↑(extChartAt I (γ t₀)).symm : E → M) x) (γ t₀) ((↑(extChartAt I (γ t₀)).symm : E → M) x) :
        (a : E) → E)
      (v ((↑(extChartAt I (γ t₀)).symm : E → M) x) : TangentSpace I ((↑(extChartAt I (γ t₀)).symm : E → M) x))
left : ContinuousAt (Y := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hv :
  ContDiffWithinAt ℝ 1
    (comp (β := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I))
      (↑(extChartAt (I.prod 𝓘(ℝ, E)) ⟨γ t₀, v (γ t₀)⟩) : Bundle.TotalSpace E (TangentSpace I) → E × E)
      ((fun (x : M) ↦ ⟨x, v x⟩) ∘ (↑(extChartAt I (γ t₀)).symm : E → M)))
    (range (↑I : H → E)) ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
K : NNReal
s : Set E
hs : s ∈ 𝓝 ((↑(extChartAt I (γ t₀)) : M → E) (γ t₀))
hlip_1 : LipschitzOnWith K v' s
hlip : ∀ (t : ℝ), LipschitzOnWith.{u_1, u_1} (α := E) (β := E) K ((fun (x : ℝ) ↦ v') t) ((fun (x : ℝ) ↦ s) t)
hsrc : ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀), ∀ᶠ (t : ℝ) in 𝓝 t₀, g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t
hmem : ∀ {g : ℝ → M} {t : ℝ} (ht : g ⁻¹' (extChartAt I (g t₀)).source ∈ 𝓝 t), g t ∈ (extChartAt I (g t₀)).source
hdrv :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀) (h' : γ t₀ = g t₀),
    ∀ᶠ (t : ℝ) in 𝓝 t₀,
      HasDerivAt ((↑(extChartAt I (g t₀)) : M → E) ∘ g)
          ((fun (x : ℝ) ↦ v') t (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)) t ∧
        Membership.mem (γ := Set E) ((fun (x : ℝ) ↦ s) t) (((↑(extChartAt I (g t₀)) : M → E) ∘ g) t)
heq :
  ∀ {g : ℝ → M} (hg : IsMIntegralCurveAt g v t₀),
    g =ᶠ[𝓝 t₀] (↑(extChartAt I (g t₀)).symm : E → M) ∘ (↑(extChartAt I (g t₀)) : M → E) ∘ g
⊢ (↑(extChartAt I (γ t₀)) : M → E) ∘ γ =ᶠ[𝓝 t₀] (↑(extChartAt I (γ' t₀)) : M → E) ∘ γ'

Tactic:
exact ODE_solution_unique_of_eventually (.of_forall hlip)
    (hdrv hγ rfl) (hdrv hγ' h) (by rw [Function.comp_apply, Function.comp_apply, h])

Premises used: Filter.Eventually.of_forall, ODE_solution_unique_of_eventually, rfl
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : BoundarylessManifold I M
hv :
  ContMDiffAt I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1
    (fun (x : M) ↦ ⟨x, v x⟩) (γ t₀)
hγ : IsMIntegralCurveAt γ v t₀
hγ' : IsMIntegralCurveAt γ' v t₀
h : γ t₀ = γ' t₀
⊢ γ =ᶠ[𝓝 t₀] γ'

Tactic:
isMIntegralCurveAt_eventuallyEq_of_contMDiffAt BoundarylessManifold.isInteriorPoint hv hγ hγ' h

Premises used: BoundarylessManifold.isInteriorPoint, isMIntegralCurveAt_eventuallyEq_of_contMDiffAt
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
⊢ let s := {t : ℝ | γ t = γ' t} ∩ Ioo a b;
  s = {t : ℝ | γ t = γ' t} ∩ Ioo a b

Tactic:
set s := {t | γ t = γ' t} ∩ Ioo a b with hs

Premises used: Set.Ioo
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
s : Set ℝ := {t : ℝ | γ t = γ' t} ∩ Ioo a b
hs : s = {t : ℝ | γ t = γ' t} ∩ Ioo a b
suffices : Ioo a b ⊆ s
⊢ EqOn γ γ' (Ioo a b)

Tactic:
suffices hsub : Ioo a b ⊆ s from fun t ht ↦ mem_setOf.mp ((subset_def ▸ hsub) t ht).1
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
s : Set ℝ := {t : ℝ | γ t = γ' t} ∩ Ioo a b
hs : s = {t : ℝ | γ t = γ' t} ∩ Ioo a b
apply : closure s ∩ Ioo a b ⊆ s
apply₁ : IsOpen s
⊢ Ioo a b ⊆ s

Tactic:
apply isPreconnected_Ioo.subset_of_closure_inter_subset (s := Ioo a b) (u := s) _
    ⟨t₀, ⟨ht₀, ⟨h, ht₀⟩⟩⟩

Premises used: IsPreconnected.subset_of_closure_inter_subset, isPreconnected_Ioo, And.intro, Exists.intro
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
s : Set ℝ := {t : ℝ | γ t = γ' t} ∩ Ioo a b
hs : s = {t : ℝ | γ t = γ' t} ∩ Ioo a b
rw :
  Subset (α := Set { x : ℝ // x ∈ Ioo a b })
    (Subtype.val (p := fun (x : ℝ) ↦ x ∈ Ioo a b) ⁻¹'
      closure
        (image (α := { x : ℝ // x ∈ Ioo a b }) (Subtype.val (p := fun (x : ℝ) ↦ x ∈ Ioo a b))
          {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}))
    {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}
⊢ closure s ∩ Ioo a b ⊆ s

Tactic:
rw [hs, inter_comm, ← Subtype.image_preimage_val, inter_comm, ← Subtype.image_preimage_val,
      image_subset_image_iff Subtype.val_injective, preimage_setOf_eq]

Premises used: Subtype.val_injective, Set.preimage_setOf_eq, Set.inter_comm, Set.image_subset_image_iff, Subtype.image_preimage_val
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
s : Set ℝ := {t : ℝ | γ t = γ' t} ∩ Ioo a b
hs : s = {t : ℝ | γ t = γ' t} ∩ Ioo a b
t : { x : ℝ // x ∈ Ioo a b }
ht :
  Membership.mem (γ := Set { x : ℝ // x ∈ Ioo a b })
    (Subtype.val (p := fun (x : ℝ) ↦ x ∈ Ioo a b) ⁻¹'
      closure
        (image (α := { x : ℝ // x ∈ Ioo a b }) (Subtype.val (p := fun (x : ℝ) ↦ x ∈ Ioo a b))
          {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}))
    t
⊢ Membership.mem (γ := Set { a_1 : ℝ // a_1 ∈ Ioo a b })
    (closure {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}) t

Tactic:
rw [mem_preimage, ← closure_subtype] at ht

Premises used: closure_subtype, Set.mem_preimage
-- Module: Mathlib.Geometry.Manifold.IntegralCurve.ExistUnique
Goal:
E : Type u_1
inst : NormedAddCommGroup E
inst_1 : NormedSpace ℝ E
H : Type u_2
inst_2 : TopologicalSpace H
I : ModelWithCorners ℝ E H
M : Type u_3
inst_3 : TopologicalSpace M
inst_4 : ChartedSpace H M
inst_5 : IsManifold I 1 M
γ γ' : ℝ → M
v : (x : M) → TangentSpace I x
t₀ : ℝ
inst_6 : T2Space M
a b : ℝ
ht₀ : t₀ ∈ Ioo a b
hγt : ∀ t ∈ Ioo a b, I.IsInteriorPoint (γ t)
hv :
  ContMDiff I (I.prod 𝓘(ℝ, E)) (M' := Bundle.TotalSpace.{u_3, u_1, u_1} (B := M) E (TangentSpace I)) 1 fun (x : M) ↦
    ⟨x, v x⟩
hγ : IsMIntegralCurveOn γ v (Ioo a b)
hγ' : IsMIntegralCurveOn γ' v (Ioo a b)
h : γ t₀ = γ' t₀
s : Set ℝ := {t : ℝ | γ t = γ' t} ∩ Ioo a b
hs : s = {t : ℝ | γ t = γ' t} ∩ Ioo a b
t : { x : ℝ // x ∈ Ioo a b }
ht :
  Membership.mem (γ := Set { a_1 : ℝ // a_1 ∈ Ioo a b })
    (closure {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}) t
revert :
  ∀ ⦃t : { x : ℝ // x ∈ Ioo a b }⦄
    (ht :
      Membership.mem (γ := Set { a_1 : ℝ // a_1 ∈ Ioo a b })
        (closure {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)}) t),
    Membership.mem (γ := Set { x : ℝ // x ∈ Ioo a b }) {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)} t
⊢ Membership.mem (γ := Set { x : ℝ // x ∈ Ioo a b }) {a_1 : { x : ℝ // x ∈ Ioo a b } | γ (↑a_1 : ℝ) = γ' (↑a_1 : ℝ)} t

Tactic:
revert ht t