:: CONNSP_3 semantic presentation

definition
let c1 be TopStruct ;
let c2 be Subset of c1;
func skl c2 -> Subset of a1 means :Def1: :: CONNSP_3:def 1
ex b1 being Subset-Family of a1 st
( ( for b2 being Subset of a1 holds
( b2 in b1 iff ( b2 is connected & a2 c= b2 ) ) ) & union b1 = a3 );
existence
ex b1 being Subset of c1ex b2 being Subset-Family of c1 st
( ( for b3 being Subset of c1 holds
( b3 in b2 iff ( b3 is connected & c2 c= b3 ) ) ) & union b2 = b1 )
proof end;
uniqueness
for b1, b2 being Subset of c1 st ex b3 being Subset-Family of c1 st
( ( for b4 being Subset of c1 holds
( b4 in b3 iff ( b4 is connected & c2 c= b4 ) ) ) & union b3 = b1 ) & ex b3 being Subset-Family of c1 st
( ( for b4 being Subset of c1 holds
( b4 in b3 iff ( b4 is connected & c2 c= b4 ) ) ) & union b3 = b2 ) holds
b1 = b2
proof end;
end;

:: deftheorem Def1 defines skl CONNSP_3:def 1 :
for b1 being TopStruct
for b2, b3 being Subset of b1 holds
( b3 = skl b2 iff ex b4 being Subset-Family of b1 st
( ( for b5 being Subset of b1 holds
( b5 in b4 iff ( b5 is connected & b2 c= b5 ) ) ) & union b4 = b3 ) );

theorem Th1: :: CONNSP_3:1
for b1 being TopSpace
for b2 being Subset of b1 st ex b3 being Subset of b1 st
( b3 is connected & b2 c= b3 ) holds
b2 c= skl b2
proof end;

theorem Th2: :: CONNSP_3:2
for b1 being TopSpace
for b2 being Subset of b1 st ( for b3 being Subset of b1 holds
( not b3 is connected or not b2 c= b3 ) ) holds
skl b2 = {}
proof end;

theorem Th3: :: CONNSP_3:3
for b1 being non empty TopSpace holds skl ({} b1) = the carrier of b1
proof end;

theorem Th4: :: CONNSP_3:4
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 is connected holds
skl b2 <> {}
proof end;

theorem Th5: :: CONNSP_3:5
for b1 being TopSpace
for b2 being Subset of b1 st b2 is connected & b2 <> {} holds
skl b2 is connected
proof end;

theorem Th6: :: CONNSP_3:6
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is connected & b3 is connected & skl b2 c= b3 holds
b3 = skl b2
proof end;

theorem Th7: :: CONNSP_3:7
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 is_a_component_of b1 holds
skl b2 = b2
proof end;

theorem Th8: :: CONNSP_3:8
for b1 being non empty TopSpace
for b2 being Subset of b1 holds
( b2 is_a_component_of b1 iff ex b3 being Subset of b1 st
( b3 is connected & b3 <> {} & b2 = skl b3 ) )
proof end;

theorem Th9: :: CONNSP_3:9
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 is connected & b2 <> {} holds
skl b2 is_a_component_of b1 by Th8;

theorem Th10: :: CONNSP_3:10
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is_a_component_of b1 & b3 is connected & b3 c= b2 & b3 <> {} holds
b2 = skl b3
proof end;

theorem Th11: :: CONNSP_3:11
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 is connected & b2 <> {} holds
skl (skl b2) = skl b2
proof end;

theorem Th12: :: CONNSP_3:12
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is connected & b3 is connected & b2 <> {} & b2 c= b3 holds
skl b2 = skl b3
proof end;

theorem Th13: :: CONNSP_3:13
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is connected & b3 is connected & b2 <> {} & b2 c= b3 holds
b3 c= skl b2
proof end;

theorem Th14: :: CONNSP_3:14
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is connected & b2 \/ b3 is connected & b2 <> {} holds
b2 \/ b3 c= skl b2
proof end;

theorem Th15: :: CONNSP_3:15
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Point of b1 st b2 is connected & b3 in b2 holds
skl b3 = skl b2
proof end;

