theorem Th20:
  a |^ a = a
proof
  thus a |^ a = 1_G * a by GROUP_1:def 5
    .= a by GROUP_1:def 4;
end;
