Section PRESERVATION.
Variable prog: Cminor.program.
Variable tprog: CminorSel.program.
Let ge := Genv.globalenv prog.
Let tge := Genv.globalenv tprog.
Hypothesis TRANSF: match_prog prog tprog.
Proof (Genv.find_symbol_match TRANSF).

Lemma senv_preserved:
Senv.equiv (Genv.to_senv ge) (Genv.to_senv tge).