theorem
  x in dom criticals f implies x c= (criticals f).x by ORDINAL4:10;
