reserve a,b,p,r,r1,r2,s,s1,s2,x0,x for Real;
reserve f,g for PartFunc of REAL,REAL;
reserve X,Y for set;

theorem Th1:
  for a, b being Real holds max(a,b) >= min(a,b)
proof
  let a, b be Real;
  per cases by XXREAL_0:15;
  suppose
    min(a,b)=a;
   hence thesis by XXREAL_0:25;
  end;
  suppose
    min(a,b)=b;
    hence thesis by XXREAL_0:25;
  end;
end;
