theorem Th52:
  (-p).1 = -p.1 & (-p).2 = -p.2 & (-p).3 = -p.3
proof
  -p = |[ -p.1, -p.2, -p.3 ]| by Th51;
  hence thesis;
end;
