theorem Th30:
  (for a,b holds a |^ b = a) implies G is commutative
proof
  assume
A1: for a,b holds a |^ b = a;
  let a,b;
  a |^ b = a by A1;
  hence thesis by Th22;
end;
