theorem
  |(p1, -p2)| = -|(p1, p2)| by Th19;
