theorem Th7:
  f - ((dom f) --> 0) = f
  proof
    thus f - ((dom f) --> 0) = f-0 by Th4
    .= f;
  end;
