intuition.
eapply evalDet_steps_done_support_singleton_h; eauto.
Qed.

(* Specifications: *)
Lemma evalDet_step_well_formed_comp_preserved : forall (A : Set)(c : Comp A),
well_formed_comp c ->
forall c' s s',
evalDet_step c s = (cs_more c' s') ->
well_formed_comp c'.