The Stone-Weierstrass theorem

If a subalgebra A of C(X, ℝ), where X is a compact topological space, separates points, then it is dense.

We argue as follows.

• In any subalgebra A of C(X, ℝ), if f ∈ A, then abs f ∈ A.topologicalClosure. This follows from the Weierstrass approximation theorem on [-‖f‖, ‖f‖] by approximating abs uniformly thereon by polynomials.
• This ensures that A.topologicalClosure is actually a sublattice: if it contains f and g, then it contains the pointwise supremum f ⊔ g and the pointwise infimum f ⊓ g.
• Any nonempty sublattice L of C(X, ℝ) which separates points is dense, by a nice argument approximating a given f above and below using separating functions. For each x y : X, we pick a function g x y ∈ L so g x y x = f x and g x y y = f y. By continuity these functions remain close to f on small patches around x and y. We use compactness to identify a certain finitely indexed infimum of finitely indexed supremums which is then close to f everywhere, obtaining the desired approximation.
• Finally we put these pieces together. L = A.topologicalClosure is a nonempty sublattice which separates points since A does, and so is dense (in fact equal to ⊤).

We then prove the complex version for star subalgebras A, by separately approximating the real and imaginary parts using the real subalgebra of real-valued functions in A (which still separates points, by taking the norm-square of a separating function).

Future work

Extend to cover the case of subalgebras of the continuous functions vanishing at infinity, on non-compact spaces.

