reserve A for preIfWhileAlgebra,
  C,I,J for Element of A;
reserve S for non empty set,
  T for Subset of S,
  s for Element of S;
reserve f for ExecutionFunction of A,S,T;

theorem Th96:
  [s, EmptyIns A] in TerminatingPrograms(A,S,T,f)
proof
  set I = EmptyIns A;
  I in {I} by TARSKI:def 1;
  then
A1: [s, I] in [:S, {I}:] by ZFMISC_1:87;
  [:S, {I}:] c= TerminatingPrograms(A,S,T,f) by Def35;
  hence thesis by A1;
end;
