reserve a,x,y for object, A,B for set,
  l,m,n for Nat;
reserve X,Y for set, x for object,
  p,q for Function-yielding FinSequence,
  f,g,h for Function;
reserve m,n,k for Nat, R for Relation;

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;