theorem Th16: :: CONNSP_3:16
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is connected & b3 is connected & b2 meets b3 holds
( b2 \/ b3 c= skl b2 & b2 \/ b3 c= skl b3 & b2 c= skl b3 & b3 c= skl b2 )
proof end;

theorem Th17: :: CONNSP_3:17
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 is connected & b2 <> {} holds
Cl b2 c= skl b2
proof end;

theorem Th18: :: CONNSP_3:18
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is_a_component_of b1 & b3 is connected & b3 <> {} & b2 misses b3 holds
b2 misses skl b3
proof end;

E14: now
let c1 be TopStruct ;
{} c= bool the carrier of c1 by XBOOLE_1:2;
then reconsider c2 = {} as Subset-Family of c1 ;
( ( for b1 being Subset of c1 st b1 in c2 holds
b1 is_a_component_of c1 ) & {} c1 = union c2 ) by ZFMISC_1:2;
hence ex b1 being Subset-Family of c1 st
( ( for b2 being Subset of c1 st b2 in b1 holds
b2 is_a_component_of c1 ) & {} c1 = union b1 ) ;
end;

definition
let c1 be TopStruct ;
mode a_union_of_components of c1 -> Subset of a1 means :Def2: :: CONNSP_3:def 2
ex b1 being Subset-Family of a1 st
( ( for b2 being Subset of a1 st b2 in b1 holds
b2 is_a_component_of a1 ) & a2 = union b1 );
existence
ex b1 being Subset of c1ex b2 being Subset-Family of c1 st
( ( for b3 being Subset of c1 st b3 in b2 holds
b3 is_a_component_of c1 ) & b1 = union b2 )
proof end;
end;

:: deftheorem Def2 defines a_union_of_components CONNSP_3:def 2 :
for b1 being TopStruct
for b2 being Subset of b1 holds
( b2 is a_union_of_components of b1 iff ex b3 being Subset-Family of b1 st
( ( for b4 being Subset of b1 st b4 in b3 holds
b4 is_a_component_of b1 ) & b2 = union b3 ) );

theorem Th19: :: CONNSP_3:19
for b1 being non empty TopSpace holds {} b1 is a_union_of_components of b1
proof end;

theorem Th20: :: CONNSP_3:20
for b1 being non empty TopSpace
for b2 being Subset of b1 st b2 = the carrier of b1 holds
b2 is a_union_of_components of b1
proof end;

theorem Th21: :: CONNSP_3:21
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 & b2 is a_union_of_components of b1 holds
skl b3 c= b2
proof end;

theorem Th22: :: CONNSP_3:22
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is a_union_of_components of b1 & b3 is a_union_of_components of b1 holds
( b2 \/ b3 is a_union_of_components of b1 & b2 /\ b3 is a_union_of_components of b1 )
proof end;

theorem Th23: :: CONNSP_3:23
for b1 being non empty TopSpace
for b2 being Subset-Family of b1 st ( for b3 being Subset of b1 st b3 in b2 holds
b3 is a_union_of_components of b1 ) holds
union b2 is a_union_of_components of b1
proof end;

theorem Th24: :: CONNSP_3:24
for b1 being non empty TopSpace
for b2 being Subset-Family of b1 st ( for b3 being Subset of b1 st b3 in b2 holds
b3 is a_union_of_components of b1 ) holds
meet b2 is a_union_of_components of b1
proof end;

theorem Th25: :: CONNSP_3:25
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 is a_union_of_components of b1 & b3 is a_union_of_components of b1 holds
b2 \ b3 is a_union_of_components of b1
proof end;

definition
let c1 be TopStruct ;
let c2 be Subset of c1;
let c3 be Point of c1;
assume E18: c3 in c2 ;
func Down c3,c2 -> Point of (a1 | a2) equals :Def3: :: CONNSP_3:def 3
a3;
coherence
c3 is Point of (c1 | c2)
proof end;
end;

:: deftheorem Def3 defines Down CONNSP_3:def 3 :
for b1 being TopStruct
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 holds
Down b3,b2 = b3;

