:: deftheorem Def4 defines pr1 FUNCT_3:def 4 :
for X, Y being set
for b3 being Function holds
( b3 = pr1 (X,Y) iff ( dom b3 = [:X,Y:] & ( for x, y being object st x in X & y in Y holds
b3 . (x,y) = x ) ) );