theorem
  for x being Real holds |(p1, x*p2)| = x*|(p1, p2)| by Th17;
