let y be Element of X4; :: thesis: ( y = x `2 iff for x1, x2, x3, x4 being object st x = [x1,x2,x3,x4] holds
y = x4 )
thus ( y = x `4_4 implies for x1, x2, x3, x4 being object st x = [x1,x2,x3,x4] holds
y = x4 ) ; :: thesis: ( ( for x1, x2, x3, x4 being object st x = [x1,x2,x3,x4] holds
y = x4 ) implies y = x `2 )
assume A11: for x1, x2, x3, x4 being object st x = [x1,x2,x3,x4] holds
y = x4 ; :: thesis: y = x `2
consider xx1 being Element of X1, xx2 being Element of X2, xx3 being Element of X3, xx4 being Element of X4 such that
A12: x = [xx1,xx2,xx3,xx4] by Lm3;
thus y = x `4_4 by A11, A12; :: thesis: verum