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;
