theorem
  the InitS of S is accessible
proof
  set w = <*>I;
  GEN(w, the InitS of S).(len w+1) = the InitS of S by FSM_1:def 2;
  then the InitS of S,w-leads_to the InitS of S;
  hence thesis;
end;
