intuition.
eapply compMap_fission_eq; intuition.
simpl.
eapply comp_spec_eq_refl.
simpl.
prog_simp.
eapply comp_spec_ret.
congruence.
Qed.

Theorem fold_map_fission_spec_eq :
forall (A B C: Set)(eqdB : EqDec B)(eqdC : EqDec C) ls c init (ca : A -> Comp B) cb,
(forall a init, comp_spec eq (c init a) (x <-$ ca a; cb init x)) ->
comp_spec eq (compFold _ c init ls)
(lsa <-$ (compMap _ ca ls); compFold _ cb init lsa).