theorem Th14:
  w = v implies w * a = v * a
proof
  assume
A1: w = v;
  w * a = ((the rmult of V)|([:the carrier of W, the carrier of R:] qua
  set ) ).[w,a] by Def2;
  hence thesis by A1,FUNCT_1:49;
end;
