let X1, X2, X3, X4, X5, X6, Y1, Y2, Y3, Y4, Y5, Y6 be set ; :: thesis: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} & Y1 <> {} & Y2 <> {} & Y3 <> {} & Y4 <> {} & Y5 <> {} & Y6 <> {} implies for x being Element of [:X1,X2,X3,X4,X5,X6:]
for y being Element of [:Y1,Y2,Y3,Y4,Y5,Y6:] st x = y holds
( x `1 = y `1 & x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 ) )
assume that
A1: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} ) and
A2: ( Y1 <> {} & Y2 <> {} & Y3 <> {} & Y4 <> {} & Y5 <> {} & Y6 <> {} ) ; :: thesis: for x being Element of [:X1,X2,X3,X4,X5,X6:]
for y being Element of [:Y1,Y2,Y3,Y4,Y5,Y6:] st x = y holds
( x `1 = y `1 & x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
let x be Element of [:X1,X2,X3,X4,X5,X6:]; :: thesis: for y being Element of [:Y1,Y2,Y3,Y4,Y5,Y6:] st x = y holds
( x `1 = y `1 & x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
let y be Element of [:Y1,Y2,Y3,Y4,Y5,Y6:]; :: thesis: ( x = y implies ( x `1 = y `1 & x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 ) )
assume A3: x = y ; :: thesis: ( x `1 = y `1 & x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
thus x `1 = ((((x `1 ) `1 ) `1 ) `1 ) `1 by A1, Th20
.= y `1 by A2, A3, Th20 ; :: thesis: ( x `2 = y `2 & x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
thus x `2 = ((((x `1 ) `1 ) `1 ) `1 ) `2 by A1, Th20
.= y `2 by A2, A3, Th20 ; :: thesis: ( x `3 = y `3 & x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
thus x `3 = (((x `1 ) `1 ) `1 ) `2 by A1, Th20
.= y `3 by A2, A3, Th20 ; :: thesis: ( x `4 = y `4 & x `5 = y `5 & x `6 = y `6 )
thus x `4 = ((x `1 ) `1 ) `2 by A1, Th20
.= y `4 by A2, A3, Th20 ; :: thesis: ( x `5 = y `5 & x `6 = y `6 )
thus x `5 = (x `1 ) `2 by A1, Th20
.= y `5 by A2, A3, Th20 ; :: thesis: x `6 = y `6
thus x `6 = x `2 by A1, Th20
.= y `6 by A2, A3, Th20 ; :: thesis: verum