theorem Th31:
  abs(H)#x = abs(H#x) & (-H)#x = -(H#x) by Th28;
