intuition.
eapply evalDet_steps_eof_inv_h; eauto.
Qed.

Theorem evalDet_steps_bind_done : forall(A B : Set)(c1 : Comp B)(c2 : B -> Comp A) a s s',
evalDet_steps (cs_more c1 s) (cs_done a s') ->
evalDet_steps (cs_more (Bind c1 c2) s) (cs_more (c2 a) s').