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. *)
(** Properties of labeled statements *)

Lemma transl_lbl_stmt_1:
forall tyret nbrk ncnt n sl tsl,
transl_lbl_stmt tyret nbrk ncnt sl = OK tsl ->
transl_lbl_stmt tyret nbrk ncnt (Clight.select_switch n sl) = OK (select_switch n tsl).