theorem
  g is having_a_unity implies g "**" <*>D = the_unity_wrt g by Lm3;
