induction 1; intuition; subst.
inversion H2; clear H2; subst.
inversion H3; clear H3; subst.
eapply evalDet_steps_done_nil_inv.
eauto.
discriminate.
inversion H4; clear H4; subst.
assert (s' = nil).
eapply evalDet_steps_done_nil_inv.
eauto.
subst.
eauto.
Qed.

(* Specifications: *)
Lemma evalDet_repeat_steps_nil_inv : forall (A : Set)(P : A -> bool) c a ls',
evalDet_repeat_steps P (cs_more c nil) (cs_done a ls') ->
ls' = nil.