Definition vanalyze (cu: program) (f: function) :=
  ValueAnalysis.analyze (romem_for cu) f.

Theorem step_simulation: forall S1 t S2, step ge S1 t S2 -> forall S1', match_states S1 S1' -> sound_state prog S1 -> exists S2', step tge S1' t S2' /\ match_states S2 S2'.