theorem Th94:
  I in ElementaryInstructions A implies [s, I] in TerminatingPrograms(A,S,T,f)
proof
  assume I in ElementaryInstructions A;
  then
A1: [s, I] in [:S, ElementaryInstructions A:] by ZFMISC_1:87;
  [:S, ElementaryInstructions A:] c= TerminatingPrograms(A,S,T,f) by Def35;
  hence thesis by A1;
end;
