intuition.
eapply comp_spec_eq_trans.
eapply compFold_oc_equiv_h.
fcf_ident_expand_r.
fcf_skip.
simpl.
fcf_spec_ret.
Qed.

Theorem oc_compMap_qam :
forall (A B C D : Set)(eqdb : EqDec B)(c : A -> OracleComp C D B ) (ls : list A)(q : nat),
(forall a, queries_at_most (c a) q) ->
queries_at_most (oc_compMap _ c ls) (length ls * q)%nat.