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