Splitting fields

In this file we prove the existence and uniqueness of splitting fields.

Main definitions

• Polynomial.SplittingField f: A fixed splitting field of the polynomial f.

Main statements

• Polynomial.IsSplittingField.algEquiv: Every splitting field of a polynomial f is isomorphic to SplittingField f and thus, being a splitting field is unique up to isomorphism.

Implementation details

We construct a SplittingFieldAux without worrying about whether the instances satisfy nice definitional equalities. Then the actual SplittingField is defined to be a quotient of a MvPolynomial ring by the kernel of the obvious map into SplittingFieldAux. Because the actual SplittingField will be a quotient of a MvPolynomial, it has nice instances on it.

def Polynomial.factor {K : Type v} [Field K] (f : Polynomial K) : Polynomial K

Non-computably choose an irreducible factor from a polynomial.

Equations

• Polynomial.factor f = if H : ∃ (g : Polynomial K), Irreducible g ∧ g ∣ f then Classical.choose H else Polynomial.X

theorem Polynomial.irreducible_factor {K : Type v} [Field K] (f : Polynomial K) : Irreducible (Polynomial.factor f)

theorem Polynomial.fact_irreducible_factor {K : Type v} [Field K] (f : Polynomial K) : Fact (Irreducible (Polynomial.factor f))

See note [fact non-instances].

theorem Polynomial.factor_dvd_of_not_isUnit {K : Type v} [Field K] {f : Polynomial K} (hf1 : ¬IsUnit f) : Polynomial.factor f ∣ f

theorem Polynomial.factor_dvd_of_degree_ne_zero {K : Type v} [Field K] {f : Polynomial K} (hf : Polynomial.degree f ≠ 0) : Polynomial.factor f ∣ f

theorem Polynomial.factor_dvd_of_natDegree_ne_zero {K : Type v} [Field K] {f : Polynomial K} (hf : Polynomial.natDegree f ≠ 0) : Polynomial.factor f ∣ f

def Polynomial.removeFactor {K : Type v} [Field K] (f : Polynomial K) : Polynomial (AdjoinRoot (Polynomial.factor f))

Divide a polynomial f by X - C r where r is a root of f in a bigger field extension.

Equations

• Polynomial.removeFactor f = Polynomial.map (AdjoinRoot.of (Polynomial.factor f)) f /ₘ (Polynomial.X - Polynomial.C (AdjoinRoot.root (Polynomial.factor f)))

theorem Polynomial.X_sub_C_mul_removeFactor {K : Type v} [Field K] (f : Polynomial K) (hf : Polynomial.natDegree f ≠ 0) : (Polynomial.X - Polynomial.C (AdjoinRoot.root (Polynomial.factor f))) * Polynomial.removeFactor f = Polynomial.map (AdjoinRoot.of (Polynomial.factor f)) f

theorem Polynomial.natDegree_removeFactor {K : Type v} [Field K] (f : Polynomial K) : Polynomial.natDegree (Polynomial.removeFactor f) = Polynomial.natDegree f - 1

theorem Polynomial.natDegree_removeFactor' {K : Type v} [Field K] {f : Polynomial K} {n : ℕ} (hfn : Polynomial.natDegree f = n + 1) : Polynomial.natDegree (Polynomial.removeFactor f) = n

def Polynomial.SplittingFieldAuxAux (n : ℕ) {K : Type u} [Field K] : Polynomial K → (L : Type u) × (x : Field L) × Algebra K L

Auxiliary construction to a splitting field of a polynomial, which removes n (arbitrarily-chosen) factors.

It constructs the type, proves that is a field and algebra over the base field.

Uses recursion on the degree.

Equations

• One or more equations did not get rendered due to their size.

def Polynomial.SplittingFieldAux (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) : Type u

Auxiliary construction to a splitting field of a polynomial, which removes n (arbitrarily-chosen) factors. It is the type constructed in SplittingFieldAuxAux.

Equations

• Polynomial.SplittingFieldAux n f = (Polynomial.SplittingFieldAuxAux n f).fst

instance Polynomial.SplittingFieldAux.field (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) : Field (Polynomial.SplittingFieldAux n f)

Equations

• Polynomial.SplittingFieldAux.field n f = (Polynomial.SplittingFieldAuxAux n f).snd.fst

instance Polynomial.instInhabitedSplittingFieldAux (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) : Inhabited (Polynomial.SplittingFieldAux n f)

Equations

• Polynomial.instInhabitedSplittingFieldAux n f = { default := 0 }

instance Polynomial.SplittingFieldAux.algebra (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) : Algebra K (Polynomial.SplittingFieldAux n f)

Equations

• Polynomial.SplittingFieldAux.algebra n f = (Polynomial.SplittingFieldAuxAux n f).snd.snd

