theorem Th4:
  c in dom f & f/.c in dom s implies (s*f)/.c = s/.(f/.c)
proof
  assume c in dom f & f/.c in dom s;
  then c in dom (s*f) by Th3;
  hence thesis by Th3;
end;
