theorem Th2:
  q, <*>IAlph-leads_to q
proof
  set eis = <*>IAlph;
  (q, eis)-admissible = <*q*> by Th1;
  hence thesis;
end;
