theorem
  |(-p1, -p2)| = |(p1, p2)|
proof
  |(-p1, -p2)| = -|(p1, -p2)| by Th132
    .= --|(p1, p2)| by Th132;
  hence thesis;
end;
