diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-08-05 14:40:34 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-08-05 14:40:34 +0000 |
commit | bdc7b815d033f84e5538a1c8db87d3c061b1ca4c (patch) | |
tree | bc3ca91f80b4193335cdcc07e7003c9527b48350 /backend/Machabstr2concr.v | |
parent | 213bf38509f4f92545d4c5749c25a55b9a9dda36 (diff) | |
download | compcert-bdc7b815d033f84e5538a1c8db87d3c061b1ca4c.tar.gz compcert-bdc7b815d033f84e5538a1c8db87d3c061b1ca4c.zip |
Added 'going wrong' behaviors
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1120 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Machabstr2concr.v')
-rw-r--r-- | backend/Machabstr2concr.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Machabstr2concr.v b/backend/Machabstr2concr.v index 6e331f30..139eac75 100644 --- a/backend/Machabstr2concr.v +++ b/backend/Machabstr2concr.v @@ -905,7 +905,7 @@ Proof. Qed. Theorem exec_program_equiv: - forall (beh: program_behavior), + forall (beh: program_behavior), not_wrong beh -> Machabstr.exec_program p beh -> Machconcr.exec_program p beh. Proof. unfold Machconcr.exec_program, Machabstr.exec_program; intros. @@ -915,10 +915,10 @@ Proof. (match_states := fun st1 st2 => match_states st1 st2 /\ wt_state st1). eexact equiv_initial_states. eexact equiv_final_states. - intros. destruct H1. exploit step_equiv; eauto. + intros. destruct H2. exploit step_equiv; eauto. intros [st2' [A B]]. exists st2'; split. auto. split. auto. eapply Machtyping.subject_reduction; eauto. - auto. + auto. auto. Qed. End SIMULATION. |