Record ret_assert : Type := {
RA_normal: environ->mpred;
RA_break: environ->mpred;
RA_continue: environ->mpred;
RA_return: option val -> environ->mpred
}.

Lemma modifiedvars_Sswitch e sl n id: modifiedvars (seq_of_labeled_statement (select_switch (Int.unsigned n) sl)) id -> modifiedvars (Sswitch e sl) id.