theorem Th7:
  RAlgebra X is RealLinearSpace
proof
  for v being VECTOR of RAlgebra X holds 1 * v = v by FUNCSDOM:12;
  hence thesis by Lm2;
end;
