reserve n,m,k for Nat,
  x,y for set,
  r for Real;
reserve C,D for non empty finite set,
  a for FinSequence of bool D;

theorem Th17:
  for F be PartFunc of D,REAL, A be RearrangmentGen of C st F is
  total & card C = card D holds FinS(Rland(F,A),C) = FinS(F,D)
proof
  let F be PartFunc of D,REAL, B be RearrangmentGen of C;
  assume
A1: F is total & card C = card D;
  then
A2: Rland(F,B), FinS(F,D) are_fiberwise_equipotent by Th16;
A3: dom Rland(F,B) = C by A1,Th12;
  then (Rland(F,B))|C = Rland(F,B) by RELAT_1:68;
  hence thesis by A2,A3,RFUNCT_3:def 13;
end;
