fact: Definition randomFunc_eager(p: (list (Bvector n * Bvector n)) * Bvector n) : Comp (list (Bvector n * Bvector n) * Bvector n) := let (f, d) := p in r <-$ {0, 1}^n; f' <- f ++ (d, r) :: nil; match f # d with | None => ret (f', r) | Some r => ret (f', r) end.
imports: Crypto Permutation Broken.ConstructedFunc State FCF