unfold OMH_G2.
rewrite OMH_G_oc_equiv.
unfold G2, OMH_G_oc.
reflexivity.
Qed.

Theorem OMH_G_oc_qam :
forall p s,
In (s, p) (getSupport A1) ->
queries_at_most (OMH_G_oc p) q.