theorem
  <*q*> is_admissible_for <*>IAlph
proof
  (q, <*>IAlph)-admissible = <*q*> & q = <*q*>.1 by Th1;
  hence thesis;
end;
