let T be non empty TopSpace; :: thesis: ( ( for A being non empty closed Subset of T
for f being continuous Function of (T | A),(Closed-Interval-TSpace ((- 1),1)) ex g being continuous Function of T,(Closed-Interval-TSpace ((- 1),1)) st g | A = f ) implies T is normal )

assume A1: for A being non empty closed Subset of T
for f being continuous Function of (T | A),(Closed-Interval-TSpace ((- 1),1)) ex g being continuous Function of T,(Closed-Interval-TSpace ((- 1),1)) st g | A = f ; :: thesis: T is normal
for C, D being non empty closed Subset of T st C misses D holds
ex f being continuous Function of T,R^1 st
( f .: C = {0} & f .: D = {1} )
proof
set f2 = T --> (R^1 1);
set f1 = T --> (R^1 0);
let C, D be non empty closed Subset of T; :: thesis: ( C misses D implies ex f being continuous Function of T,R^1 st
( f .: C = {0} & f .: D = {1} ) )

assume A2: C misses D ; :: thesis: ex f being continuous Function of T,R^1 st
( f .: C = {0} & f .: D = {1} )

set g1 = (T --> (R^1 0)) | (T | C);
set g2 = (T --> (R^1 1)) | (T | D);
set f = ((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D));
A3: the carrier of (T | D) = D by PRE_TOPC:29;
(T --> (R^1 1)) | (T | D) = (T --> (R^1 1)) | the carrier of (T | D) by TMAP_1:def 4;
then A4: rng ((T --> (R^1 1)) | (T | D)) c= rng (T --> (R^1 1)) by RELAT_1:99;
(T --> (R^1 0)) | (T | C) = (T --> (R^1 0)) | the carrier of (T | C) by TMAP_1:def 4;
then rng ((T --> (R^1 0)) | (T | C)) c= rng (T --> (R^1 0)) by RELAT_1:99;
then A5: (rng ((T --> (R^1 0)) | (T | C))) \/ (rng ((T --> (R^1 1)) | (T | D))) c= (rng (T --> (R^1 0))) \/ (rng (T --> (R^1 1))) by A4, XBOOLE_1:13;
A6: T --> (R^1 0) = the carrier of T --> 0 by TOPREALB:def 2;
then A7: rng (T --> (R^1 0)) = {0} by FUNCOP_1:14;
A8: T --> (R^1 1) = the carrier of T --> 1 by TOPREALB:def 2;
then A9: rng (T --> (R^1 1)) = {1} by FUNCOP_1:14;
A10: the carrier of (T | C) = C by PRE_TOPC:29;
then A11: T | C misses T | D by A2, A3, TSEP_1:def 3;
then rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) c= (rng ((T --> (R^1 0)) | (T | C))) \/ (rng ((T --> (R^1 1)) | (T | D))) by Th15;
then A12: rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) c= (rng (T --> (R^1 0))) \/ (rng (T --> (R^1 1))) by A5, XBOOLE_1:1;
A13: rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) c= [.(- 1),1.]
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) or x in [.(- 1),1.] )
assume x in rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) ; :: thesis: x in [.(- 1),1.]
then ( x in {0} or x in {1} ) by A12, A7, A9, XBOOLE_0:def 3;
then ( x = 0 or x = 1 ) by TARSKI:def 1;
hence x in [.(- 1),1.] by XXREAL_1:1; :: thesis: verum
end;
the carrier of (T | (C \/ D)) = C \/ D by PRE_TOPC:29;
then A14: T | (C \/ D) = (T | C) union (T | D) by A10, A3, TSEP_1:def 2;
A15: (T --> (R^1 1)) .: D = {1}
proof
thus (T --> (R^1 1)) .: D c= {1} by A8, FUNCOP_1:96; :: according to XBOOLE_0:def 10 :: thesis: {1} c= (T --> (R^1 1)) .: D
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in {1} or y in (T --> (R^1 1)) .: D )
consider c being set such that
A16: c in D by XBOOLE_0:def 1;
assume y in {1} ; :: thesis: y in (T --> (R^1 1)) .: D
then A17: y = 1 by TARSKI:def 1;
( dom (T --> (R^1 1)) = the carrier of T & (T --> (R^1 1)) . c = 1 ) by A8, A16, FUNCOP_1:13, FUNCOP_1:19;
hence y in (T --> (R^1 1)) .: D by A17, A16, FUNCT_1:def 12; :: thesis: verum
end;
A18: D c= D ;
A19: (T --> (R^1 0)) .: C = {0}
proof
thus (T --> (R^1 0)) .: C c= {0} by A6, FUNCOP_1:96; :: according to XBOOLE_0:def 10 :: thesis: {0} c= (T --> (R^1 0)) .: C
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in {0} or y in (T --> (R^1 0)) .: C )
consider c being set such that
A20: c in C by XBOOLE_0:def 1;
assume y in {0} ; :: thesis: y in (T --> (R^1 0)) .: C
then A21: y = 0 by TARSKI:def 1;
( dom (T --> (R^1 0)) = the carrier of T & (T --> (R^1 0)) . c = 0 ) by A6, A20, FUNCOP_1:13, FUNCOP_1:19;
hence y in (T --> (R^1 0)) .: C by A21, A20, FUNCT_1:def 12; :: thesis: verum
end;
A22: C \/ D is closed by TOPS_1:36;
the carrier of (Closed-Interval-TSpace ((- 1),1)) = [.(- 1),1.] by TOPMETR:25;
then reconsider h = ((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D)) as Function of (T | (C \/ D)),(Closed-Interval-TSpace ((- 1),1)) by A14, A13, FUNCT_2:8;
((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D)) is continuous Function of ((T | C) union (T | D)),R^1 by A11, TMAP_1:148;
then h is continuous by A14, PRE_TOPC:57;
then consider g being continuous Function of T,(Closed-Interval-TSpace ((- 1),1)) such that
A23: g | (C \/ D) = ((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D)) by A1, A22;
reconsider F = g as continuous Function of T,R^1 by PRE_TOPC:56, TOPREALA:28;
take F ; :: thesis: ( F .: C = {0} & F .: D = {1} )
A24: C c= C ;
thus F .: C = (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) .: C by A23, FUNCT_2:174, XBOOLE_1:7
.= ((T --> (R^1 0)) | (T | C)) .: C by A10, A11, A24, Th16
.= ((T --> (R^1 0)) | C) .: C by A10, TMAP_1:def 3
.= {0} by A19, RELAT_1:162 ; :: thesis: F .: D = {1}
thus F .: D = (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) .: D by A23, FUNCT_2:174, XBOOLE_1:7
.= ((T --> (R^1 1)) | (T | D)) .: D by A3, A11, A18, Th16
.= ((T --> (R^1 1)) | D) .: D by A3, TMAP_1:def 3
.= {1} by A15, RELAT_1:162 ; :: thesis: verum
end;
hence T is normal by Th20; :: thesis: verum