intuition.
eapply evalDet_steps_bind_more_h; eauto.
Qed.

(* Specifications: *)
Lemma evalDet_steps_done_inv_h : forall (A : Set)(x y : comp_state A),
evalDet_steps x y ->
forall (c : Comp A)(a : A) s s',
x = (cs_more c s) ->
y = (cs_done a s') ->
exists c'' s'', evalDet_steps (cs_more c s) (cs_more c'' s'') /\ evalDet_step c'' s'' = (cs_done a s').