theorem Th11:
  a ^ a = a implies a = {}
proof
  assume a ^ a = a;
  then len a + len a = len a by AFINSQ_1:17;
  hence thesis;
end;
