let X1, X2, X3, X4, X5, X6 be set ; :: thesis: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} implies for x being Element of [:X1,X2,X3,X4,X5,X6:] 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 st x = [xx1,xx2,xx3,xx4,xx5,xx6] )
assume A1: ( X1 <> {} & X2 <> {} & X3 <> {} & X4 <> {} & X5 <> {} & X6 <> {} ) ; :: thesis: for x being Element of [:X1,X2,X3,X4,X5,X6:] 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 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
then A2: [:X1,X2,X3,X4,X5:] <> {} by Th13;
let x be Element of [:X1,X2,X3,X4,X5,X6:]; :: 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 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
reconsider x' = x as Element of [:[:X1,X2,X3,X4,X5:],X6:] ;
consider x12345 being Element of [:X1,X2,X3,X4,X5:], xx6 being Element of X6 such that
A3: x' = [x12345,xx6] by A1, A2, TH36;
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 such that
A4: x12345 = [xx1,xx2,xx3,xx4,xx5] by A1, TH17;
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 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
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 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
take xx3 ; :: thesis: ex xx4 being Element of X4 ex xx5 being Element of X5 ex xx6 being Element of X6 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
take xx4 ; :: thesis: ex xx5 being Element of X5 ex xx6 being Element of X6 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
take xx5 ; :: thesis: ex xx6 being Element of X6 st x = [xx1,xx2,xx3,xx4,xx5,xx6]
take xx6 ; :: thesis: x = [xx1,xx2,xx3,xx4,xx5,xx6]
thus x = [xx1,xx2,xx3,xx4,xx5,xx6] by A3, A4; :: thesis: verum