let X1, X2, X3, X4, X5 be set ; :: thesis: ( ( X1 c= [:X1,X2,X3,X4,X5:] or X1 c= [:X2,X3,X4,X5,X1:] or X1 c= [:X3,X4,X5,X1,X2:] or X1 c= [:X4,X5,X1,X2,X3:] or X1 c= [:X5,X1,X2,X3,X4:] ) implies X1 = {} )
assume that
A1: ( X1 c= [:X1,X2,X3,X4,X5:] or X1 c= [:X2,X3,X4,X5,X1:] or X1 c= [:X3,X4,X5,X1,X2:] or X1 c= [:X4,X5,X1,X2,X3:] or X1 c= [:X5,X1,X2,X3,X4:] ) and
A2: X1 <> {} ; :: thesis: contradiction
A3: ( [:X1,X2,X3,X4,X5:] <> {} or [:X2,X3,X4,X5,X1:] <> {} or [:X3,X4,X5,X1,X2:] <> {} or [:X4,X5,X1,X2,X3:] <> {} or [:X5,X1,X2,X3,X4:] <> {} ) by A1, A2, XBOOLE_1:3;
then A4: ( X4 <> {} & X5 <> {} ) by Th13;
A5: ( X2 <> {} & X3 <> {} ) by A3, Th13;
now
per cases ( X1 c= [:X1,X2,X3,X4,X5:] or X1 c= [:X2,X3,X4,X5,X1:] or X1 c= [:X3,X4,X5,X1,X2:] or X1 c= [:X4,X5,X1,X2,X3:] or X1 c= [:X5,X1,X2,X3,X4:] ) by A1;
suppose A6: X1 c= [:X1,X2,X3,X4,X5:] ; :: thesis: contradiction
consider x being set such that
A7: x in X1 and
A8: for x1, x2, x3, x4, x5 being set st ( x1 in X1 or x2 in X1 ) holds
x <> [x1,x2,x3,x4,x5] by A2, Th8;
reconsider x = x as Element of [:X1,X2,X3,X4,X5:] by A6, A7;
x = [(x `1 ),(x `2 ),(x `3 ),(x `4 ),(x `5 )] by A2, A5, A4, Th19;
hence contradiction by A2, A8; :: thesis: verum
end;
suppose X1 c= [:X2,X3,X4,X5,X1:] ; :: thesis: contradiction
end;
suppose X1 c= [:X3,X4,X5,X1,X2:] ; :: thesis: contradiction
end;
suppose X1 c= [:X4,X5,X1,X2,X3:] ; :: thesis: contradiction
end;
suppose A9: X1 c= [:X5,X1,X2,X3,X4:] ; :: thesis: contradiction
consider x being set such that
A10: x in X1 and
A11: for x1, x2, x3, x4, x5 being set st ( x1 in X1 or x2 in X1 ) holds
x <> [x1,x2,x3,x4,x5] by A2, Th8;
reconsider x = x as Element of [:X5,X1,X2,X3,X4:] by A9, A10;
x = [(x `1 ),(x `2 ),(x `3 ),(x `4 ),(x `5 )] by A2, A5, A4, Th19;
hence contradiction by A2, A11; :: thesis: verum
end;
end;
end;
hence contradiction ; :: thesis: verum