diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-10-03 16:31:03 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-10-03 16:31:03 +0200 |
| commit | 6f05c86e614797b76d92bc3dbbd4c0ece683168e (patch) | |
| tree | 1a77f29d33ba74405281c8a4a2737c45d640599f /backend/Duplicateproof.v | |
| parent | b59eb881ad3fd72b8743fb48d90e2751dc996e77 (diff) | |
| download | compcert-kvx-6f05c86e614797b76d92bc3dbbd4c0ece683168e.tar.gz compcert-kvx-6f05c86e614797b76d92bc3dbbd4c0ece683168e.zip | |
Proof for Iop
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 f3218f5f..d8ca9cd1 100644 --- a/backend/Duplicateproof.v +++ b/backend/Duplicateproof.v @@ -83,6 +83,13 @@ Proof. (* Inop *) - destruct i'; try (inversion H; fail). monadInv H. eapply verify_is_copy_correct_one. destruct x. eassumption. constructor; eauto. +(* Iop *) + - destruct i'; try (inversion H; fail). monadInv H. + destruct (eq_operation _ _) eqn:EQO; try discriminate. + destruct (list_eq_dec _ _ _) eqn:LEQ; try discriminate. + destruct (Pos.eq_dec _ _) eqn:POS; try discriminate. clear EQ0. subst. + eapply verify_is_copy_correct_one. destruct x. eassumption. + constructor. Qed. Lemma verify_mapping_mn_correct: |