Section WT_FIND_LABEL.
Scheme wt_stmt_ind2 := Minimality for wt_stmt Sort Prop
with wt_lblstmts2_ind2 := Minimality for wt_lblstmts Sort Prop.

Lemma wt_find_label:
forall lbl e f s, wt_stmt ge e f.(fn_return) s ->
forall k s' k',
find_label lbl s k = Some (s', k') ->
wt_stmt_cont e f k ->
wt_stmt ge e f.(fn_return) s' /\ wt_stmt_cont e f k'.