induction 1; intuition; subst.
inversion H1; clear H1; subst.
econstructor.
eauto.
simpl.
eapply evalDet_steps_trans.
eapply evalDet_steps_bind_done.
eauto.
rewrite H0.
econstructor.
eauto.
simpl.
econstructor.
inversion H0; clear H0; subst.
econstructor.
eauto.
simpl.
eapply evalDet_bind_eof.
trivial.
inversion H2; clear H2; subst.
econstructor.
eauto.
simpl.
eapply evalDet_steps_trans.
eapply evalDet_steps_bind_done.
eauto.
rewrite H0.
eauto.
Qed.

(* Specifications: *)
Lemma evalDet_repeat_steps_done_inv : forall (A : Set)(c : Comp A)(P : A -> bool) s y,
evalDet_repeat_steps P (cs_more c s) y ->
evalDet_steps (cs_more (Repeat c P) s) y.