diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-12-30 17:47:53 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-12-30 17:47:53 +0000 |
commit | 5bf13140754a55599ae27942b17cdbb4b7ed74e9 (patch) | |
tree | 57d4ef372149baf47291ad21e65ec77bf9ae15cb /backend/RTLgenproof.v | |
parent | 71dfc9f28a1bf4b62c586b3ebee8e2c78088fd84 (diff) | |
download | compcert-5bf13140754a55599ae27942b17cdbb4b7ed74e9.tar.gz compcert-5bf13140754a55599ae27942b17cdbb4b7ed74e9.zip |
Remove some useless "Require".
Update ARM port.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2085 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/RTLgenproof.v')
-rw-r--r-- | backend/RTLgenproof.v | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v index 1b8e853f..690611c0 100644 --- a/backend/RTLgenproof.v +++ b/backend/RTLgenproof.v @@ -617,9 +617,10 @@ Proof. edestruct Mem.loadv_extends as [v' []]; eauto. exists (rs1#rd <- v'). (* Exec *) - split. eapply star_right. eexact EX1. eapply exec_Iload; eauto. - rewrite (@eval_addressing_preserved _ _ _ _ ge tge). eauto. - exact symbols_preserved. traceEq. + split. eapply star_right. eexact EX1. eapply exec_Iload. eauto. + instantiate (1 := vaddr'). rewrite <- H3. + apply eval_addressing_preserved. exact symbols_preserved. + auto. traceEq. (* Match-env *) split. eauto with rtlg. (* Result *) @@ -1049,9 +1050,9 @@ Proof. edestruct Mem.storev_extends as [tm' []]; eauto. econstructor; split. left; eapply plus_right. eapply star_trans. eexact A. eexact E. reflexivity. - eapply exec_Istore with (a := vaddr'); eauto. + eapply exec_Istore with (a := vaddr'). eauto. rewrite <- H4. apply eval_addressing_preserved. exact symbols_preserved. - traceEq. + eauto. traceEq. econstructor; eauto. constructor. (* call *) |