Definition mbed_tls_aes_enc (plaintext : list Z) (rks : list Z) : list int :=
  let state0  := mbed_tls_initial_add_round_key plaintext rks in
  let state13 := mbed_tls_enc_rounds 13 state0 rks 4 in
  let state14 := mbed_tls_final_fround state13 rks 56 in
  (put_uint32_le (col 0 state14)) ++
  (put_uint32_le (col 1 state14)) ++
  (put_uint32_le (col 2 state14)) ++
  (put_uint32_le (col 3 state14)).

Lemma mbed_tls_aes_enc_def: mbed_tls_aes_enc = fun (plaintext : list Z) (rks : list Z) => let state0 := mbed_tls_initial_add_round_key plaintext rks in let state13 := mbed_tls_enc_rounds 13 state0 rks 4 in let state14 := mbed_tls_final_fround state13 rks 56 in output_four_ints_as_bytes state14.