intuition.
inversion H; clear H; subst.
inversion H0; clear H0; subst.
eapply evalDet_steps_done_eof_func; eauto.
Qed.

(* Specifications: *)
Lemma getSupport_In_evalDet_step_done : forall (A : Set)(c : Comp A) a s s',
evalDet_step c s = cs_done a s' ->
In a (getSupport c).