induction 1; intuition; subst.
discriminate.
inversion H1; clear H1; subst.
inversion H0; clear H0; subst.
eapply evalDet_step_done_nil_inv; eauto.
assert (s = nil).
eapply evalDet_step_more_nil_inv; eauto. subst.
eauto.
Qed.

(* Specifications: *)
Lemma evalDet_steps_done_nil_inv : forall (A : Set)(c : Comp A) a ls,
evalDet_steps (cs_more c nil) (cs_done a ls) ->
ls = nil.