sbool allKeysAreInSet(Map map, Set set) {
  for (O key : keys(map))
    if (!contains(set, key))
      false;
  true;
}