theorem
  a * (-a) = a & (-a) * a = (-a) by Th1;
