theorem
  {x} common_on_dom H implies ||.H.||#x = ||.(H#x).|| & (-H)#x = (-1)*(H#x)
  by Th28;
