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