reserve x for set,
  m,n for Nat,
  a,b for Int_position,
  i,j,k for Instruction of SCMPDS,
  s,s1,s2 for State of SCMPDS,
  k1,k2 for Integer,
  loc,l for Nat,
  I,J,K for Program of SCMPDS;

theorem Th1: ::SCMPDS_6:23
  for s being State of SCMPDS,m,n being Nat st IC s=
   m holds ICplusConst(s,n-m)= n
proof
  let s be State of SCMPDS,m,n be Nat;
   ex k be Element of NAT st k = IC s &
    ICplusConst(s,n-m) = |.k+(n-m).| by SCMPDS_2:def 18;
  hence thesis by ABSVALUE:def 1;
end;
