Lemmas about Euclidean domains #
Main statements #
gcd_eq_gcd_ab
: states Bézout's lemma for Euclidean domains.
Equations
- ⋯ = ⋯
@[simp]
theorem
EuclideanDomain.dvd_mod_iff
{R : Type u}
[EuclideanDomain R]
{a : R}
{b : R}
{c : R}
(h : c ∣ b)
:
@[simp]
theorem
EuclideanDomain.eq_div_of_mul_eq_left
{R : Type u}
[EuclideanDomain R]
{a : R}
{b : R}
{c : R}
(hb : b ≠ 0)
(h : a * b = c)
:
theorem
EuclideanDomain.eq_div_of_mul_eq_right
{R : Type u}
[EuclideanDomain R]
{a : R}
{b : R}
{c : R}
(ha : a ≠ 0)
(h : a * b = c)
:
theorem
EuclideanDomain.mul_div_assoc
{R : Type u}
[EuclideanDomain R]
(x : R)
{y : R}
{z : R}
(h : z ∣ y)
:
theorem
EuclideanDomain.mul_div_cancel'
{R : Type u}
[EuclideanDomain R]
{a : R}
{b : R}
(hb : b ≠ 0)
(hab : b ∣ a)
:
theorem
EuclideanDomain.div_dvd_of_dvd
{R : Type u}
[EuclideanDomain R]
{p : R}
{q : R}
(hpq : q ∣ p)
:
theorem
EuclideanDomain.dvd_div_of_mul_dvd
{R : Type u}
[EuclideanDomain R]
{a : R}
{b : R}
{c : R}
(h : a * b ∣ c)
:
@[simp]
theorem
EuclideanDomain.gcd_zero_right
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
:
EuclideanDomain.gcd a 0 = a
theorem
EuclideanDomain.gcd_val
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
:
EuclideanDomain.gcd a b = EuclideanDomain.gcd (b % a) a
theorem
EuclideanDomain.gcd_dvd
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
:
EuclideanDomain.gcd a b ∣ a ∧ EuclideanDomain.gcd a b ∣ b
theorem
EuclideanDomain.gcd_dvd_left
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
:
EuclideanDomain.gcd a b ∣ a
theorem
EuclideanDomain.gcd_dvd_right
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
:
EuclideanDomain.gcd a b ∣ b
theorem
EuclideanDomain.gcd_eq_zero_iff
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{a : R}
{b : R}
:
theorem
EuclideanDomain.dvd_gcd
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{a : R}
{b : R}
{c : R}
:
c ∣ a → c ∣ b → c ∣ EuclideanDomain.gcd a b
theorem
EuclideanDomain.gcd_eq_left
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{a : R}
{b : R}
:
EuclideanDomain.gcd a b = a ↔ a ∣ b
@[simp]
theorem
EuclideanDomain.gcd_one_left
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
:
EuclideanDomain.gcd 1 a = 1
@[simp]
theorem
EuclideanDomain.gcd_self
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
:
EuclideanDomain.gcd a a = a
@[simp]
theorem
EuclideanDomain.xgcdAux_fst
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
(y : R)
(s : R)
(t : R)
(s' : R)
(t' : R)
:
(EuclideanDomain.xgcdAux x s t y s' t').1 = EuclideanDomain.gcd x y
theorem
EuclideanDomain.xgcdAux_val
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
(y : R)
:
EuclideanDomain.xgcdAux x 1 0 y 0 1 = (EuclideanDomain.gcd x y, EuclideanDomain.xgcd x y)
theorem
EuclideanDomain.xgcdAux_P
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
{r : R}
{r' : R}
{s : R}
{t : R}
{s' : R}
{t' : R}
(p : EuclideanDomain.P a b (r, s, t))
(p' : EuclideanDomain.P a b (r', s', t'))
:
EuclideanDomain.P a b (EuclideanDomain.xgcdAux r s t r' s' t')
theorem
EuclideanDomain.gcd_eq_gcd_ab
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(a : R)
(b : R)
:
EuclideanDomain.gcd a b = a * EuclideanDomain.gcdA a b + b * EuclideanDomain.gcdB a b
An explicit version of Bézout's lemma for Euclidean domains.
instance
EuclideanDomain.instIsDomainToSemiringToCommSemiringToCommRing
(R : Type u_1)
[e : EuclideanDomain R]
:
IsDomain R
Equations
- ⋯ = ⋯
theorem
EuclideanDomain.dvd_lcm_left
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
(y : R)
:
x ∣ EuclideanDomain.lcm x y
theorem
EuclideanDomain.dvd_lcm_right
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
(y : R)
:
y ∣ EuclideanDomain.lcm x y
theorem
EuclideanDomain.lcm_dvd
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{x : R}
{y : R}
{z : R}
(hxz : x ∣ z)
(hyz : y ∣ z)
:
EuclideanDomain.lcm x y ∣ z
@[simp]
theorem
EuclideanDomain.lcm_dvd_iff
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{x : R}
{y : R}
{z : R}
:
@[simp]
theorem
EuclideanDomain.lcm_zero_left
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
:
EuclideanDomain.lcm 0 x = 0
@[simp]
theorem
EuclideanDomain.lcm_zero_right
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
:
EuclideanDomain.lcm x 0 = 0
@[simp]
theorem
EuclideanDomain.lcm_eq_zero_iff
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
{x : R}
{y : R}
:
@[simp]
theorem
EuclideanDomain.gcd_mul_lcm
{R : Type u}
[EuclideanDomain R]
[DecidableEq R]
(x : R)
(y : R)
:
EuclideanDomain.gcd x y * EuclideanDomain.lcm x y = x * y