 reserve a,b,c,x for Real;

theorem Kici1:
  for a being Real holds AffineMap (0,b).a = b
  proof
    let a be Real;
    AffineMap (0,b).a = 0 * a + b by FCONT_1:def 4 .= b;
    hence thesis;
  end;
