theorem Th16:
  X,Y are_equipotent implies nextcard X = nextcard Y
proof
  assume X,Y are_equipotent;
  then card X = card Y by Th4;
  hence thesis by Th15;
end;
