theorem Th20:
  [.a,a.] = 1_G
proof
  thus [.a,a.] = (a * a)" * (a * a) by Th17
    .= 1_G by GROUP_1:def 5;
end;
