Definition splitAndPad_v (m: Blist): list (Bvector b).

(* Specifications: *)
Lemma splitAndPad_nil: exists pf, splitAndPad_v nil = cons (@of_list_length bool 512 (sha_splitandpad_inc nil) pf) nil.
Lemma length_splitandpad_inner m : Forall2 (fun (bv : Vector.t bool b) (bl : list bool) => bl = Vector.to_list bv) (splitAndPad_v m) (sha_splitandpad_blocks m).
Lemma C: NPeano.Nat.divide 8 c.