theorem Th80:
  last <%x%> = x
  proof
    dom <%x%> = succ 0 by AFINSQ_1:def 4; then
    union dom <%x%> = 0 by ORDINAL2:2;
    hence thesis;
  end;
