fact: Definition extension_approximation_seq: forall n:nat, { g0:X -> RTop | continuous g0 /\ (forall x:X, -1 + (2/3)^n <= g0 x <= 1 - (2/3)^n) /\ (forall x:SubspaceTopology F, -(2/3)^n <= f x - g0 (subspace_inc F x) <= (2/3)^n) }.
imports: RTopology SeparatednessAxioms RFuncContinuity UniformTopology ContinuousFactorization Coq(Description Max Psatz ClassicalChoice) ZornsLemma(Proj1SigInjective) UrysohnsLemma