diff options
| author | letouzey <pierre.letouzey@inria.fr> | 2017-05-27 15:51:08 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-05-27 15:51:08 +0200 |
| commit | 500772f3e49df3a83c3ead8314f1c7b58aa8211e (patch) | |
| tree | 584b7dd5e074206b056ad4517f791eaae66b669b /backend/Inliningspec.v | |
| parent | 7a44249f8256058156053fd56ceb3dbf63426bbe (diff) | |
| download | compcert-kvx-500772f3e49df3a83c3ead8314f1c7b58aa8211e.tar.gz compcert-kvx-500772f3e49df3a83c3ead8314f1c7b58aa8211e.zip | |
Inliningspec made compatible with a coming fix of zify
See Coq pull request #673 (and original bug #5336).
With the fixed version of zify, this proof could actually be shortened to `intros. unfold shiftpos. now zify.`, but the proposed patch has the advantage of being compatible with both the released versions of Coq, and the coming ones.
Diffstat (limited to 'backend/Inliningspec.v')
| -rw-r--r-- | backend/Inliningspec.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Inliningspec.v b/backend/Inliningspec.v index dfd96333..d79132d6 100644 --- a/backend/Inliningspec.v +++ b/backend/Inliningspec.v @@ -72,7 +72,7 @@ Qed. Lemma shiftpos_eq: forall x y, Zpos (shiftpos x y) = (Zpos x + Zpos y) - 1. Proof. - intros. unfold shiftpos. zify. rewrite Pos2Z.inj_sub. auto. + intros. unfold shiftpos. zify. try rewrite Pos2Z.inj_sub. auto. zify. omega. Qed. |