theorem Th4:
  a = i implies a*l = i*l
proof
  assume A1:a=i;
  for v be VECTOR of V holds (i*l).v = a * l.v by A1,Def1;
  hence thesis by RLVECT_2:def 11;
end;
