intros.
eapply evalDet_steps_done_func_h.
eapply H.
eauto.
eauto.
Qed.

Lemma evalDet_steps_done_eof_func_h : forall (A : Set)(x : comp_state A) y1,
evalDet_steps x y1 ->
forall a s,
y1 = (cs_done a s) ->
evalDet_steps x (@cs_eof A) ->
False.