reserve a, b for Int_position,
  i for Instruction of SCMPDS,
  l for Element of NAT,
  k, k1, k2 for Integer;

theorem Th5:
  NIC(saveIC(a,k1), l) = {l+1}
proof
  set i = saveIC(a,k1);
  for s being State of SCMPDS st IC s = l holds Exec(i,s).IC
  SCMPDS = IC s + 1 by SCMPDS_2:59;
  hence thesis by Th1;
end;
