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 Th49:
  for a,b being Real holds AffineMap(a,b).1 = a+b
proof
  let a,b be Real;
  thus AffineMap(a,b).1 = a*1 + b by Def4
    .= a + b;
end;
