theorem
  s.n in rng s
proof
  n in NAT by ORDINAL1:def 12;
  then n in dom s by FUNCT_2:def 1;
  hence thesis by FUNCT_1:3;
end;
