Axiom byte_range_admit: forall b, 0 <= Int.unsigned b < 256.

(* Specifications: *)
Lemma round_equiv: forall S K, (mbed_tls_fround (state_to_four_ints S) (map Int.unsigned (block_to_ints K)) 0 ) = state_to_four_ints (round S K).
Lemma final_round_equiv: forall S K, (mbed_tls_final_fround (state_to_four_ints S) (map Int.unsigned (block_to_ints K)) 0 ) = state_to_four_ints (last_round S K).