reserve n,i,j,k for Nat;
reserve T for TuringStr,
  s for All-State of T;

theorem Th25:
  for T be TuringStr, s be All-State of T, p,h,t be set st s=[p,h,
  t] & p <> the AcceptS of T
  holds Following s = [(TRAN(s))`1_3, Head(s)+offset
  TRAN(s),Tape-Chg(s`3_3,Head(s),(TRAN(s))`2_3)]
by Def6;
