Switzerland has moved up one place to 20th in a ranking of equality in the workplace. But the gender pay gap has widened, says a new index.