let X be non empty set ; :: thesis: ( 3 c= card X implies for K being Subset of X st card K = 2 holds
for S being TopStruct st the carrier of S = X & the topology of S = { L where L is Subset of X : 2 = card L } \ {K} holds
( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points ) )

assume A1: 3 c= card X ; :: thesis: for K being Subset of X st card K = 2 holds
for S being TopStruct st the carrier of S = X & the topology of S = { L where L is Subset of X : 2 = card L } \ {K} holds
( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )

B2: 2 c= 3 by NAT_1:40;
let K be Subset of X; :: thesis: ( card K = 2 implies for S being TopStruct st the carrier of S = X & the topology of S = { L where L is Subset of X : 2 = card L } \ {K} holds
( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points ) )

assume A3: card K = 2 ; :: thesis: for S being TopStruct st the carrier of S = X & the topology of S = { L where L is Subset of X : 2 = card L } \ {K} holds
( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )

then card K = card 2 ;
then reconsider K' = K as finite Subset of X ;
let S be TopStruct ; :: thesis: ( the carrier of S = X & the topology of S = { L where L is Subset of X : 2 = card L } \ {K} implies ( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points ) )
assume that
A4: the carrier of S = X and
A5: the topology of S = { L where L is Subset of X : 2 = card L } \ {K} ; :: thesis: ( not S is empty & not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )
consider x, y being set such that
A6: ( x <> y & K' = {x,y} ) by A3, CARD_2:79;
reconsider x = x, y = y as Point of S by A4, A6, ZFMISC_1:38;
thus not S is empty by A4; :: thesis: ( not S is void & not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )
consider z being set such that
A7: ( z in X & z <> x & z <> y ) by A1, Th6;
{x,z} c= X
proof
let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in {x,z} or a in X )
assume a in {x,z} ; :: thesis: a in X
then ( a = x or a = z ) by TARSKI:def 2;
hence a in X by A4, A7; :: thesis: verum
end;
then reconsider l = {x,z} as Subset of X ;
A8: ( not z in K' & z in l ) by A6, A7, TARSKI:def 2;
card l = 2 by A7, CARD_2:76;
then ( l in { L where L is Subset of X : 2 = card L } & not l in {K} ) by A8, TARSKI:def 1;
then A9: not { L where L is Subset of X : 2 = card L } c= {K} ;
then A10: not { L where L is Subset of X : 2 = card L } \ {K} is empty by XBOOLE_1:37;
hence not S is void by A5, Def4; :: thesis: ( not S is degenerated & S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )
reconsider F = { L where L is Subset of X : 2 = card L } \ {K} as non empty set by A9, XBOOLE_1:37;
now
assume X in F ; :: thesis: contradiction
then X in { L where L is Subset of X : 2 = card L } ;
then consider L being Subset of X such that
A11: ( X = L & 2 = card L ) ;
thus contradiction by A1, A11, NAT_1:40; :: thesis: verum
end;
then X is not Element of F ;
hence not S is degenerated by A4, A5, Def5; :: thesis: ( S is truly-partial & S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )
thus S is truly-partial :: thesis: ( S is with_non_trivial_blocks & S is identifying_close_blocks & S is without_isolated_points )
proof
take x ; :: according to PENCIL_1:def 8 :: thesis: not for y being Point of S holds x,y are_collinear
take y ; :: thesis: not x,y are_collinear
for l being Block of S holds not {x,y} c= l
proof
let l be Block of S; :: thesis: not {x,y} c= l
A12: ( l in { L where L is Subset of X : 2 = card L } & not l in {K} ) by A5, A10, XBOOLE_0:def 5;
then consider L being Subset of X such that
A13: ( l = L & card L = 2 ) ;
card L = card 2 by A13;
then reconsider L' = L as finite Subset of X ;
consider a, b being set such that
A14: ( a <> b & L' = {a,b} ) by A13, CARD_2:79;
now
assume {x,y} c= l ; :: thesis: contradiction
then ( x in L' & y in L' ) by A13, ZFMISC_1:38;
then ( ( x = a or x = b ) & ( y = a or y = b ) ) by A14, TARSKI:def 2;
hence contradiction by A6, A12, A13, A14, TARSKI:def 1; :: thesis: verum
end;
hence not {x,y} c= l ; :: thesis: verum
end;
hence not x,y are_collinear by A6, Def1; :: thesis: verum
end;
thus S is with_non_trivial_blocks :: thesis: ( S is identifying_close_blocks & S is without_isolated_points )
proof
let k be Block of S; :: according to PENCIL_1:def 6 :: thesis: 2 c= card k
k in { L where L is Subset of X : 2 = card L } by A5, A10, XBOOLE_0:def 5;
then consider m being Subset of X such that
A15: ( m = k & card m = 2 ) ;
thus 2 c= card k by A15; :: thesis: verum
end;
thus S is identifying_close_blocks :: thesis: S is without_isolated_points
proof
let k, l be Block of S; :: according to PENCIL_1:def 7 :: thesis: ( 2 c= card (k /\ l) implies k = l )
k in { L where L is Subset of X : 2 = card L } by A5, A10, XBOOLE_0:def 5;
then consider m being Subset of X such that
A16: ( m = k & card m = 2 ) ;
assume 2 c= card (k /\ l) ; :: thesis: k = l
then consider a, b being set such that
A17: ( a in k /\ l & b in k /\ l & a <> b ) by Th2;
A18: {a,b} c= k /\ l
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in {a,b} or x in k /\ l )
assume x in {a,b} ; :: thesis: x in k /\ l
hence x in k /\ l by A17, TARSKI:def 2; :: thesis: verum
end;
A19: card {a,b} = 2 by A17, CARD_2:76;
card k = card 2 by A16;
then reconsider k1 = k as finite set ;
k /\ l c= k1 by XBOOLE_1:17;
then A20: {a,b} = k1 by A16, A18, A19, TRIANG_1:3, XBOOLE_1:1;
l in { L where L is Subset of X : 2 = card L } by A5, A10, XBOOLE_0:def 5;
then consider n being Subset of X such that
A21: ( n = l & card n = 2 ) ;
card l = card 2 by A21;
then reconsider l1 = l as finite set ;
k /\ l c= l1 by XBOOLE_1:17;
hence k = l by A18, A19, A20, A21, TRIANG_1:3, XBOOLE_1:1; :: thesis: verum
end;
thus S is without_isolated_points :: thesis: verum
proof
let p be Point of S; :: according to PENCIL_1:def 9 :: thesis: ex l being Block of S st p in l
per cases ( ( p <> x & p <> y ) or p = x or p = y ) ;
suppose A22: ( p <> x & p <> y ) ; :: thesis: ex l being Block of S st p in l
consider z being set such that
A23: ( z in X & z <> p ) by B2, Th3, A1, XBOOLE_1:1;
A24: card {p,z} = 2 by A23, CARD_2:76;
{p,z} c= X
proof
let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in {p,z} or a in X )
assume a in {p,z} ; :: thesis: a in X
then ( a = p or a = z ) by TARSKI:def 2;
hence a in X by A4, A23; :: thesis: verum
end;
then reconsider el = {p,z} as Subset of X ;
p in el by TARSKI:def 2;
then el <> K by A6, A22, TARSKI:def 2;
then ( el in { L where L is Subset of X : 2 = card L } & not el in {K} ) by A24, TARSKI:def 1;
then reconsider el = el as Block of S by A5, XBOOLE_0:def 5;
take el ; :: thesis: p in el
thus p in el by TARSKI:def 2; :: thesis: verum
end;
suppose A25: ( p = x or p = y ) ; :: thesis: ex l being Block of S st p in l
consider z being set such that
A26: ( z in X & z <> x & z <> y ) by A1, Th6;
A27: card {p,z} = 2 by A25, A26, CARD_2:76;
{p,z} c= X
proof
let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in {p,z} or a in X )
assume a in {p,z} ; :: thesis: a in X
then ( a = p or a = z ) by TARSKI:def 2;
hence a in X by A4, A26; :: thesis: verum
end;
then reconsider el = {p,z} as Subset of X ;
z in el by TARSKI:def 2;
then el <> K by A6, A26, TARSKI:def 2;
then ( el in { L where L is Subset of X : 2 = card L } & not el in {K} ) by A27, TARSKI:def 1;
then reconsider el = el as Block of S by A5, XBOOLE_0:def 5;
take el ; :: thesis: p in el
thus p in el by TARSKI:def 2; :: thesis: verum
end;
end;
end;