From 500772f3e49df3a83c3ead8314f1c7b58aa8211e Mon Sep 17 00:00:00 2001 From: letouzey Date: Sat, 27 May 2017 15:51:08 +0200 Subject: 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. --- backend/Inliningspec.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'backend/Inliningspec.v') 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. -- cgit