diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-10-03 17:09:03 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-10-03 17:09:03 +0200 |
| commit | 79d48fa72a3ac0cd2b84dc8c70eb9170088e0353 (patch) | |
| tree | 44f3acebcf48ffdda76bb55b41aed5be528bf429 /backend/Duplicateproof.v | |
| parent | 6e159e4c2e0978116522f3b6f42a7cbe6b204fe4 (diff) | |
| download | compcert-kvx-79d48fa72a3ac0cd2b84dc8c70eb9170088e0353.tar.gz compcert-kvx-79d48fa72a3ac0cd2b84dc8c70eb9170088e0353.zip | |
Icall
Diffstat (limited to 'backend/Duplicateproof.v')
| -rw-r--r-- | backend/Duplicateproof.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/backend/Duplicateproof.v b/backend/Duplicateproof.v index c2bdf10d..e9799f08 100644 --- a/backend/Duplicateproof.v +++ b/backend/Duplicateproof.v @@ -106,6 +106,14 @@ Proof. destruct (Pos.eq_dec _ _); try discriminate. clear EQ0. subst. eapply verify_is_copy_correct_one. destruct x. eassumption. constructor. +(* Icall *) + - destruct i'; try (inversion H; fail). monadInv H. + destruct (signature_eq _ _); try discriminate. + destruct (product_eq _ _ _ _); try discriminate. + destruct (list_eq_dec _ _ _); try discriminate. + destruct (Pos.eq_dec _ _); try discriminate. + eapply verify_is_copy_correct_one. destruct x. eassumption. subst. + constructor. Qed. Lemma verify_mapping_mn_correct: |