diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-05 11:26:52 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-05 11:26:52 +0200 |
commit | fb09457f928fd4f19cd89a1fe22246444e3a5f4a (patch) | |
tree | 585b19ff33ba154de59e0478f9d9a0ddbeebb2b5 /backend/CleanupLabelsproof.v | |
parent | c4cc75dc6abcb0eee6f3288e96fea4aec540fd68 (diff) | |
download | compcert-kvx-fb09457f928fd4f19cd89a1fe22246444e3a5f4a.tar.gz compcert-kvx-fb09457f928fd4f19cd89a1fe22246444e3a5f4a.zip |
some more proofs on notrap
Diffstat (limited to 'backend/CleanupLabelsproof.v')
-rw-r--r-- | backend/CleanupLabelsproof.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/backend/CleanupLabelsproof.v b/backend/CleanupLabelsproof.v index e92be2b4..84ca403e 100644 --- a/backend/CleanupLabelsproof.v +++ b/backend/CleanupLabelsproof.v @@ -255,6 +255,18 @@ Proof. left; econstructor; split. econstructor; eauto. econstructor; eauto with coqlib. +(* Lload notrap1 *) + assert (eval_addressing tge sp addr (LTL.reglist rs args) = None). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. + left; econstructor; split. + eapply exec_Lload_notrap1; eauto. + econstructor; eauto with coqlib. +(* Lload notrap2 *) + assert (eval_addressing tge sp addr (LTL.reglist rs args) = Some a). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. + left; econstructor; split. + eapply exec_Lload_notrap2; eauto. + econstructor; eauto with coqlib. (* Lstore *) assert (eval_addressing tge sp addr (LTL.reglist rs args) = Some a). rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. |