definition
let c1 be TopStruct ;
let c2 be Subset of c1;
let c3 be Point of (c1 | c2);
assume E19: c2 <> {} ;
func Up c3 -> Point of a1 equals :: CONNSP_3:def 4
a3;
coherence
c3 is Point of c1
proof end;
end;

:: deftheorem Def4 defines Up CONNSP_3:def 4 :
for b1 being TopStruct
for b2 being Subset of b1
for b3 being Point of (b1 | b2) st b2 <> {} holds
Up b3 = b3;

definition
let c1 be TopStruct ;
let c2, c3 be Subset of c1;
func Down c2,c3 -> Subset of (a1 | a3) equals :: CONNSP_3:def 5
a2 /\ a3;
coherence
c2 /\ c3 is Subset of (c1 | c3)
proof end;
end;

:: deftheorem Def5 defines Down CONNSP_3:def 5 :
for b1 being TopStruct
for b2, b3 being Subset of b1 holds Down b2,b3 = b2 /\ b3;

definition
let c1 be TopStruct ;
let c2 be Subset of c1;
let c3 be Subset of (c1 | c2);
func Up c3 -> Subset of a1 equals :: CONNSP_3:def 6
a3;
coherence
c3 is Subset of c1
proof end;
end;

:: deftheorem Def6 defines Up CONNSP_3:def 6 :
for b1 being TopStruct
for b2 being Subset of b1
for b3 being Subset of (b1 | b2) holds Up b3 = b3;

definition
let c1 be TopStruct ;
let c2 be Subset of c1;
let c3 be Point of c1;
assume E19: c3 in c2 ;
func skl c3,c2 -> Subset of a1 means :Def7: :: CONNSP_3:def 7
for b1 being Point of (a1 | a2) st b1 = a3 holds
a4 = skl b1;
existence
ex b1 being Subset of c1 st
for b2 being Point of (c1 | c2) st b2 = c3 holds
b1 = skl b2
proof end;
uniqueness
for b1, b2 being Subset of c1 st ( for b3 being Point of (c1 | c2) st b3 = c3 holds
b1 = skl b3 ) & ( for b3 being Point of (c1 | c2) st b3 = c3 holds
b2 = skl b3 ) holds
b1 = b2
proof end;
end;

:: deftheorem Def7 defines skl CONNSP_3:def 7 :
for b1 being TopStruct
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 holds
for b4 being Subset of b1 holds
( b4 = skl b3,b2 iff for b5 being Point of (b1 | b2) st b5 = b3 holds
b4 = skl b5 );

theorem Th26: :: CONNSP_3:26
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 holds
b3 in skl b3,b2
proof end;

theorem Th27: :: CONNSP_3:27
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 holds
skl b3,b2 = skl (Down b3,b2)
proof end;

theorem Th28: :: CONNSP_3:28
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 c= b3 holds
Down b2,b3 = b2 by XBOOLE_1:28;

theorem Th29: :: CONNSP_3:29
for b1 being TopSpace
for b2, b3 being Subset of b1 st b2 is open holds
Down b2,b3 is open
proof end;

theorem Th30: :: CONNSP_3:30
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 c= b3 holds
Cl (Down b2,b3) = (Cl b2) /\ b3
proof end;

theorem Th31: :: CONNSP_3:31
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Subset of (b1 | b2) holds Cl b3 = (Cl (Up b3)) /\ b2
proof end;

theorem Th32: :: CONNSP_3:32
for b1 being non empty TopSpace
for b2, b3 being Subset of b1 st b2 c= b3 holds
Cl (Down b2,b3) c= Cl b2
proof end;

theorem Th33: :: CONNSP_3:33
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Subset of (b1 | b2) st b3 c= b2 holds
Down (Up b3),b2 = b3 by Th28;

theorem Th34: :: CONNSP_3:34
for b1 being TopSpace
for b2, b3 being Subset of b1
for b4 being Subset of (b1 | b3) st b2 = b4 & b4 is connected holds
b2 is connected
proof end;

theorem Th35: :: CONNSP_3:35
for b1 being non empty TopSpace
for b2 being Subset of b1
for b3 being Point of b1 st b3 in b2 holds
skl b3,b2 is connected
proof end;