induction 1; intuition; subst.
discriminate.
inversion H1; clear H1; subst.
inversion H0; clear H0; subst.
eapply getSupport_In_evalDet_step_done; eauto.
eapply getSupport_In_evalDet_step_more.
eauto.
eapply IHevalDet_steps.
eauto.
eauto.
Qed.

(* Specifications: *)
Lemma getSupport_In_evalDet_steps : forall (A : Set)(c : Comp A) a s s',
evalDet_steps (cs_more c s) (cs_done a s') ->
In a (getSupport c).