theorem Th4:
  (r*p)`1 = r*(p`1) & (r*p)`2 = r*(p`2)
proof
  r*p = |[r*p`1,r*p`2]| by EUCLID:57;
  hence thesis;
end;
