:: deftheorem Def1 defines doms FUNCT_6:def 2 :
for f being Function-yielding Function
for b2 being Function holds
( b2 = doms f iff ( dom b2 = dom f & ( for x being object st x in dom f holds
b2 . x = proj1 (f . x) ) ) );