induction lsa; intuition; simpl.
eapply comp_spec_ret; intuition.
eapply comp_spec_seq; intuition.
eapply H0; eauto.
intuition.
Qed.

(* Specifications: *)
Theorem compMap_fold_equiv :
forall (A B : Set)(eqd : EqDec B)(c : A -> Comp B)(ls : list A),
comp_spec eq (compMap eqd c ls) (compMap_fold eqd c ls).