induction ls; intuition; simpl in *.
comp_simp.
eapply comp_spec_ret; intuition.
inversion H; clear H; subst.
simpl; inline_first.
unfold randomFunc.
rewrite H0.
inline_first.
comp_skip.
comp_simp.
inline_first.
comp_skip.
comp_simp.
comp_skip.
eapply IHls; intuition.
simpl.
case_eq (eqb a0 a); intuition.
rewrite eqb_leibniz in H7.
subst.
intuition.
comp_simp.
simpl in *; subst.
eapply comp_spec_ret; intuition.
intuition.
Qed.

Theorem oc_compMap_wf :
forall (A B C D : Set)(eqd : EqDec B)(c : A -> OracleComp C D B) ls,
(forall a, In a ls -> well_formed_oc (c a)) ->
well_formed_oc (oc_compMap eqd c ls).