theorem Th71:
 b is having_a_unity implies b "**" <%>D = the_unity_wrt b
proof
A1: len <%>D = 0;
  assume b is having_a_unity;
  hence thesis by A1,Def8;
end;
