diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-10-07 14:51:43 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-10-07 14:51:43 +0200 |
| commit | e7da402f36d030484d11960cf12581fd1c1f159a (patch) | |
| tree | 2b4445bb483b762f8814153b4d12448c7425918b /backend/Duplicateproof.v | |
| parent | 7b4e6a522bcf1f247ef9b3517af328b5da670a98 (diff) | |
| download | compcert-kvx-e7da402f36d030484d11960cf12581fd1c1f159a.tar.gz compcert-kvx-e7da402f36d030484d11960cf12581fd1c1f159a.zip | |
Ireturn
Diffstat (limited to 'backend/Duplicateproof.v')
| -rw-r--r-- | backend/Duplicateproof.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/backend/Duplicateproof.v b/backend/Duplicateproof.v index 7369c3ea..37c583df 100644 --- a/backend/Duplicateproof.v +++ b/backend/Duplicateproof.v @@ -121,6 +121,10 @@ Proof. destruct (builtin_res_eq_pos _ _); try discriminate. eapply verify_is_copy_correct_one. destruct x. eassumption. subst. constructor. +(* Ireturn *) + - destruct i'; try (inversion H; fail). + destruct (option_eq _ _ _); try discriminate. subst. clear H. + constructor. Qed. Lemma verify_mapping_mn_correct: |