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 VALUED_1:def 5;
end;
