From 9043add656177eeac1491a73d2f3ab92bec0013c Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Sat, 29 Dec 2018 14:31:27 -0500 Subject: Imported Upstream version 8.8.2 --- theories/Numbers/Integer/Abstract/ZAdd.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZAddOrder.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZAxioms.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZBase.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZBits.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZDivEucl.v | 18 ++++++++++++++---- theories/Numbers/Integer/Abstract/ZDivFloor.v | 18 ++++++++++++++---- theories/Numbers/Integer/Abstract/ZDivTrunc.v | 18 ++++++++++++++---- theories/Numbers/Integer/Abstract/ZGcd.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZLcm.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZLt.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZMaxMin.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZMul.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZMulOrder.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZParity.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZPow.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZProperties.v | 10 ++++++---- theories/Numbers/Integer/Abstract/ZSgnAbs.v | 10 ++++++---- 18 files changed, 132 insertions(+), 72 deletions(-) (limited to 'theories/Numbers/Integer/Abstract') diff --git a/theories/Numbers/Integer/Abstract/ZAdd.v b/theories/Numbers/Integer/Abstract/ZAdd.v index f7fdc179..c4c5174d 100644 --- a/theories/Numbers/Integer/Abstract/ZAdd.v +++ b/theories/Numbers/Integer/Abstract/ZAdd.v @@ -1,9 +1,11 @@ (************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* + a mod b / b == 0. +Proof. + intros a b Hb. + rewrite div_small_iff by assumption. + auto using mod_always_pos. +Qed. + (** A last inequality: *) Theorem div_mul_le: diff --git a/theories/Numbers/Integer/Abstract/ZDivFloor.v b/theories/Numbers/Integer/Abstract/ZDivFloor.v index 310748dd..a0d1821b 100644 --- a/theories/Numbers/Integer/Abstract/ZDivFloor.v +++ b/theories/Numbers/Integer/Abstract/ZDivFloor.v @@ -1,9 +1,11 @@ (************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* + a mod b / b == 0. +Proof. + intros a b Hb. + rewrite div_small_iff by assumption. + auto using mod_bound_or. +Qed. + (** A last inequality: *) Theorem div_mul_le: diff --git a/theories/Numbers/Integer/Abstract/ZDivTrunc.v b/theories/Numbers/Integer/Abstract/ZDivTrunc.v index 04301077..31e42738 100644 --- a/theories/Numbers/Integer/Abstract/ZDivTrunc.v +++ b/theories/Numbers/Integer/Abstract/ZDivTrunc.v @@ -1,9 +1,11 @@ (************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* + a rem b รท b == 0. +Proof. + intros a b Hb. + rewrite quot_small_iff by assumption. + auto using rem_bound_abs. +Qed. + (** A last inequality: *) Theorem quot_mul_le: diff --git a/theories/Numbers/Integer/Abstract/ZGcd.v b/theories/Numbers/Integer/Abstract/ZGcd.v index 30adaeb4..f0b7bf9d 100644 --- a/theories/Numbers/Integer/Abstract/ZGcd.v +++ b/theories/Numbers/Integer/Abstract/ZGcd.v @@ -1,9 +1,11 @@ (************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(*