theorem Th24:
  r*p = |[r*p`1,r*p`2]|
proof
  p = |[p`1,p`2]| by EUCLID:53;
  hence thesis by EUCLID:58;
end;
