fact: Definition OMH_G_i i := [s, p] <-$2 A1; [lsa, s_A] <-2 p; [lsb1, s'] <-$2 oracleMap _ _ O1 s (firstn i lsa); [lsb2, _] <-$2 oracleMap _ _ O2 s' (skipn i lsa); A2 s_A (lsb1 ++ lsb2).
imports: FCF.FCF FCF.RndInList FCF.CompFold FCF.OracleCompFold FCF.PRF