(** Properties of labeled statements *)

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