(** * 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).

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