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:8;
(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:70;
(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:70;
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:8;
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:8;
A10: the carrier of (T | C) = C by PRE_TOPC:8;
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 Th13;
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;
A13: rng (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) c= [.(- 1),1.]
proof
let x be object ; :: 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:8;
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:81; :: according to XBOOLE_0:def 10 :: thesis: {1} c= (T --> (R^1 1)) .: D
let y be object ; :: according to TARSKI:def 3 :: thesis: ( not y in {1} or y in (T --> (R^1 1)) .: D )
consider c being object 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:7, FUNCOP_1:13;
hence y in (T --> (R^1 1)) .: D by A17, A16, FUNCT_1:def 6; :: thesis: verum
end;
A18: (T --> (R^1 0)) .: C = {0}
proof
thus (T --> (R^1 0)) .: C c= {0} by A6, FUNCOP_1:81; :: according to XBOOLE_0:def 10 :: thesis: {0} c= (T --> (R^1 0)) .: C
let y be object ; :: according to TARSKI:def 3 :: thesis: ( not y in {0} or y in (T --> (R^1 0)) .: C )
consider c being object such that
A19: c in C by XBOOLE_0:def 1;
assume y in {0} ; :: thesis: y in (T --> (R^1 0)) .: C
then A20: y = 0 by TARSKI:def 1;
( dom (T --> (R^1 0)) = the carrier of T & (T --> (R^1 0)) . c = 0 ) by A6, A19, FUNCOP_1:7, FUNCOP_1:13;
hence y in (T --> (R^1 0)) .: C by A20, A19, FUNCT_1:def 6; :: thesis: verum
end;
A21: C \/ D is closed by TOPS_1:9;
the carrier of (Closed-Interval-TSpace ((- 1),1)) = [.(- 1),1.] by TOPMETR:18;
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:6;
((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:136;
then h is continuous by A14, PRE_TOPC:27;
then consider g being continuous Function of T,(Closed-Interval-TSpace ((- 1),1)) such that
A22: g | (C \/ D) = ((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D)) by A1, A21;
reconsider F = g as continuous Function of T,R^1 by PRE_TOPC:26, TOPREALA:7;
take F ; :: thesis: ( F .: C = {0} & F .: D = {1} )
thus F .: C = (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) .: C by A22, FUNCT_2:97, XBOOLE_1:7
.= ((T --> (R^1 0)) | (T | C)) .: C by A10, A11, Th14
.= ((T --> (R^1 0)) | C) .: C by A10, TMAP_1:def 3
.= {0} by A18, RELAT_1:129 ; :: thesis: F .: D = {1}
thus F .: D = (((T --> (R^1 0)) | (T | C)) union ((T --> (R^1 1)) | (T | D))) .: D by A22, FUNCT_2:97, XBOOLE_1:7
.= ((T --> (R^1 1)) | (T | D)) .: D by A3, A11, Th14
.= ((T --> (R^1 1)) | D) .: D by A3, TMAP_1:def 3
.= {1} by A15, RELAT_1:129 ; :: thesis: verum
end;
hence T is normal by Th18; :: thesis: verum