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