Split polynomials and collapsible numbers
DefinitionCollapsibleCubics_basicA polynomial is split if and factors completely into linear factors over :
Equivalently, is a rational polynomial of strictly positive degree all of whose roots are rational. Split polynomials are the simplest non-constant maps defined over that can be applied to an algebraic number.
Let be a field containing , with structure map . An element is collapsible if some split polynomial sends it into :
This is the one-step notion, also written -collapsible. It is strictly stronger than eventual collapsibility, which asks only that some finite composition of split polynomials send into .
These two definitions are the vocabulary in which every statement of this mission is phrased, and they are reusable for the degree- and higher cases of the same problem.
Formalization Note The factorisation is recorded as a multiset of rational roots, so repeated roots are permitted and the leading coefficient is carried separately. Collapsibility is stated for in an arbitrary field carrying a -algebra structure, rather than only for , so every consequence applies verbatim to a root taken in , in , or in the quotient . The value is not required to be nonzero.
import Mathlib
namespace CollapsibleCubics
open Polynomial
/-- A polynomial over `ℚ` is *split* if it has degree at least `1` and factors into rational
linear factors: `f = C a * ∏ (X - rᵢ)` with `a ≠ 0` and all `rᵢ ∈ ℚ`. -/
def IsSplit (f : ℚ[X]) : Prop :=
0 < f.natDegree ∧ ∃ (a : ℚ) (rs : Multiset ℚ), a ≠ 0 ∧
f = C a * (rs.map fun r => X - C r).prod
set_option linter.dupNamespace false in
/-- An element `α` of a field `K` containing `ℚ` is *collapsible* if some split rational
polynomial `f` sends it into `ℚ`, i.e. `f α ∈ ℚ`. -/
def Collapsible {K : Type*} [Field K] [Algebra ℚ K] (α : K) : Prop :=
∃ f : ℚ[X], IsSplit f ∧ ∃ c : ℚ, aeval α f = algebraMap ℚ K c
end CollapsibleCubicsRead-back
What the Lean code literally says, in plain math · claude-opus-5
IsSplit — This defines a predicate on a single-variable polynomial with rational coefficients (an element of ). The predicate holds precisely when both of the following are true:
- The natural-number degree of is strictly positive, i.e. where the degree is taken in (so that the zero polynomial and all nonzero constants, both of which have natural degree , are excluded);
- There exist a rational number and a multiset of rational numbers (a finite unordered collection of rationals with multiplicity, possibly empty) such that and
where the product is taken over the multiset with each element repeated according to its multiplicity, and the empty multiset yields the empty product . Here and are coerced into as constant polynomials.
Note that the equation is an equality of polynomials, and no relationship between the size of and is asserted separately — it is only whatever follows from the equation itself. The existentially quantified data and are not required to be unique. The degree condition is stated as a separate conjunct rather than being derived from the factorization.
Collapsible — This defines a predicate on an element , where the ambient setting consists of: a type at an arbitrary universe level (an implicit argument), an instance making a field, and an instance making a -algebra (both typeclass arguments), together with a canonical structure map supplied by that algebra structure. The predicate holds precisely when there exists a polynomial such that:
- satisfies as unfolded above — that is, in , and for some nonzero rational and some finite multiset of rational numbers; and
- there exists a rational number with
where denotes the evaluation of at under the -algebra map — i.e. the image of under the unique -algebra homomorphism sending to — and is the image of under the structure map .
The rational number is existentially quantified and unconstrained: in particular is permitted, so the condition includes the case . Both and are merely asserted to exist, with no uniqueness or minimality requirement, and no constraint tying to any invariant of such as its degree over (indeed is not assumed algebraic over ). No hypothesis relates the roots in to . The definition applies to every element of every such , including lying in the image of and including itself.
Confirmed by the mission captain (proposal self-audit).