Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 11 additions & 0 deletions Mathlib/Topology/Separation/CompletelyRegular.lean
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,8 @@ public import Mathlib.Topology.Compactification.StoneCech
public import Mathlib.Topology.Order.Lattice
public import Mathlib.Analysis.Real.Cardinality

import Mathlib.Topology.Algebra.Indicator

/-!
# Completely regular topological spaces.

Expand Down Expand Up @@ -193,6 +195,15 @@ lemma completelyRegularSpace_iff_isInducing_stoneCechUnit :
mp _ := isInducing_stoneCechUnit
mpr hs := hs.completelyRegularSpace

theorem CompletelyRegularSpace.of_isTopologicalBasis_clopens
(h : TopologicalSpace.IsTopologicalBasis {s : Set X | IsClopen s}) :
Comment thread
vihdzp marked this conversation as resolved.
CompletelyRegularSpace X where
completely_regular x K hK hx := by
obtain ⟨s, hs, hx, hsK⟩ := h.exists_subset_of_mem_open hx hK.isOpen_compl
refine ⟨sᶜ.indicator 1, ?_, by simpa, fun x hx ↦ indicator_of_mem ?_ _⟩
· exact hs.compl.continuous_indicator continuous_const
· exact (mem_compl_iff s x).mpr fun hs ↦ hsK hs hx

open TopologicalSpace Cardinal in
theorem CompletelyRegularSpace.isTopologicalBasis_clopens_of_cardinalMk_lt_continuum
[CompletelyRegularSpace X] (hX : Cardinal.mk X < continuum) :
Expand Down
Loading