reserve n for non zero Nat,
  j,k,l,m for Nat,
  g,h,i for Integer;

theorem Th22:
  l >= m implies MajP(l,j) >= MajP(m,j)
proof
  assume
A1: l >= m;
A2: 2 to_power MajP(l,j) >= j by Def1;
  MajP(l,j) >= l by Def1;
  then MajP(l,j) >= m by A1,XXREAL_0:2;
  hence thesis by A2,Def1;
end;
