Fixpoint mbed_tls_enc_rounds (n : nat) (state : four_ints) (rks : list Z) (i : Z) : four_ints :=
match n with
| O => state
| S m => mbed_tls_fround (mbed_tls_enc_rounds m state rks i) rks (i+4*Z.of_nat m)
end.

(* Specifications: *)
Lemma mbed_tls_enc_rounds_def: mbed_tls_enc_rounds = fix mbed_tls_enc_rounds (n : nat) (state : four_ints) (rks : list Z) (i : Z) := match n with | O => state | S m => mbed_tls_fround (mbed_tls_enc_rounds m state rks i) rks (i+4*Z.of_nat m) end.