From 57bd30d9c16ff44c0fb7b771bdb1fcd579f7b08d Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 21 Jul 2016 14:07:08 -0700 Subject: Add another ZUtil lemma --- src/Util/ZUtil.v | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src') diff --git a/src/Util/ZUtil.v b/src/Util/ZUtil.v index 97bfd44a2..d26859ecc 100644 --- a/src/Util/ZUtil.v +++ b/src/Util/ZUtil.v @@ -1004,6 +1004,13 @@ Module Z. Lemma le_lt_trans n m p : n <= m -> m < p -> n < p. Proof. lia. Qed. + + Lemma mul_div_lt_by_le x y z b : 0 <= y < z -> 0 <= x < b -> x * y / z < b. + Proof. + intros [? ?] [? ?]; eapply Z.le_lt_trans; [ | eassumption ]. + auto with zarith. + Qed. + Hint Resolve mul_div_lt_by_le : zarith. End Z. Module Export BoundsTactics. -- cgit v1.2.3