(*Specialization of HMAC256_DRBG_generate_algorithm: no additional input*)
Definition FunGenerate RI (WS: DRBG_functions.DRBG_working_state) n: DRBG_functions.DRBG_generate_algorithm_result :=
           HMAC256_DRBG_functional_prog.HMAC256_DRBG_generate_algorithm RI
                                           WS
                                           n
                                           nil.

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)).