reserve m,n for Nat,
  a for Int_position,
  i,j for Instruction of SCMPDS,
  s,s1,s2 for State of SCMPDS,
  k1 for Integer,
  loc for Nat,
  I,J,K for Program of SCMPDS;
reserve P,P1,P2 for Instruction-Sequence of SCMPDS;

theorem Th3:
  CurInstr(P +* stop(i ';' I),Initialize s) = i
proof
  set iI=i ';' I, P3 = P +* stop(i ';' I);
A1:  0 in dom Load i by COMPOS_1:50;
  card iI=card I +1 by Th1;
  then
A2:  0 in dom iI by AFINSQ_1:66;
   iI c= stop iI by AFINSQ_1:74;
   then dom iI c= dom stop iI by RELAT_1:11;
   then
A3:  0 in dom stop iI by A2;
A4:  (P +* stop(i ';' I))/.IC (Initialize s)
     = (P +* stop(i ';' I)).IC (Initialize s) by PBOOLE:143;
  P3.0 = (P +* stop(i ';' I)). 0
    .= (stop iI). 0 by A3,FUNCT_4:13
    .= iI. 0 by A2,COMPOS_1:63
    .=(Load i ';' I). 0
    .=(Load i). 0 by A1,AFINSQ_1:def 3
    .=i;
  hence thesis by A4,MEMSTR_0:47;
end;
