diff options
Diffstat (limited to 'backend/Selectionproof.v')
-rw-r--r-- | backend/Selectionproof.v | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/backend/Selectionproof.v b/backend/Selectionproof.v index d475f26..d6c850a 100644 --- a/backend/Selectionproof.v +++ b/backend/Selectionproof.v @@ -565,11 +565,10 @@ Proof. Qed. Theorem transf_program_correct: - forall (beh: program_behavior), not_wrong beh -> - Cminor.exec_program prog beh -> CminorSel.exec_program tprog beh. + forward_simulation (Cminor.semantics prog) (CminorSel.semantics tprog). Proof. - unfold CminorSel.exec_program, Cminor.exec_program; intros. - eapply simulation_opt_preservation; eauto. + eapply forward_simulation_opt. + eexact symbols_preserved. eexact sel_initial_states. eexact sel_final_states. eexact sel_step_correct. |