reserve m, n, i, k for Nat;
reserve IAlph, OAlph for non empty set,
  fsm for non empty FSM over IAlph,
  s for Element of IAlph,
  w, w1, w2 for FinSequence of IAlph,
  q, q9, q1, q2 for State of fsm;

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