theorem
  for n holds (seq*Nseq).n = seq.(Nseq.n)
proof
  let n;
A1: n in NAT by ORDINAL1:def 12;
  dom (seq*Nseq) = NAT by FUNCT_2:def 1;
  hence thesis by FUNCT_1:12,A1;
end;
