induction 1; intuition; subst.
discriminate.
inversion H1; clear H1; subst.
inversion H0; clear H0; subst.
assert (s0 = nil).
eapply evalDet_step_done_nil_inv.
eauto.
subst.
eapply evalDet_step_done_support_singleton.
eauto.
assert (s = nil).
eapply evalDet_step_more_nil_inv.
eauto.
subst.
assert (Permutation (getSupport c0) (getSupport c)).
eapply evalDet_step_more_support_preserved.
symmetry.
eauto.
assert (getSupport c = a :: nil).
eapply IHevalDet_steps.
eauto.
eauto.
rewrite H1 in H0.
apply Permutation_sym in H0.
apply Permutation_length_1_inv in H0.
trivial.
Qed.

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