theorem Th20:
  a * a = a
proof
  thus a * a = 0_G + a by Def5
    .= a by Def4;
end;
