Definition encryption_loop_body : statement :=
   ltac:(find_statement_in_body
       f_mbedtls_aes_encrypt
       reassociate_stmt
       ltac:(fun body => match body with
              context [  Sloop
                       (Ssequence
                         (Sifthenelse (Ebinop Ogt (Etempvar _i _) (Econst_int (Int.repr 0) _)  _)
                             Sskip  Sbreak)
                       ?S) _ ] => S
      end)).

(* Specifications: *)
Lemma encryption_loop_body_proof: encryption_loop_body_proof_statement.