theorem
  (a,k1):=k2 is non halting
proof
  set s =the  State of SCMPDS;
  Exec((a,k1):=k2, s).IC SCMPDS = IC s + 1 by Th43;
  hence thesis by Th60;
end;
