diff options
| author | Cyril SIX <cyril.six@univ-grenoble-alpes.fr> | 2019-10-04 17:57:25 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@univ-grenoble-alpes.fr> | 2019-10-04 17:57:25 +0200 |
| commit | 7b4e6a522bcf1f247ef9b3517af328b5da670a98 (patch) | |
| tree | 5445e4aa567b8dc281a52d94f5cfbe6de130d2b8 /backend/Duplicateproof.v | |
| parent | 655c6a861b426db3e5da942faaef7f5caed224e3 (diff) | |
| download | compcert-kvx-7b4e6a522bcf1f247ef9b3517af328b5da670a98.tar.gz compcert-kvx-7b4e6a522bcf1f247ef9b3517af328b5da670a98.zip | |
Ibuiltin proof
Diffstat (limited to 'backend/Duplicateproof.v')
| -rw-r--r-- | backend/Duplicateproof.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/backend/Duplicateproof.v b/backend/Duplicateproof.v index e9799f08..7369c3ea 100644 --- a/backend/Duplicateproof.v +++ b/backend/Duplicateproof.v @@ -114,6 +114,13 @@ Proof. destruct (Pos.eq_dec _ _); try discriminate. eapply verify_is_copy_correct_one. destruct x. eassumption. subst. constructor. +(* Ibuiltin *) + - destruct i'; try (inversion H; fail). monadInv H. + destruct (external_function_eq _ _); try discriminate. + destruct (list_eq_dec _ _ _); try discriminate. + destruct (builtin_res_eq_pos _ _); try discriminate. + eapply verify_is_copy_correct_one. destruct x. eassumption. subst. + constructor. Qed. Lemma verify_mapping_mn_correct: |