fact: Definition au_F_A : OracleComp (list (Bvector b)) (Bvector b) _ := [_, p ] <--$2 OC_Run _ _ _ A F_randomFunc_O nil; let coll := match (findCollision _ _ (fst (split p)) ) with | None => (nil, nil) | Some p => fst p end in $ ret (coll).
imports: FCF PRF SplitVector cAU CompFold DetSem SemEquiv