induction 1; intuition.
unfold compMap.
eapply comp_spec_ret.
econstructor.
simpl.
eapply comp_spec_seq.
apply nil.
apply nil.
eapply H1;
simpl; intuition.
intuition.
eapply comp_spec_seq.
eapply nil.
eapply nil.
eapply IHlist_pred.
intuition.
intuition.
eapply comp_spec_ret.
econstructor; eauto.
Qed.

Theorem compMap_fission_ex :
forall (A B C : Set)(eqdb : EqDec B)(eqdc : EqDec C)
(c1 : A -> Comp B)(c2 : B -> Comp C)(ls : list A),
comp_spec eq
(compMap _ (fun a => b <-$ c1 a; c2 b) ls)
(ls' <-$ compMap _ c1 ls; compMap _ c2 ls').