Squarefree elements of monoids

An element of a monoid is squarefree when it is not divisible by any squares except the squares of units.

Results about squarefree natural numbers are proved in Data.Nat.Squarefree.

Main Definitions

• Squarefree r indicates that r is only divisible by x * x if x is a unit.

Main Results

• multiplicity.squarefree_iff_multiplicity_le_one: x is Squarefree iff for every y, either multiplicity y x ≤ 1 or IsUnit y.
• UniqueFactorizationMonoid.squarefree_iff_nodup_factors: A nonzero element x of a unique factorization monoid is squarefree iff factors x has no duplicate factors.

Tags

squarefree, multiplicity

def Squarefree {R : Type u_1} [Monoid R] (r : R) : Prop

An element of a monoid is squarefree if the only squares that divide it are the squares of units.

Equations

• Squarefree r = ∀ (x : R), x * x ∣ r → IsUnit x

theorem IsRelPrime.of_squarefree_mul {R : Type u_1} [CommMonoid R] {m : R} {n : R} (h : Squarefree (m * n)) : IsRelPrime m n

@[simp]

theorem IsUnit.squarefree {R : Type u_1} [CommMonoid R] {x : R} (h : IsUnit x) : Squarefree x

theorem squarefree_one {R : Type u_1} [CommMonoid R] : Squarefree 1

@[simp]

theorem not_squarefree_zero {R : Type u_1} [MonoidWithZero R] [Nontrivial R] : ¬Squarefree 0

theorem Squarefree.ne_zero {R : Type u_1} [MonoidWithZero R] [Nontrivial R] {m : R} (hm : Squarefree m) : m ≠ 0

@[simp]

theorem Irreducible.squarefree {R : Type u_1} [CommMonoid R] {x : R} (h : Irreducible x) : Squarefree x

@[simp]

theorem Prime.squarefree {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} (h : Prime x) : Squarefree x

theorem Squarefree.of_mul_left {R : Type u_1} [CommMonoid R] {m : R} {n : R} (hmn : Squarefree (m * n)) : Squarefree m

theorem Squarefree.of_mul_right {R : Type u_1} [CommMonoid R] {m : R} {n : R} (hmn : Squarefree (m * n)) : Squarefree n

theorem Squarefree.squarefree_of_dvd {R : Type u_1} [CommMonoid R] {x : R} {y : R} (hdvd : x ∣ y) (hsq : Squarefree y) : Squarefree x

