theorem Th1: :: XTUPLE_0:1
for x1, x2, y1, y2 being object st [x1,x2] = [y1,y2] holds
( x1 = y1 & x2 = y2 )