Section EXPRESSIONS.
Variable cunit: Cminor.program.
Variable hf: helper_functions.
Hypothesis LINK: linkorder cunit prog.
Hypothesis HF: helper_functions_declared cunit hf.
(** If-conversion *)

Lemma classify_stmt_sound_2:
forall f sp e m a id v,
Cminor.eval_expr ge sp e m a v ->
forall s k,
classify_stmt s = SCassign id a ->
star Cminor.step ge (Cminor.State f s k sp e m) E0 (Cminor.State f Cminor.Sskip k sp (PTree.set id v e) m).