(* Checking possible missing names *)

(* In JSON file for ID for Entoloma rhodocylix, add synonym = false because it is missing *)
maintainCheckMissed := Module[{key, name0},
Print["----- Checking possible missing names of mushrooms (maintainCheckMissed) ..."];
Print["Checking that all added names that could be found on pictures \
are not synonyms"];
Do[
  If[! MemberQ[namesList2, name], Continue[]];
  If[MemberQ[accNamesList, name], Continue[]];
  key = nameKey[name];
  If[key === 0,
   Print["Name: ", name, " - Error: key was not found."];
   Continue[]];
  If[! keyData[key, "synonym"], Continue[]];
  name0 = keyData[key, "species"];
  If[MemberQ[namesMO, name0],
   Print["Error: In file addnames.txt, remove *** ", name, 
    " *** because it is a synonym of ", name0, 
    " which is already in the MO list!"],
   Print["Error: In file addnames.txt, replace *** ", name, 
    " *** -> ", name0, " because it is a synonym!"]];
  0, {name, namesAdd}];
];