Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition t_struct_aesctx := Tstruct _mbedtls_aes_context_struct noattr.Definition t_struct_tables := Tstruct _aes_tables_struct noattr.Definition tables_initialized (tables : val) := data_at Ews t_struct_tables (map Vint sbox,
  (map Vint FT0, (map Vint FT1, (map Vint FT2, (map Vint FT3, (map Vint inv_sbox,
  (map Vint RT0, (map Vint RT1, (map Vint RT2, (map Vint RT3,
  (map Vint (words_to_ints full_rcons)))))))))))) tables.Definition tables_uninitialized tables := data_at_ Ews t_struct_tables tables.

Lemma semax_loop_no_incr {Espec : OracleKind} {CS: compspecs}: forall Delta Q body R, @semax CS Espec Delta Q body (loop1_ret_assert Q R) -> @semax CS Espec Delta Q (Sloop body Sskip) R.