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

Lemma modifiedvars_Sloop c1 c2 id: modifiedvars (Sloop c1 c2) id <-> modifiedvars c1 id \/ modifiedvars c2 id.