End WT_CONTEXT.
Section WT_SWITCH.

(* Specifications: *)
Lemma wt_select_switch:
forall n ce e rt sl,
wt_lblstmts ce e rt sl -> wt_lblstmts ce e rt (select_switch n sl).
Lemma wt_seq_of_ls:
forall ce e rt sl,
wt_lblstmts ce e rt sl -> wt_stmt ce e rt (seq_of_labeled_statement sl).