theorem Th10:
  (<*> the carrier of G) |^ a = {}
proof
  len((<*> the carrier of G) |^ a) = len <*> the carrier of G by Def1
    .= 0;
  hence thesis;
end;
