theorem
 for I being initial preProgram of S st loc in dom I
  holds (stop I).loc=I.loc by AFINSQ_1:def 3;
