let X1, X2, X3, X4, X5, X6, X7, X8 be set ; :: thesis: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} & X7 <> {} & X8 <> {} implies for x being Element of [:X1,X2,X3,X4,X5,X6,X7,X8:] ex xx1 being Element of X1 ex xx2 being Element of X2 ex xx3 being Element of X3 ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8] )
assume that
A1: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} & X7 <> {} ) and
A2: X8 <> {} ; :: thesis: for x being Element of [:X1,X2,X3,X4,X5,X6,X7,X8:] ex xx1 being Element of X1 ex xx2 being Element of X2 ex xx3 being Element of X3 ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
let x be Element of [:X1,X2,X3,X4,X5,X6,X7,X8:]; :: thesis: ex xx1 being Element of X1 ex xx2 being Element of X2 ex xx3 being Element of X3 ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
reconsider x9 = x as Element of [:[:X1,X2,X3,X4,X5,X6,X7:],X8:] ;
[:X1,X2,X3,X4,X5,X6,X7:] <> {} by A1, Th90;
then consider x1234567 being Element of [:X1,X2,X3,X4,X5,X6,X7:], xx8 being Element of X8 such that
A3: x9 = [x1234567,xx8] by A2, Lm1;
consider xx1 being Element of X1, xx2 being Element of X2, xx3 being Element of X3, xx4 being Element of X4, xx5 being Element of X5, xx6 being Element of X6, xx7 being Element of X7 such that
A4: x1234567 = [xx1,xx2,xx3,xx4,xx5,xx6,xx7] by A1, Th94;
take xx1 ; :: thesis: ex xx2 being Element of X2 ex xx3 being Element of X3 ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx2 ; :: thesis: ex xx3 being Element of X3 ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx3 ; :: thesis: ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx4 ; :: thesis: ex xx5 being Element of X5 ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx5 ; :: thesis: ex xx6 being Element of X6 ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx6 ; :: thesis: ex xx7 being Element of X7 ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx7 ; :: thesis: ex xx8 being Element of X8 st x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
take xx8 ; :: thesis: x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8]
thus x = [xx1,xx2,xx3,xx4,xx5,xx6,xx7,xx8] by A3, A4; :: thesis: verum