(*(Param: list_norepet (fn_params_names f ++ fn_vars_names f))*)

Lemma transl_step_correct_MATCH:
forall S1 t S2, Csharpminor.step ge S1 t S2 ->
forall T1, match_states S1 T1 ->
match S1 with
Csharpminor.State f (Csharpminor.Sseq s1 s2) k e le m
=> (exists T2, plus step tge T1 t T2 /\ match_states S2 T2)
\/ (measure S2 < measure S1 /\ t = E0 /\ match_states S2 T1)%nat
| _ => (exists T2, plus step tge T1 t T2 /\ match_states S2 T2)
end.