diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-27 05:32:28 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-27 05:32:28 +0100 |
| commit | a5e20ecb933a1dc12bae3e4eeb330e86f13832d8 (patch) | |
| tree | 36e89d6f7f86825a537d0fdc192aaebd04efaf1b /common/Memory.v | |
| parent | e35365927d1289687aaff6d7ca5ebee1ac09d249 (diff) | |
| parent | 5003b8d93c2a20821b776f7f74f5096a308a03cf (diff) | |
| download | compcert-kvx-a5e20ecb933a1dc12bae3e4eeb330e86f13832d8.tar.gz compcert-kvx-a5e20ecb933a1dc12bae3e4eeb330e86f13832d8.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into dm-cse2
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 b68a5049..9f9934c2 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 -> |