:: deftheorem Def2 defines `1 XTUPLE_0:def 2 :
for x being object st x is pair holds
for b2 being object holds
( b2 = x `1 iff for y1, y2 being object st x = [y1,y2] holds
b2 = y1 );