theorem Th21:
  (<*> the carrier of G) |^ (<*> INT) = {}
proof
  len <*> the carrier of G = 0;
  then len((<*> the carrier of G) |^ (<*> INT)) = 0 by Def3;
  hence thesis;
end;
