reserve n,m,k for Element of NAT;
reserve x, X,X1,Z,Z1 for set;
reserve s,g,r,p,x0,x1,x2 for Real;
reserve s1,s2,q1 for Real_Sequence;
reserve Y for Subset of REAL;
reserve f,f1,f2 for PartFunc of REAL,REAL;

theorem
  for a,b,x,y being Real st a > 0 & x < y holds AffineMap(a,b).x
  < AffineMap(a,b).y
proof
  let a,b,x,y be Real;
  assume a > 0 & x < y;
  then
A1: a*x < a*y by XREAL_1:68;
  AffineMap(a,b).x = a*x + b & AffineMap(a,b).y = a*y + b by Def4;
  hence thesis by A1,XREAL_1:8;
end;
