:: deftheorem defines pr1 MCART_1:def 12 :
for f, b2 being Function holds
( b2 = pr1 f iff ( dom b2 = dom f & ( for x being object st x in dom f holds
b2 . x = (f . x) `1 ) ) );