theorem Polynomial.SplittingFieldAux.succ {K : Type v} [Field K] (n : ℕ) (f : Polynomial K) : Polynomial.SplittingFieldAux (n + 1) f = Polynomial.SplittingFieldAux n (Polynomial.removeFactor f)

instance Polynomial.SplittingFieldAux.algebra''' {K : Type v} [Field K] {n : ℕ} {f : Polynomial K} : Algebra (AdjoinRoot (Polynomial.factor f)) (Polynomial.SplittingFieldAux n (Polynomial.removeFactor f))

Equations

• Polynomial.SplittingFieldAux.algebra''' = Polynomial.SplittingFieldAux.algebra n (Polynomial.removeFactor f)

instance Polynomial.SplittingFieldAux.algebra' {K : Type v} [Field K] {n : ℕ} {f : Polynomial K} : Algebra (AdjoinRoot (Polynomial.factor f)) (Polynomial.SplittingFieldAux (Nat.succ n) f)

Equations

• Polynomial.SplittingFieldAux.algebra' = Polynomial.SplittingFieldAux.algebra'''

instance Polynomial.SplittingFieldAux.algebra'' {K : Type v} [Field K] {n : ℕ} {f : Polynomial K} : Algebra K (Polynomial.SplittingFieldAux n (Polynomial.removeFactor f))

Equations

• One or more equations did not get rendered due to their size.

instance Polynomial.SplittingFieldAux.scalar_tower' {K : Type v} [Field K] {n : ℕ} {f : Polynomial K} : IsScalarTower K (AdjoinRoot (Polynomial.factor f)) (Polynomial.SplittingFieldAux n (Polynomial.removeFactor f))

Equations

• ⋯ = ⋯

theorem Polynomial.SplittingFieldAux.algebraMap_succ {K : Type v} [Field K] (n : ℕ) (f : Polynomial K) : algebraMap K (Polynomial.SplittingFieldAux (n + 1) f) = RingHom.comp (algebraMap (AdjoinRoot (Polynomial.factor f)) (Polynomial.SplittingFieldAux n (Polynomial.removeFactor f))) (AdjoinRoot.of (Polynomial.factor f))

theorem Polynomial.SplittingFieldAux.splits (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) (_hfn : Polynomial.natDegree f = n) : Polynomial.Splits (algebraMap K (Polynomial.SplittingFieldAux n f)) f

theorem Polynomial.SplittingFieldAux.adjoin_rootSet (n : ℕ) {K : Type u} [Field K] (f : Polynomial K) (_hfn : Polynomial.natDegree f = n) : Algebra.adjoin K (Polynomial.rootSet f (Polynomial.SplittingFieldAux n f)) = ⊤

instance Polynomial.SplittingFieldAux.instIsSplittingFieldSplittingFieldAuxNatDegreeToSemiringToDivisionSemiringToSemifieldFieldAlgebra {K : Type v} [Field K] (f : Polynomial K) : Polynomial.IsSplittingField K (Polynomial.SplittingFieldAux (Polynomial.natDegree f) f) f

Equations

• ⋯ = ⋯

def Polynomial.SplittingField {K : Type v} [Field K] (f : Polynomial K) : Type v

A splitting field of a polynomial.

Equations

• Polynomial.SplittingField f = (MvPolynomial (Polynomial.SplittingFieldAux (Polynomial.natDegree f) f) K ⧸ RingHom.ker (MvPolynomial.aeval id).toRingHom)

instance Polynomial.SplittingField.commRing {K : Type v} [Field K] (f : Polynomial K) : CommRing (Polynomial.SplittingField f)

Equations

• Polynomial.SplittingField.commRing f = Ideal.Quotient.commRing (RingHom.ker (MvPolynomial.aeval id).toRingHom)

instance Polynomial.SplittingField.inhabited {K : Type v} [Field K] (f : Polynomial K) : Inhabited (Polynomial.SplittingField f)

Equations

• Polynomial.SplittingField.inhabited f = { default := 37 }

instance Polynomial.SplittingField.instSMulSplittingField {K : Type v} [Field K] (f : Polynomial K) {S : Type u_1} [DistribSMul S K] [IsScalarTower S K K] : SMul S (Polynomial.SplittingField f)

Equations

• Polynomial.SplittingField.instSMulSplittingField f = Submodule.Quotient.instSMul' (RingHom.ker (MvPolynomial.aeval id).toRingHom)

instance Polynomial.SplittingField.algebra {K : Type v} [Field K] (f : Polynomial K) : Algebra K (Polynomial.SplittingField f)

Equations

• Polynomial.SplittingField.algebra f = Ideal.Quotient.algebra K

instance Polynomial.SplittingField.algebra' {K : Type v} [Field K] (f : Polynomial K) {R : Type u_1} [CommSemiring R] [Algebra R K] : Algebra R (Polynomial.SplittingField f)