theorem Squarefree.eq_zero_or_one_of_pow_of_not_isUnit {R : Type u_1} [CommMonoid R] {x : R} {n : ℕ} (h : Squarefree (x ^ n)) (h' : ¬IsUnit x) : n = 0 ∨ n = 1

theorem Squarefree.gcd_right {α : Type u_2} [CancelCommMonoidWithZero α] [GCDMonoid α] (a : α) {b : α} (hb : Squarefree b) : Squarefree (gcd a b)

theorem Squarefree.gcd_left {α : Type u_2} [CancelCommMonoidWithZero α] [GCDMonoid α] {a : α} (b : α) (ha : Squarefree a) : Squarefree (gcd a b)

theorem multiplicity.squarefree_iff_multiplicity_le_one {R : Type u_1} [CommMonoid R] [DecidableRel Dvd.dvd] (r : R) : Squarefree r ↔ ∀ (x : R), multiplicity x r ≤ 1 ∨ IsUnit x

theorem multiplicity.finite_prime_left {R : Type u_1} [CancelCommMonoidWithZero R] [WfDvdMonoid R] {a : R} {b : R} (ha : Prime a) (hb : b ≠ 0) : multiplicity.Finite a b

theorem squarefree_iff_no_irreducibles {R : Type u_1} [CommMonoidWithZero R] [WfDvdMonoid R] {x : R} (hx₀ : x ≠ 0) : Squarefree x ↔ ∀ (p : R), Irreducible p → ¬p * p ∣ x

theorem irreducible_sq_not_dvd_iff_eq_zero_and_no_irreducibles_or_squarefree {R : Type u_1} [CommMonoidWithZero R] [WfDvdMonoid R] (r : R) : (∀ (x : R), Irreducible x → ¬x * x ∣ r) ↔ (r = 0 ∧ ∀ (x : R), ¬Irreducible x) ∨ Squarefree r

theorem squarefree_iff_irreducible_sq_not_dvd_of_ne_zero {R : Type u_1} [CommMonoidWithZero R] [WfDvdMonoid R] {r : R} (hr : r ≠ 0) : Squarefree r ↔ ∀ (x : R), Irreducible x → ¬x * x ∣ r

theorem squarefree_iff_irreducible_sq_not_dvd_of_exists_irreducible {R : Type u_1} [CommMonoidWithZero R] [WfDvdMonoid R] {r : R} (hr : ∃ (x : R), Irreducible x) : Squarefree r ↔ ∀ (x : R), Irreducible x → ¬x * x ∣ r

theorem Squarefree.isRadical {R : Type u_1} [CommMonoidWithZero R] [DecompositionMonoid R] {x : R} (hx : Squarefree x) : IsRadical x

theorem Squarefree.dvd_pow_iff_dvd {R : Type u_1} [CommMonoidWithZero R] [DecompositionMonoid R] {x : R} {y : R} {n : ℕ} (hsq : Squarefree x) (h0 : n ≠ 0) : x ∣ y ^ n ↔ x ∣ y

@[deprecated Squarefree.dvd_pow_iff_dvd]

theorem UniqueFactorizationMonoid.dvd_pow_iff_dvd_of_squarefree {R : Type u_1} [CommMonoidWithZero R] [DecompositionMonoid R] {x : R} {y : R} {n : ℕ} (hsq : Squarefree x) (h0 : n ≠ 0) : x ∣ y ^ n ↔ x ∣ y

Alias of Squarefree.dvd_pow_iff_dvd.

theorem IsRadical.squarefree {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} (h0 : x ≠ 0) (h : IsRadical x) : Squarefree x

theorem Squarefree.pow_dvd_of_squarefree_of_pow_succ_dvd_mul_right {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} {y : R} {p : R} {k : ℕ} (hx : Squarefree x) (hp : Prime p) (h : p ^ (k + 1) ∣ x * y) : p ^ k ∣ y

theorem Squarefree.pow_dvd_of_squarefree_of_pow_succ_dvd_mul_left {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} {y : R} {p : R} {k : ℕ} (hy : Squarefree y) (hp : Prime p) (h : p ^ (k + 1) ∣ x * y) : p ^ k ∣ x

theorem Squarefree.dvd_of_squarefree_of_mul_dvd_mul_right {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} {y : R} {d : R} [DecompositionMonoid R] (hx : Squarefree x) (h : d * d ∣ x * y) : d ∣ y

theorem Squarefree.dvd_of_squarefree_of_mul_dvd_mul_left {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} {y : R} {d : R} [DecompositionMonoid R] (hy : Squarefree y) (h : d * d ∣ x * y) : d ∣ x

theorem squarefree_mul_iff {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} {y : R} [DecompositionMonoid R] : Squarefree (x * y) ↔ IsRelPrime x y ∧ Squarefree x ∧ Squarefree y

x * y is square-free iff x and y have no common factors and are themselves square-free.

theorem isRadical_iff_squarefree_or_zero {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} [DecompositionMonoid R] : IsRadical x ↔ Squarefree x ∨ x = 0

theorem isRadical_iff_squarefree_of_ne_zero {R : Type u_1} [CancelCommMonoidWithZero R] {x : R} [DecompositionMonoid R] (h : x ≠ 0) : IsRadical x ↔ Squarefree x

theorem exists_squarefree_dvd_pow_of_ne_zero {R : Type u_1} [CancelCommMonoidWithZero R] [UniqueFactorizationMonoid R] {x : R} (hx : x ≠ 0) : ∃ (y : R) (n : ℕ), Squarefree y ∧ y ∣ x ∧ x ∣ y ^ n

theorem UniqueFactorizationMonoid.squarefree_iff_nodup_normalizedFactors {R : Type u_1} [CancelCommMonoidWithZero R] [UniqueFactorizationMonoid R] [NormalizationMonoid R] {x : R} (x0 : x ≠ 0) : Squarefree x ↔ Multiset.Nodup (UniqueFactorizationMonoid.normalizedFactors x)

@[simp]

theorem Int.squarefree_natAbs {n : ℤ} : Squarefree (Int.natAbs n) ↔ Squarefree n

@[simp]

theorem Int.squarefree_coe_nat {n : ℕ} : Squarefree ↑n ↔ Squarefree n