let z1, z2 be set ; :: thesis: ( ( for y1, y2, y3, y4 being set st x = [y1,y2,y3,y4] holds
z1 = y4 ) & ( for y1, y2, y3, y4 being set st x = [y1,y2,y3,y4] holds
z2 = y4 ) implies z1 = z2 )
assume that
A8: for y1, y2, y3, y4 being set st x = [y1,y2,y3,y4] holds
z1 = y4 and
A9: for y1, y2, y3, y4 being set st x = [y1,y2,y3,y4] holds
z2 = y4 ; :: thesis: z1 = z2
z1 = x4 by A1, A8;
hence z1 = z2 by A1, A9; :: thesis: verum