Set Implicit Arguments.
(*The sha-specific imports*)

(*Derived lemmas Lemma front_equiv_SHA256 : forall (back : Blist) (BACK : list int) (front : Blist) (FRONT : list int), (length front)%nat = 512%nat -> (length FRONT)%nat = 16%nat -> front ++ back = convert (FRONT ++ BACK) -> front = convert FRONT. *)
Lemma splitandpad_equiv : forall (bits : Blist) (bytes : list byte),
bytes_bits_lists bits bytes ->
bytes_bits_lists
(sha_splitandpad bits)
(pad bytes).