Documentation

LeanPool.QuadraticIterates.ArchMath1992.Irreducibility

Irreducibility of the iterates over #

An even polynomial in ℚ[X] that is reducible but has no nontrivial even divisor factors as g · g(-X) (even_reducible_factorization); applied to f_n, this shows that a factorization of f_n would make c_n a square (Lemma 1.2, irreducible_iteratedPoly_of_not_isSquare_cSeq). Since no c_n is a square when -a is not one, every f_n is irreducible (Corollary 1.3, irreducible_iteratedPoly).

Part of the formalization of M. Stoll, Galois groups over ℚ of some iterated polynomials, Arch. Math. 59 (1992), 239-244; see QuadraticIterates.ArchMath1992.

If -a is not a rational square then a ≠ 0, since -0 is.

Even factorizations and non-square c_n #

theorem QuadraticIterates.abs_le_cSeq (a : ) (ha : ¬IsSquare (-a)) {n : } (hn : 2 n) :
|a| cSeq a n
theorem QuadraticIterates.cSeq_pos (a : ) (ha : ¬IsSquare (-a)) {n : } (hn : 2 n) :
0 < cSeq a n

Lemma 1.1 a): c_n > 0 for all n ≥ 2.

theorem QuadraticIterates.even_reducible_factorization {p : Polynomial } (hmonic : p.Monic) (heven : p.comp (-Polynomial.X) = p) (hpirr : ¬Irreducible p) (hnoeven : ∀ (d : Polynomial ), d pAssociated (d.comp (-Polynomial.X)) dIsUnit d Associated d p) :

A reducible monic even polynomial with no nontrivial even divisors factors as (-1) ^ (deg g) · p = g · g(-X): its irreducible factors pair up under X ↦ -X.

For irreducible F, every even divisor (d(-X) = d) of F ∘ (X² + c) is trivial — a unit or associated to F ∘ (X² + c) — since it descends to a divisor of F.

Variant of isUnit_or_associated_of_dvd_comp for divisors that are even only up to associates: if F is irreducible and the constant term of F ∘ (X² + c) is nonzero, then any divisor d of F ∘ (X² + c) with d(-X) associated to d is a unit or associated to it.

Irreducibility of the iterates #

Lemma 1.2: if none of c_1, …, c_n is a square in , then f_n is irreducible over .

theorem QuadraticIterates.not_isSquare_cSeq (a : ) (ha : ¬IsSquare (-a)) {k : } (hk : 1 k) :
¬IsSquare (cSeq a k)

Corollary 1.3: all f_n (n ≥ 1) are irreducible over .

All f_n (including f_0 = X) are irreducible over when -a is not a square in ; this extends irreducible_iteratedPoly_of_pos to n = 0.

If -a = r ^ 2 in , then f_n = f_{n-1} ^ 2 + a = (f_{n-1} - r) * (f_{n-1} + r) factors nontrivially, so irreducibility of any f_n with n ≥ 1 implies that -a is not a square. This recovers the standing assumption of the paper from the irreducibility hypothesis of Lemma 1.6.

theorem QuadraticIterates.relfinrank_le_two_pow (a : ) {m n : } (hmn : m n) :
(splittingField a m).relfinrank (splittingField a n) 2 ^ (2 ^ n - 2 ^ m)
theorem QuadraticIterates.not_isSquare_neg_of_finrank_eq (a : ) {n : } (hn : 1 n) (hmax : Module.finrank (splittingField a n) = 2 ^ (2 ^ n - 1)) :