def ContinuousMap.attachBound {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (f : C(X, ℝ)) : C(X, ↑(Set.Icc (-‖f‖) ‖f‖))

Turn a function f : C(X, ℝ) into a continuous map into Set.Icc (-‖f‖) (‖f‖), thereby explicitly attaching bounds.

Equations

• ContinuousMap.attachBound f = { toFun := fun (x : X) => { val := f x, property := ⋯ }, continuous_toFun := ⋯ }

@[simp]

theorem ContinuousMap.attachBound_apply_coe {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (f : C(X, ℝ)) (x : X) : ↑((ContinuousMap.attachBound f) x) = f x

theorem ContinuousMap.polynomial_comp_attachBound {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) (g : Polynomial ℝ) : ContinuousMap.comp (Polynomial.toContinuousMapOn g (Set.Icc (-‖f‖) ‖f‖)) (ContinuousMap.attachBound ↑f) = ↑((Polynomial.aeval f) g)

theorem ContinuousMap.polynomial_comp_attachBound_mem {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) (g : Polynomial ℝ) : ContinuousMap.comp (Polynomial.toContinuousMapOn g (Set.Icc (-‖f‖) ‖f‖)) (ContinuousMap.attachBound ↑f) ∈ A

Given a continuous function f in a subalgebra of C(X, ℝ), postcomposing by a polynomial gives another function in A.

This lemma proves something slightly more subtle than this: we take f, and think of it as a function into the restricted target Set.Icc (-‖f‖) ‖f‖), and then postcompose with a polynomial function on that interval. This is in fact the same situation as above, and so also gives a function in A.

theorem ContinuousMap.comp_attachBound_mem_closure {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) (p : C(↑(Set.Icc (-‖f‖) ‖f‖), ℝ)) : ContinuousMap.comp p (ContinuousMap.attachBound ↑f) ∈ Subalgebra.topologicalClosure A

theorem ContinuousMap.abs_mem_subalgebra_closure {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) : |↑f| ∈ Subalgebra.topologicalClosure A

theorem ContinuousMap.inf_mem_subalgebra_closure {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) (g : ↥A) : ↑f ⊓ ↑g ∈ Subalgebra.topologicalClosure A

theorem ContinuousMap.inf_mem_closed_subalgebra {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (h : IsClosed ↑A) (f : ↥A) (g : ↥A) : ↑f ⊓ ↑g ∈ A

theorem ContinuousMap.sup_mem_subalgebra_closure {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (f : ↥A) (g : ↥A) : ↑f ⊔ ↑g ∈ Subalgebra.topologicalClosure A

theorem ContinuousMap.sup_mem_closed_subalgebra {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (h : IsClosed ↑A) (f : ↥A) (g : ↥A) : ↑f ⊔ ↑g ∈ A

theorem ContinuousMap.sublattice_closure_eq_top {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (L : Set C(X, ℝ)) (nA : Set.Nonempty L) (inf_mem : ∀ f ∈ L, ∀ g ∈ L, f ⊓ g ∈ L) (sup_mem : ∀ f ∈ L, ∀ g ∈ L, f ⊔ g ∈ L) (sep : Set.SeparatesPointsStrongly L) : closure L = ⊤

theorem ContinuousMap.subalgebra_topologicalClosure_eq_top_of_separatesPoints {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (w : Subalgebra.SeparatesPoints A) : Subalgebra.topologicalClosure A = ⊤

The Stone-Weierstrass Approximation Theorem, that a subalgebra A of C(X, ℝ), where X is a compact topological space, is dense if it separates points.

theorem ContinuousMap.continuousMap_mem_subalgebra_closure_of_separatesPoints {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (w : Subalgebra.SeparatesPoints A) (f : C(X, ℝ)) : f ∈ Subalgebra.topologicalClosure A

An alternative statement of the Stone-Weierstrass theorem.

If A is a subalgebra of C(X, ℝ) which separates points (and X is compact), every real-valued continuous function on X is a uniform limit of elements of A.

theorem ContinuousMap.exists_mem_subalgebra_near_continuousMap_of_separatesPoints {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (w : Subalgebra.SeparatesPoints A) (f : C(X, ℝ)) (ε : ℝ) (pos : 0 < ε) : ∃ (g : ↥A), ‖↑g - f‖ < ε

An alternative statement of the Stone-Weierstrass theorem, for those who like their epsilons.

If A is a subalgebra of C(X, ℝ) which separates points (and X is compact), every real-valued continuous function on X is within any ε > 0 of some element of A.

theorem ContinuousMap.exists_mem_subalgebra_near_continuous_of_separatesPoints {X : Type u_1} [TopologicalSpace X] [CompactSpace X] (A : Subalgebra ℝ C(X, ℝ)) (w : Subalgebra.SeparatesPoints A) (f : X → ℝ) (c : Continuous f) (ε : ℝ) (pos : 0 < ε) : ∃ (g : ↥A), ∀ (x : X), ‖↑g x - f x‖ < ε

An alternative statement of the Stone-Weierstrass theorem, for those who like their epsilons and don't like bundled continuous functions.

If A is a subalgebra of C(X, ℝ) which separates points (and X is compact), every real-valued continuous function on X is within any ε > 0 of some element of A.

theorem Subalgebra.SeparatesPoints.rclike_to_real {𝕜 : Type u_1} {X : Type u_2} [RCLike 𝕜] [TopologicalSpace X] {A : StarSubalgebra 𝕜 C(X, 𝕜)} (hA : Subalgebra.SeparatesPoints A.toSubalgebra) : Subalgebra.SeparatesPoints (Subalgebra.comap (AlgHom.compLeftContinuous ℝ RCLike.ofRealAm ⋯) (Subalgebra.restrictScalars ℝ A.toSubalgebra))

If a star subalgebra of C(X, 𝕜) separates points, then the real subalgebra of its purely real-valued elements also separates points.

theorem ContinuousMap.starSubalgebra_topologicalClosure_eq_top_of_separatesPoints {𝕜 : Type u_1} {X : Type u_2} [RCLike 𝕜] [TopologicalSpace X] [CompactSpace X] (A : StarSubalgebra 𝕜 C(X, 𝕜)) (hA : Subalgebra.SeparatesPoints A.toSubalgebra) : StarSubalgebra.topologicalClosure A = ⊤

The Stone-Weierstrass approximation theorem, RCLike version, that a star subalgebra A of C(X, 𝕜), where X is a compact topological space and RCLike 𝕜, is dense if it separates points.

theorem polynomialFunctions.topologicalClosure (s : Set ℝ) [CompactSpace ↑s] : Subalgebra.topologicalClosure (polynomialFunctions s) = ⊤

Polynomial functions in are dense in C(s, ℝ) when s is compact.

See polynomialFunctions_closure_eq_top for the special case s = Set.Icc a b which does not use the full Stone-Weierstrass theorem. Of course, that version could be used to prove this one as well.

theorem polynomialFunctions.starClosure_topologicalClosure {𝕜 : Type u_1} [RCLike 𝕜] (s : Set 𝕜) [CompactSpace ↑s] : StarSubalgebra.topologicalClosure (Subalgebra.starClosure (polynomialFunctions s)) = ⊤

The star subalgebra generated by polynomials functions is dense in C(s, 𝕜) when s is compact and 𝕜 is either ℝ or ℂ.

theorem ContinuousMap.algHom_ext_map_X {A : Type u_1} [Ring A] [Algebra ℝ A] [TopologicalSpace A] [T2Space A] {s : Set ℝ} [CompactSpace ↑s] {φ : C(↑s, ℝ) →ₐ[ℝ] A} {ψ : C(↑s, ℝ) →ₐ[ℝ] A} (hφ : Continuous ⇑φ) (hψ : Continuous ⇑ψ) (h : φ ((Polynomial.toContinuousMapOnAlgHom s) Polynomial.X) = ψ ((Polynomial.toContinuousMapOnAlgHom s) Polynomial.X)) : φ = ψ

Continuous algebra homomorphisms from C(s, ℝ) into an ℝ-algebra A which agree at X : 𝕜[X] (interpreted as a continuous map) are, in fact, equal.

theorem ContinuousMap.starAlgHom_ext_map_X {𝕜 : Type u_1} {A : Type u_2} [RCLike 𝕜] [Ring A] [StarRing A] [Algebra 𝕜 A] [TopologicalSpace A] [T2Space A] {s : Set 𝕜} [CompactSpace ↑s] {φ : C(↑s, 𝕜) →⋆ₐ[𝕜] A} {ψ : C(↑s, 𝕜) →⋆ₐ[𝕜] A} (hφ : Continuous ⇑φ) (hψ : Continuous ⇑ψ) (h : φ ((Polynomial.toContinuousMapOnAlgHom s) Polynomial.X) = ψ ((Polynomial.toContinuousMapOnAlgHom s) Polynomial.X)) : φ = ψ

Continuous star algebra homomorphisms from C(s, 𝕜) into a star 𝕜-algebra A which agree at X : 𝕜[X] (interpreted as a continuous map) are, in fact, equal.