induction 1; intuition; simpl in *.
econstructor.
eapply list_pred_app_both; intuition.
Qed.

(* Specifications: *)
Theorem compMap_wf :
forall (A B : Set){eqdb : EqDec B}(c : A -> Comp B)(ls : list A),
(forall a, In a ls -> well_formed_comp (c a)) ->
well_formed_comp (compMap _ c ls).