reserve x,y for Real,
  i, j for non zero Element of NAT,
  I, O for non empty set,
  s,s1,s2,s3 for Element of I,
  w, w1, w2 for FinSequence of I,
  t for Element of O,
  S for non empty FSM over I,
  q, q1 for State of S;

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;
