Lemmas about squares #
Criteria for (non-)squareness in ℚ, ℤ and ZMod m.
Auxiliary material for the formalization of M. Stoll, Galois groups over ℚ of some iterated polynomials, Arch. Math. 59 (1992), 239-244; upstreaming candidates for Mathlib.
theorem
Int.isSquare_abs_of_isSquare_prod_of_pairwise_isCoprime
{ι : Type u_1}
(f : ι → ℤ)
(S : Finset ι)
(hcop : ∀ i ∈ S, ∀ j ∈ S, i ≠ j → IsCoprime (f i) (f j))
(hsq : IsSquare (∏ i ∈ S, f i))
(i : ι)
:
If a family f is pairwise coprime on a finite set S and ∏_{i ∈ S} f i is a square, then
|f i| is a square for every i ∈ S.