theorem
  |(r*p,q)| = r*(p.1*q.1+p.2*q.2+p.3*q.3)
proof
  |(r*p,q)| = r*|(p,q)| by RVSUM_1:131;
  hence thesis by Lm5;
end;
