Let convert_continuity: forall h:point_set X -> R,
continuous h (Y:=RTop) <-> continuous h (Y:=MetricTopology R_metric
R_metric_is_metric).

Lemma bounded_Tietze_extension_theorem: forall (X:TopologicalSpace)
(F:Ensemble (point_set X)) (f:point_set (SubspaceTopology F) ->
point_set RTop),
normal_sep X -> closed F -> continuous f ->
(forall x:point_set (SubspaceTopology F), -1 <= f x <= 1) ->
exists g:point_set X -> point_set RTop,
continuous g /\ (forall x:point_set (SubspaceTopology F),
g (subspace_inc F x) = f x) /\
(forall x:point_set X, -1 <= g x <= 1).