reserve F for total
 NAT-defined (the InstructionsF of SCM)-valued Function;

theorem
 Fusc_Program c= F implies
  for N being Element of NAT st N > 0
  for s being 0-started State-consisting of <%2,N,1,0%>
   holds F halts_on s &
  Result(F ,s).dl.3 = Fusc N &
  (N = 0 implies LifeSpan(F,s) = 1) &
  (N > 0 implies LifeSpan(F,s) = 6 * ([\ log(2, N) /] + 1)+1)
proof
 assume
A1: Fusc_Program c= F;
  let N be Element of NAT;
  Fusc N = 1 * Fusc N + 0 * Fusc (N+1);
  hence thesis by A1,Th4;
end;
