diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-06-30 00:29:55 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-06-30 00:29:55 +0100 |
commit | ae3f6b6096ab2484c1b3dcfab7f3f72bcfd268d5 (patch) | |
tree | d2629386661a732a9a8aa875eab9faa0227b5331 /src/common | |
parent | 9a640d4f50b93a9d5f9b48e10b0c4cbfa7f0680f (diff) | |
parent | 1506d59970e5c81352eefc4c15b4668b56928ab1 (diff) | |
download | vericert-ae3f6b6096ab2484c1b3dcfab7f3f72bcfd268d5.tar.gz vericert-ae3f6b6096ab2484c1b3dcfab7f3f72bcfd268d5.zip |
Merge branch 'develop' of github.com:ymherklotz/CoqUp into develop
Diffstat (limited to 'src/common')
-rw-r--r-- | src/common/IntegerExtra.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/common/IntegerExtra.v b/src/common/IntegerExtra.v index 8df70d9..7d3156b 100644 --- a/src/common/IntegerExtra.v +++ b/src/common/IntegerExtra.v @@ -143,7 +143,7 @@ Module PtrofsExtra. Lemma divu_unsigned : forall x y, 0 < Ptrofs.unsigned y -> - Ptrofs.unsigned x < Ptrofs.max_unsigned -> + Ptrofs.unsigned x <= Ptrofs.max_unsigned -> Ptrofs.unsigned (Ptrofs.divu x y) = Ptrofs.unsigned x / Ptrofs.unsigned y. Proof. intros. @@ -154,7 +154,7 @@ Module PtrofsExtra. apply Ptrofs.unsigned_range. apply Z.div_le_upper_bound; auto. eapply Z.le_trans. - apply Z.lt_le_incl. exact H0. + exact H0. rewrite Z.mul_comm. apply Z.le_mul_diag_r; simplify; lia. Qed. |