intuition.
eapply evalDet_repeat_steps_app_nil_h.
eapply H.
eauto.
trivial.
eauto.
trivial.
Qed.

Lemma evalDet_app_nil : forall (A : Set)(c : Comp A),
well_formed_comp c ->
forall ls1 ls2 b a,
evalDet c ls1 (ca_eof A) ->
evalDet_steps (cs_more c (ls1 ++ b :: nil)) (cs_done a ls2) ->
ls2 = nil.