theorem
  |(r*p1,p2)| = r*|(p1,p2)| by RVSUM_1:131;