Equations

• Polynomial.SplittingField.algebra' f = Ideal.Quotient.algebra R

instance Polynomial.SplittingField.isScalarTower {K : Type v} [Field K] (f : Polynomial K) {R : Type u_1} [CommSemiring R] [Algebra R K] : IsScalarTower R K (Polynomial.SplittingField f)

Equations

• ⋯ = ⋯

def Polynomial.SplittingField.algEquivSplittingFieldAux {K : Type v} [Field K] (f : Polynomial K) : Polynomial.SplittingField f ≃ₐ[K] Polynomial.SplittingFieldAux (Polynomial.natDegree f) f

The algebra equivalence with SplittingFieldAux, which we will use to construct the field structure.

Equations

• Polynomial.SplittingField.algEquivSplittingFieldAux f = Ideal.quotientKerAlgEquivOfSurjective ⋯

instance Polynomial.SplittingField.instFieldSplittingField {K : Type v} [Field K] (f : Polynomial K) : Field (Polynomial.SplittingField f)

Equations

• One or more equations did not get rendered due to their size.

instance Polynomial.SplittingField.instCharZero {K : Type v} [Field K] (f : Polynomial K) [CharZero K] : CharZero (Polynomial.SplittingField f)

Equations

• ⋯ = ⋯

instance Polynomial.SplittingField.instCharP {K : Type v} [Field K] (f : Polynomial K) (p : ℕ) [CharP K p] : CharP (Polynomial.SplittingField f) p

Equations

• ⋯ = ⋯

instance Polynomial.SplittingField.instExpChar {K : Type v} [Field K] (f : Polynomial K) (p : ℕ) [ExpChar K p] : ExpChar (Polynomial.SplittingField f) p

Equations

• ⋯ = ⋯

instance Polynomial.IsSplittingField.splittingField {K : Type v} [Field K] (f : Polynomial K) : Polynomial.IsSplittingField K (Polynomial.SplittingField f) f

Equations

• ⋯ = ⋯

theorem Polynomial.SplittingField.splits {K : Type v} [Field K] (f : Polynomial K) : Polynomial.Splits (algebraMap K (Polynomial.SplittingField f)) f

def Polynomial.SplittingField.lift {K : Type v} {L : Type w} [Field K] [Field L] (f : Polynomial K) [Algebra K L] (hb : Polynomial.Splits (algebraMap K L) f) : Polynomial.SplittingField f →ₐ[K] L

Embeds the splitting field into any other field that splits the polynomial.

Equations

• Polynomial.SplittingField.lift f hb = Polynomial.IsSplittingField.lift (Polynomial.SplittingField f) f hb

theorem Polynomial.SplittingField.adjoin_rootSet {K : Type v} [Field K] (f : Polynomial K) : Algebra.adjoin K (Polynomial.rootSet f (Polynomial.SplittingField f)) = ⊤

instance Polynomial.IsSplittingField.instFiniteDimensionalSplittingFieldToDivisionRingToAddCommGroupToRingInstFieldSplittingFieldToModuleToCommSemiringToSemifieldToSemiringToDivisionSemiringAlgebra'Id {K : Type v} [Field K] (f : Polynomial K) : FiniteDimensional K (Polynomial.SplittingField f)

Equations

• ⋯ = ⋯

instance Polynomial.IsSplittingField.instFintypeSplittingField {K : Type v} [Field K] [Fintype K] (f : Polynomial K) : Fintype (Polynomial.SplittingField f)

Equations

• Polynomial.IsSplittingField.instFintypeSplittingField f = FiniteDimensional.fintypeOfFintype K (Polynomial.SplittingField f)

instance Polynomial.IsSplittingField.instNoZeroSMulDivisorsSplittingFieldToZeroToCommMonoidWithZeroToCommGroupWithZeroToSemifieldInstFieldSplittingFieldInstSMulSplittingFieldToDistribSMulToNonUnitalNonAssocSemiringToNonUnitalNonAssocCommSemiringToNonUnitalNonAssocCommRingToNonUnitalCommRingToCommRingToEuclideanDomainRightToCommSemiringToSemiringId {K : Type v} [Field K] (f : Polynomial K) : NoZeroSMulDivisors K (Polynomial.SplittingField f)

Equations

• ⋯ = ⋯

def Polynomial.IsSplittingField.algEquiv {K : Type v} (L : Type w) [Field K] [Field L] [Algebra K L] (f : Polynomial K) [h : Polynomial.IsSplittingField K L f] : L ≃ₐ[K] Polynomial.SplittingField f

Any splitting field is isomorphic to SplittingFieldAux f.

Equations

• Polynomial.IsSplittingField.algEquiv L f = AlgEquiv.ofBijective (Polynomial.IsSplittingField.lift L f ⋯) ⋯