Definition sha_splitandpad_blocks (msg : Blist) : list Blist :=
toBlocks (sha_splitandpad_inc msg).

(* Definition sha_splitandpad_inc' (msg : Blist) : Blist := concat (sha_splitandpad_blocks msg). *)
Lemma InBlocks_Forall_512 b: (InBlocks 512 b) ->
Forall (fun x : list bool => length x = 512%nat) (toBlocks b).