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