theorem
  r*p = |[ r*p.1, r*p.2, r*p.3 ]| by Lm1;
