intuition.
eapply evalDet_steps_repeat_done_inv_h.
eapply H.
econstructor.
trivial.
Qed.

(* Specifications: *)
Lemma evalDet_steps_repeat_eof_inv_h : forall (A : Set)(x y : comp_state A),
evalDet_steps x y ->
forall (P : A -> bool)(c : Comp A) s,
evalDet_steps x (cs_more (Repeat c P) s) ->
y = (cs_eof A) ->
evalDet_repeat_steps P (cs_more c s) (cs_eof A).