theorem Th74:
  id(field R)*iter(R,n) = iter(R,n)
proof
  dom iter(R,n) c= field R by Th71;
  hence thesis by RELAT_1:51;
end;
