theorem
 for N be non empty with_zero set
 for S being halting IC-Ins-separated
  non empty with_non-empty_values AMI-Struct over N
  for p being NAT-defined (the InstructionsF of S)-valued Function
 for s being State of S st LifeSpan(p,s) <= j & p halts_on s
   holds Comput(p,s,j) = Comput(p,s,LifeSpan(p,s))
proof
  let N;
  let S be halting IC-Ins-separated
   non empty with_non-empty_values AMI-Struct over N,
  p being NAT-defined (the InstructionsF of S)-valued Function,
  s be State of S;
  assume that
A1: LifeSpan(p,s) <= j and
A2: p halts_on s;
  CurInstr(p,Comput(p,s,LifeSpan(p,s))) = halt S by A2,Def15;
  hence thesis by A1,Th5;
end;
