reserve x for set;
reserve a,b,c,d for ExtReal;

theorem
  max(a,b) <= a implies max(a,b) = a
proof
  assume max(a,b) <= a;
  then max(a,b) < a or max(a,b) = a by Th1;
  hence thesis by Th25;
end;
