begin
Lm1:
for x, X being set holds
( {x} c= X iff x in X )
Lm2:
for Y, X, x being set st Y c= X & not x in Y holds
Y c= X \ {x}
Lm3:
for Y, x being set holds
( Y c= {x} iff ( Y = {} or Y = {x} ) )
definition
let X1,
X2 be
set ;
defpred S1[
set ]
means ex
x,
y being
set st
(
x in X1 &
y in X2 & $1
= [x,y] );
existence
ex b1 being set st
for z being set holds
( z in b1 iff ex x, y being set st
( x in X1 & y in X2 & z = [x,y] ) )
uniqueness
for b1, b2 being set st ( for z being set holds
( z in b1 iff ex x, y being set st
( x in X1 & y in X2 & z = [x,y] ) ) ) & ( for z being set holds
( z in b2 iff ex x, y being set st
( x in X1 & y in X2 & z = [x,y] ) ) ) holds
b1 = b2
end;
begin
theorem Th4:
for
x,
y1,
y2 being
set st
{x} = {y1,y2} holds
x = y1
theorem
for
x,
y1,
y2 being
set st
{x} = {y1,y2} holds
y1 = y2
theorem Th6:
for
x1,
x2,
y1,
y2 being
set holds
( not
{x1,x2} = {y1,y2} or
x1 = y1 or
x1 = y2 )
Lm4:
for x, X being set st {x} \/ X c= X holds
x in X
Lm6:
for x, X being set st {x} misses X holds
not x in X
Lm7:
for x, X being set st not x in X holds
{x} misses X
Lm8:
for X, x being set st X /\ {x} = {x} holds
x in X
Lm9:
for x, X being set st x in X holds
X /\ {x} = {x}
by XBOOLE_1:28, Lm1;
Lm10:
for x, X being set holds
( {x} \ X = {x} iff not x in X )
by Lm6, Lm7, XBOOLE_1:83;
Lm11:
for x, X being set holds
( {x} \ X = {} iff x in X )
by Lm1, XBOOLE_1:37;
Lm12:
for x, y, X being set holds
( {x,y} \ X = {x} iff ( not x in X & ( y in X or x = y ) ) )
theorem
for
z,
x,
y being
set holds
( not
{z} c= {x,y} or
z = x or
z = y )
Lm13:
for X, x being set st X <> {x} & X <> {} holds
ex y being set st
( y in X & y <> x )
Lm14:
for Z, x1, x2 being set holds
( Z c= {x1,x2} iff ( Z = {} or Z = {x1} or Z = {x2} or Z = {x1,x2} ) )
theorem
for
x1,
x2,
y1,
y2 being
set holds
( not
{x1,x2} c= {y1,y2} or
x1 = y1 or
x1 = y2 )
Lm15:
for X, A being set st X in A holds
X c= union A
Lm16:
for X, Y being set holds union {X,Y} = X \/ Y
Lm17:
for x, y, X, Y being set holds
( [x,y] in [:X,Y:] iff ( x in X & y in Y ) )
theorem Th30:
for
x,
y,
z being
set holds
(
[:{x},{y,z}:] = {[x,y],[x,z]} &
[:{x,y},{z}:] = {[x,z],[y,z]} )
theorem Th32:
for
x1,
x2,
Z being
set holds
(
{x1,x2} c= Z iff (
x1 in Z &
x2 in Z ) )
theorem
for
x,
y,
X being
set holds
( not
{x,y} /\ X = {x} or not
y in X or
x = y )
theorem
for
x,
X,
y being
set st
x in X & ( not
y in X or
x = y ) holds
{x,y} /\ X = {x}
theorem Th56:
for
z,
X,
x being
set holds
(
z in X \ {x} iff (
z in X &
z <> x ) )
theorem Th57:
for
X,
x being
set holds
(
X \ {x} = X iff not
x in X )
theorem
for
x,
y,
X being
set holds
(
{x,y} \ X = {x} iff ( not
x in X & (
y in X or
x = y ) ) )
by Lm12;
theorem Th64:
for
x,
y,
X being
set holds
(
{x,y} \ X = {} iff (
x in X &
y in X ) )
theorem Th84:
for
A,
X,
Y,
z being
set st
A c= [:X,Y:] &
z in A holds
ex
x,
y being
set st
(
x in X &
y in Y &
z = [x,y] )
theorem
for
X1,
Y1,
X2,
Y2 being
set st ( for
x,
y being
set holds
(
[x,y] in [:X1,Y1:] iff
[x,y] in [:X2,Y2:] ) ) holds
[:X1,Y1:] = [:X2,Y2:]
Lm18:
for A, X1, Y1, B, X2, Y2 being set st A c= [:X1,Y1:] & B c= [:X2,Y2:] & ( for x, y being set holds
( [x,y] in A iff [x,y] in B ) ) holds
A = B
Lm19:
for A, B being set st ( for z being set st z in A holds
ex x, y being set st z = [x,y] ) & ( for z being set st z in B holds
ex x, y being set st z = [x,y] ) & ( for x, y being set holds
( [x,y] in A iff [x,y] in B ) ) holds
A = B
Lm20:
for z, X, Y being set st z in [:X,Y:] holds
ex x, y being set st [x,y] = z
theorem
for
x,
y,
X being
set holds
(
[:{x,y},X:] = [:{x},X:] \/ [:{y},X:] &
[:X,{x,y}:] = [:X,{x}:] \/ [:X,{y}:] )
begin
theorem
for
x,
y,
z,
Z being
set holds
(
Z c= {x,y,z} iff (
Z = {} or
Z = {x} or
Z = {y} or
Z = {z} or
Z = {x,y} or
Z = {y,z} or
Z = {x,z} or
Z = {x,y,z} ) )
Lm21:
for x, y, X being set st not x in X & not y in X holds
{x,y} misses X
theorem Th120:
for
x,
y,
X being
set st not
x in X & not
y in X holds
X = X \ {x,y}
theorem
for
x,
y,
X being
set st not
x in X & not
y in X holds
X = (X \/ {x,y}) \ {x,y}
definition
let x1,
x2,
x3,
x4 be
set ;
end;
definition
let x1,
x2,
x3,
x4,
x5 be
set ;
end;
definition
let x1,
x2,
x3,
x4,
x5,
x6 be
set ;
end;
::
deftheorem defines
are_mutually_different ZFMISC_1:def 8 :
for x1, x2, x3, x4, x5, x6 being set holds
( x1,x2,x3,x4,x5,x6 are_mutually_different iff ( x1 <> x2 & x1 <> x3 & x1 <> x4 & x1 <> x5 & x1 <> x6 & x2 <> x3 & x2 <> x4 & x2 <> x5 & x2 <> x6 & x3 <> x4 & x3 <> x5 & x3 <> x6 & x4 <> x5 & x4 <> x6 & x5 <> x6 ) );
definition
let x1,
x2,
x3,
x4,
x5,
x6,
x7 be
set ;
end;
::
deftheorem defines
are_mutually_different ZFMISC_1:def 9 :
for x1, x2, x3, x4, x5, x6, x7 being set holds
( x1,x2,x3,x4,x5,x6,x7 are_mutually_different iff ( x1 <> x2 & x1 <> x3 & x1 <> x4 & x1 <> x5 & x1 <> x6 & x1 <> x7 & x2 <> x3 & x2 <> x4 & x2 <> x5 & x2 <> x6 & x2 <> x7 & x3 <> x4 & x3 <> x5 & x3 <> x6 & x3 <> x7 & x4 <> x5 & x4 <> x6 & x4 <> x7 & x5 <> x6 & x5 <> x7 & x6 <> x7 ) );
theorem
for
x1,
x2,
y1,
y2 being
set holds
[:{x1,x2},{y1,y2}:] = {[x1,y1],[x1,y2],[x2,y1],[x2,y2]}
theorem
for
a,
b,
c,
X being
set st
a in X &
b in X &
c in X holds
{a,b,c} c= X
theorem Th135:
for
Y,
x,
X being
set holds
( not
X c= Y \/ {x} or
x in X or
X c= Y )
theorem
for
x,
y,
X being
set holds
(
x in X \/ {y} iff (
x in X or
x = y ) )
theorem
for
x,
Y,
X being
set holds
(
X \/ {x} c= Y iff (
x in Y &
X c= Y ) )
:: Empty set.
::