reserve v,x,x1,x2,x3,x4,y,y1,y2,y3,y4,z,z1,z2 for object,
  X,X1,X2,X3,X4,Y,Y1,Y2,Y3,Y4,Y5,
  Z,Z1,Z2,Z3,Z4,Z5 for set;
reserve p for pair object;
reserve R for Relation;
reserve xx1 for Element of X1,
  xx2 for Element of X2,
  xx3 for Element of X3;

theorem Th40:
  X1<>{} & X2<>{} & X3<>{} & X4<>{} & [:X1,X2,X3,X4:] = [:Y1,Y2,Y3
  ,Y4:] implies X1=Y1 & X2=Y2 & X3=Y3 & X4=Y4
proof
A1: [:X1,X2,X3,X4:] = [:[:X1,X2,X3:],X4:] by ZFMISC_1:def 4;
  assume
A2: X1<>{} & X2<>{} & X3<>{};
  assume
A3: X4<>{};
  assume [:X1,X2,X3,X4:] = [:Y1,Y2,Y3,Y4:];
  then
A4: [:[:X1,X2,X3:],X4:] = [:[:Y1,Y2,Y3:],Y4:] by A1,ZFMISC_1:def 4;
   [:X1,X2,X3:] = [:Y1,Y2,Y3:] by A3,A4,A2,ZFMISC_1:110;
  hence thesis by A2,A3,A4,Th22,ZFMISC_1:110;
end;
