Require Export Axioms.
(** * Properties of operations over types *)
Remark transl_params_types:
forall params,
map typ_of_type (map snd params) = typlist_of_typelist (type_of_params params).
(** * Properties of the translation functions *)
(** Transformation of expressions and statements. *)

Lemma transl_expr_lvalue:
forall ge e le m a loc ofs ta,
Clight.eval_lvalue ge e le m a loc ofs ->
transl_expr a = OK ta ->
(exists tb, transl_lvalue a = OK tb /\ make_load tb (typeof a) = OK ta).