induction ls; intuition.
unfold compFold.
wftac.
unfold compFold.
fold compFold.
wftac.
Qed.

(* Specifications: *)
Lemma compMap_map :
forall (A B : Set)(eqd : EqDec B)(f : A -> B) ls,
comp_spec eq (compMap _ (fun a => ret (f a)) ls) (ret (map f ls)).