let y be Element of X2; :: thesis: ( y = x `2_4 iff for x1, x2, x3, x4 being set st x = [x1,x2,x3,x4] holds
y = x2 )
thus ( y = x `2_4 implies for x1, x2, x3, x4 being set st x = [x1,x2,x3,x4] holds
y = x2 ) :: thesis: ( ( for x1, x2, x3, x4 being set st x = [x1,x2,x3,x4] holds
y = x2 ) implies y = x `2_4 )

proof

assume Z: y = x `2_4 ; :: thesis: for x1, x2, x3, x4 being set st x = [x1,x2,x3,x4] holds
y = x2
let x1, x2, x3, x4 be set ; :: thesis: ( x = [x1,x2,x3,x4] implies y = x2 )
assume W: x = [x1,x2,x3,x4] ; :: thesis: y = x2
[x1,x2,x3,x4] `2_4 = x2 ;
hence y = x2 by W, Z; :: thesis: verum

end;

assume Z: for x1, x2, x3, x4 being set st x = [x1,x2,x3,x4] holds
y = x2 ; :: thesis: y = x `2_4
consider xx1 being Element of X1, xx2 being Element of X2, xx3 being Element of X3, xx4 being Element of X4 such that
A6: x = [xx1,xx2,xx3,xx4] by Lm3;
[xx1,xx2,xx3,xx4] `2_4 = xx2 ;
hence y = x `2_4 by Z, A6; :: thesis: verum