(* plaintext: array of bytes
   rks: expanded round keys, array of Int32 *)
Definition mbed_tls_initial_add_round_key (plaintext : list Z) (rks : list Z) : four_ints :=
((mbed_tls_initial_add_round_key_col 0 plaintext rks),
((mbed_tls_initial_add_round_key_col 1 plaintext rks),
((mbed_tls_initial_add_round_key_col 2 plaintext rks),
((mbed_tls_initial_add_round_key_col 3 plaintext rks))))).

Lemma mbed_tls_initial_add_round_key_def: mbed_tls_initial_add_round_key = fun (plaintext : list Z) (rks : list Z) => ((mbed_tls_initial_add_round_key_col 0 plaintext rks), ((mbed_tls_initial_add_round_key_col 1 plaintext rks), ((mbed_tls_initial_add_round_key_col 2 plaintext rks), ((mbed_tls_initial_add_round_key_col 3 plaintext rks))))).