intuition.
econstructor.
apply oc_compMap_wf.
intuition.
econstructor.
intuition.
econstructor.
auto.
Qed.

(* Specifications: *)
Theorem OMH_G_oc_equiv :
forall O,
Pr[OMH_G O] ==
Pr[
[s, s_A] <-$2 A1;
[b, _] <-$2 (OMH_G_oc s_A) _ _ O s;
ret b
].