Opaque FunGenerate.

Lemma Generate_Blist_ok RI k v z n (Z: (z<=RI)%Z) l kk vv zz
(N:(0<n)%nat):
FunGenerate RI (v, k, z) (Z.of_nat ((32 * n)%nat)) = generate_algorithm_success l (kk,vv, zz) ->
exists y,
GenUpdate_original_Blist (bytesToBits k, bytesToBits v) n =
(map bytesToBits y,(bytesToBits vv, bytesToBits kk)) /\ zz=z+1 /\
l = firstn (32 * n) (flatten (rev y)).