theorem
  bool Y c= X implies card Y in card X & not Y,X are_equipotent
proof
  assume bool Y c= X;
  then card bool Y c= card X by Th10;
  hence card Y in card X by Th13;
  then card Y <> card X;
  hence thesis by Th4;
end;
