intuition.
eapply evalDet_steps_nil_eq_h; eauto.
Qed.

(* Specifications: *)
Lemma evalDet_step_done_val_eq : forall (A : Set)(c : Comp A)(a1 a2 : A) s1 s2,
evalDet_step c s1 = (cs_done a2 s2) ->
In a1 (getSupport c) ->
a1 = a2.