diff options
-rw-r--r-- | src/Util/ZUtil.v | 7 |
1 files changed, 7 insertions, 0 deletions
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. |