theorem Th4:
  g|B +* f = f
proof
  dom (g|B) = B & dom f = A by Th1,FUNCT_2:def 1;
  hence thesis by FUNCT_4:19;
end;
