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 Th2:
  q, <*>IAlph-leads_to q
proof
  set eis = <*>IAlph;
  (q, eis)-admissible = <*q*> by Th1;
  hence thesis;
end;
