awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
refine_1 : ∀ (x : p.Rep), ∃ y ∈ s p, dist x y ≤ ε
⊢ ghDist p.Rep q.Rep ≤ ε + ε / 2 + ε
have refine_2 : ∀ (x : q.Rep), ∃ (y : (↑(s p) : Type)), dist x (Φ y) ≤ ε
Tactic: refine ghDist_le_of_approx_subsets Φ ?_ ?_ ?_
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
refine_1 : ∀ (x : p.Rep), ∃ y ∈ s p, dist x y ≤ ε
refine_2 : ∀ (x : q.Rep), ∃ (y : (↑(s p) : Type)), dist x (Φ y) ≤ ε
⊢ ghDist p.Rep q.Rep ≤ ε + ε / 2 + ε
have refine_3 : ∀ (x y : (↑(s p) : Type)), |dist x y - dist (Φ x) (Φ y)| ≤ ε
Tactic: refine ghDist_le_of_approx_subsets Φ ?_ ?_ ?_
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (hypothesis)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : p.Rep
⊢ ∃ y ∈ s p, dist x y ≤ ε
have this : Membership.mem (γ := Set p.Rep) (⋃ y ∈ s p, ball y (u n)) x
Tactic: have : x ∈ ⋃ y ∈ s p, ball y (u n) := (hs p pt) (mem_univ _)
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : p.Rep
this : Membership.mem (γ := Set p.Rep) (⋃ y ∈ s p, ball y (u n)) x
⊢ ∃ y ∈ s p, dist x y ≤ ε
have refine_1 : ∀ (y : p.Rep) (ys : y ∈ s p) (hy : x ∈ ball y (u n)), ∃ y ∈ s p, dist x y ≤ ε
Tactic: rcases mem_iUnion₂.1 this with ⟨y, ys, hy⟩
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (hypothesis)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
⊢ ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
have this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
Tactic: have : x ∈ ⋃ y ∈ s q, ball y (u n) := (hs q qt) (mem_univ _)
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
⊢ ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
have refine_2 : ∀ (y : q.Rep) (ys : y ∈ s q) (hy : x ∈ ball y (u n)), ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
Tactic: rcases mem_iUnion₂.1 this with ⟨y, ys, hy⟩
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
y : q.Rep
ys : y ∈ s q
hy : x ∈ ball y (u n)
i : ℕ := (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
hi : (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ) < N q := ⋯
⊢ (⟨i, hi⟩ : Fin (N q)) = (E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)
have rw : (↑(⟨i, hi⟩ : Fin (N q)) : ℕ) =
  (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
Tactic: rw [Fin.ext_iff, Fin.val_mk]
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (hypothesis)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
y : q.Rep
ys : y ∈ s q
hy : x ∈ ball y (u n)
i : ℕ := (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
hi : (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ) < N q := ⋯
⊢ ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
have ihi_eq : (⟨i, hi⟩ : Fin (N q)) = (E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)
Tactic: have ihi_eq : (⟨i, hi⟩ : Fin (N q)) = (E q) ⟨y, ys⟩ := by rw [Fin.ext_iff, Fin.val_mk]
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
y : q.Rep
ys : y ∈ s q
hy : x ∈ ball y (u n)
i : ℕ := (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
hi : (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ) < N q := ⋯
ihi_eq :
  (⟨i, hi⟩ : Fin (N q)) = (E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)
hiq : i < N q
⊢ i < N p
have rwa : ∀ (hiq : i < N p), i < N p
Tactic: rwa [Npq.symm] at hiq
Cleared hypotheses: hiq
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (hypothesis)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
y : q.Rep
ys : y ∈ s q
hy : x ∈ ball y (u n)
i : ℕ := (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
hi : (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ) < N q := ⋯
ihi_eq :
  (⟨i, hi⟩ : Fin (N q)) = (E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)
hiq : i < N q
⊢ ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
have hip : i < N p
Tactic: have hip : i < N p := by rwa [Npq.symm] at hiq
-- Lean 4 proof step from Mathlib.Topology.MetricSpace.GromovHausdorff (goal)
Goal:
t : Set GHSpace
C : ℝ
u : ℕ → ℝ
K : ℕ → ℕ
ulim : Tendsto u atTop (𝓝 0)
hdiam : ∀ p ∈ t, diam (α := p.Rep) univ ≤ C
hcov :
  ∀ p ∈ t,
    ∀ (n : ℕ),
      ∃ (s : Set p.Rep), #(↑s : Type) ≤ (↑(K n) : Cardinal.{0}) ∧ Subset (α := Set p.Rep) univ (⋃ x ∈ s, ball x (u n))
δ : ℝ
δpos : δ > 0
ε : ℝ := 1 / 5 * δ
εpos : 0 < ε
n : ℕ
hn : ∀ n_1 ≥ n, dist (u n_1) 0 < ε
u_le_ε : u n ≤ ε
s : (p : GHSpace) → Set p.Rep
N : (p : GHSpace) → ℕ
hN : ∀ (p : GHSpace), N p ≤ K n
E : (p : GHSpace) → (↑(s p) : Type) ≃ Fin (N p)
hs : ∀ p ∈ t, Subset (α := Set p.Rep) univ (⋃ x ∈ s p, ball x (u n))
M : ℕ := ⌊ε⁻¹ * max C 0⌋₊
F : GHSpace → (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) :=
  fun (p : GHSpace) ↦
    Sigma.mk (β := fun (k : Fin (K n).succ) ↦ Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ) ⟨N p, ⋯⟩
      fun (a b : Fin (↑(⟨N p, ⋯⟩ : Fin (K n).succ) : ℕ)) ↦
      ⟨min M
          ⌊ε⁻¹ *
              dist (α := (↑(s p) : Type)) (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) a : (↑(s p) : Type))
                (((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) b : (↑(s p) : Type))⌋₊,
        ⋯⟩
p : GHSpace
pt : p ∈ t
q : GHSpace
qt : q ∈ t
hpq :
  Eq (α := (k : Fin (K n).succ) × (Fin (↑k : ℕ) → Fin (↑k : ℕ) → Fin M.succ))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) p pt))
    ((fun (p : (↑t : Type)) ↦ F (↑p : GHSpace)) (Subtype.mk (p := fun (x : GHSpace) ↦ x ∈ t) q qt))
Npq : N p = N q
Ψ : (↑(s p) : Type) → (↑(s q) : Type) :=
  fun (x : (↑(s p) : Type)) ↦
    ((E q).symm : (a : Fin (N q)) → (↑(s q) : Type)) (Fin.cast Npq ((E p : (a : (↑(s p) : Type)) → Fin (N p)) x))
Φ : (↑(s p) : Type) → q.Rep := fun (x : (↑(s p) : Type)) ↦ (↑(Ψ x) : q.Rep)
x : q.Rep
this : Membership.mem (γ := Set q.Rep) (⋃ y ∈ s q, ball y (u n)) x
y : q.Rep
ys : y ∈ s q
hy : x ∈ ball y (u n)
i : ℕ := (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ)
hi : (↑((E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)) : ℕ) < N q := ⋯
ihi_eq :
  (⟨i, hi⟩ : Fin (N q)) = (E q : (a : (↑(s q) : Type)) → Fin (N q)) (Subtype.mk (p := fun (x : q.Rep) ↦ x ∈ s q) y ys)
hiq : i < N q
hip : i < N p
z : (↑(s p) : Type) := ((E p).symm : (a : Fin (N p)) → (↑(s p) : Type)) ⟨i, hip⟩
⊢ ∃ (z : (↑(s p) : Type)), dist x (Φ z) ≤ ε
have h : dist x (Φ z) ≤ ε
Tactic: use z