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_2:
forall tyret nbrk ncnt sl tsl,
transl_lbl_stmt tyret nbrk ncnt sl = OK tsl ->
transl_statement tyret nbrk ncnt (seq_of_labeled_statement sl) = OK (seq_of_lbl_stmt tsl).