theorem Th31:
  -p = |[ -p`1, -p`2]|
proof
  thus -p = (-1)*p .= |[ (-1)*p`1, (-1)*p`2]| by Th29
    .= |[ -p`1, -p`2]|;
end;
