English
A RelCWComplex built via mkFinite is finite.
Русский
RelCWComplex, построенный с помощью mkFinite, конечен.
LaTeX
$$$$ \\text{Finite}(C) \\;\\text{holds under mkFinite}. $$$$
Lean4
/-- A CW complex that was constructed using `CWComplex.mkFinite` is finite. -/
theorem finite_mkFinite.{u} {X : Type u} [TopologicalSpace X] (C : Set X) (cell : (n : ℕ) → Type u)
(map : (n : ℕ) → (i : cell n) → PartialEquiv (Fin n → ℝ) X)
(eventually_isEmpty_cell : ∀ᶠ n in Filter.atTop, IsEmpty (cell n)) (finite_cell : ∀ (n : ℕ), _root_.Finite (cell n))
(source_eq : ∀ (n : ℕ) (i : cell n), (map n i).source = ball 0 1)
(continuousOn : ∀ (n : ℕ) (i : cell n), ContinuousOn (map n i) (closedBall 0 1))
(continuousOn_symm : ∀ (n : ℕ) (i : cell n), ContinuousOn (map n i).symm (map n i).target)
(pairwiseDisjoint' : (univ : Set (Σ n, cell n)).PairwiseDisjoint (fun ni ↦ map ni.1 ni.2 '' ball 0 1))
(mapsTo : ∀ (n : ℕ) (i : cell n), MapsTo (map n i) (sphere 0 1) (⋃ (m < n) (j : cell m), map m j '' closedBall 0 1))
(union' : ⋃ (n : ℕ) (j : cell n), map n j '' closedBall 0 1 = C) :
letI :=
mkFinite C cell map eventually_isEmpty_cell finite_cell source_eq continuousOn continuousOn_symm pairwiseDisjoint'
mapsTo union'
Finite C :=
letI :=
mkFinite C cell map eventually_isEmpty_cell finite_cell source_eq continuousOn continuousOn_symm pairwiseDisjoint'
mapsTo union'
{ eventually_isEmpty_cell := eventually_isEmpty_cell
finite_cell := finite_cell }
