let X1, Y1, X2, Y2, X3, Y3 be set ; :: thesis: ( X1 c= Y1 & X2 c= Y2 & X3 c= Y3 implies [:X1,X2,X3:] c= [:Y1,Y2,Y3:] )
assume
( X1 c= Y1 & X2 c= Y2 )
; :: thesis: ( not X3 c= Y3 or [:X1,X2,X3:] c= [:Y1,Y2,Y3:] )
then A1:
[:X1,X2:] c= [:Y1,Y2:]
by ZFMISC_1:119;
A2:
( [:X1,X2,X3:] = [:[:X1,X2:],X3:] & [:Y1,Y2,Y3:] = [:[:Y1,Y2:],Y3:] )
by ZFMISC_1:def 3;
assume
X3 c= Y3
; :: thesis: [:X1,X2,X3:] c= [:Y1,Y2,Y3:]
hence
[:X1,X2,X3:] c= [:Y1,Y2,Y3:]
by A1, A2, ZFMISC_1:119; :: thesis: verum