reserve x,y for set,
  n,m for Nat,
  r,s for Real;

theorem Th22:
  for R be real-valued FinSequence
  ex R1 be non-increasing FinSequence of REAL st R,R1 are_fiberwise_equipotent
proof
  let R be real-valued FinSequence;
A1: len R = len R;
  for n holds P[n] from NAT_1:sch 2(Lm5,Lm6);
  hence thesis by A1;
end;
