theorem
  f is total implies (r(#)f)/.c = r * ((f/.c))
proof
  assume f is total;
  then r(#)f is total;
  then dom (r(#)f) = C;
  hence thesis by Th4;
end;
