induction 1; intuition; subst.
discriminate.
inversion H1; clear H1; subst.
inversion H0; clear H0; subst.
econstructor.
eapply evalDet_step_app_done_eq.
eauto.
econstructor.
econstructor.
eauto.
erewrite evalDet_step_app_more_eq.
eapply IHevalDet_steps.
eauto.
trivial.
auto.
Qed.

(* Specifications: *)
Lemma evalDet_steps_app_eq : forall (A : Set)(c : Comp A) s s' s'' a,
evalDet_steps (cs_more c s) (cs_done a s'') ->
evalDet_steps (cs_more c (s ++ s')) (cs_done a (s'' ++ s')).