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