intuition.
eapply evalDet_repeat_steps_done_inv_h; eauto.
Qed.

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