diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-02 15:47:49 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-02 15:47:49 +0100 |
| commit | 9a4346d95dded67b15b8d8456a8a57e62a962c27 (patch) | |
| tree | 9a3a8cd0558d3af746336d5c50575a740c7de9f7 /common/Memory.v | |
| parent | 6af8f4275f7f9572d4d0783818cbfb85357807c6 (diff) | |
| parent | 94558ecb3e48261f12c644045d40c7d0784415e0 (diff) | |
| download | compcert-kvx-9a4346d95dded67b15b8d8456a8a57e62a962c27.tar.gz compcert-kvx-9a4346d95dded67b15b8d8456a8a57e62a962c27.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into dm-cse2-naive
Diffstat (limited to 'common/Memory.v')
| -rw-r--r-- | common/Memory.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/common/Memory.v b/common/Memory.v index 89b920b3..0eb2de8f 100644 --- a/common/Memory.v +++ b/common/Memory.v @@ -682,6 +682,15 @@ Proof. apply decode_val_type. Qed. +Theorem load_rettype: + forall m chunk b ofs v, + load chunk m b ofs = Some v -> + Val.has_rettype v (rettype_of_chunk chunk). +Proof. + intros. exploit load_result; eauto; intros. rewrite H0. + apply decode_val_rettype. +Qed. + Theorem load_cast: forall m chunk b ofs v, load chunk m b ofs = Some v -> |