fact: Definition randomFunc_mem (D R : Set)(eqdd : EqDec D)(eqdr : EqDec R)(RndR : Comp R) (ls : list (D * R))d := match (arrayLookup _ ls d) with | Some r => ret (r, (d, r) :: ls) | None => r <-$ RndR; ret (r, (d, r) :: ls) end.
imports: FCF PRF SplitVector cAU CompFold DetSem SemEquiv