theorem
  FSets is non-descending implies M*FSets is non-decreasing
proof
A1: dom(M*FSets) = NAT by FUNCT_2:def 1;
  assume
A2: FSets is non-descending;
  now
    let n,m be Nat;
A3:   n in NAT & m in NAT by ORDINAL1:def 12;
    assume n <= m;
    then
A4: FSets.n c= FSets.m by A2,PROB_1:def 5;
    (M*FSets).n = M.(FSets.n) & (M*FSets).m = M.(FSets.m) by A1,FUNCT_1:12,A3;
    hence (M*FSets).n <= (M*FSets).m by A4,MEASURE1:8;
  end;
  then for n,m be Nat st m<=n holds (M*FSets).m<=(M*FSets).n;
  hence M*FSets is non-decreasing by RINFSUP2:7;
end;
