theorem Th22:
  H is universal implies H.1 = 4
proof
  assume H is universal;
  then consider x,H1 such that
A1: H = All(x,H1);
  <*4*>^<*x*>^H1 = <*4*>^(<*x*>^H1) by FINSEQ_1:32;
  hence thesis by A1,FINSEQ_1:41;
end;
