reconsider m = n as Element of NAT by ORDINAL1:def 12;
let x be Element of Rank n; :: thesis: x is finite
per cases ( Rank n = {} or Rank n <> {} ) ;
end;