induction 1; intuition; subst.
econstructor.
trivial.
eapply IHevalDet_steps.
trivial.
Qed.

(* Specifications: *)
Theorem evalDet_steps_bind_more_h : forall(A B : Set) x y,
evalDet_steps x y ->
forall (c1 : Comp B)(c2 : B -> Comp A) s c1' s',
x = (cs_more c1 s) ->
y =  (cs_more c1' s') ->
evalDet_steps (cs_more (Bind c1 c2) s) (cs_more (Bind c1' c2) s').