destruct c; intuition;
econstructor.
eapply Comp_eq_refl.
Qed.

(* Specifications: *)
Lemma evalDet_steps_done_func_h : forall (A : Set)(x : comp_state A) y1,
evalDet_steps x y1 ->
forall a a' s s',
y1 = (cs_done a s) ->
evalDet_steps x (cs_done a' s') ->
(a = a' /\ s = s').