The normalized residual factor input from the irreducible-polynomial coefficient bounds contradicts irreducibility as soon as the valuation ring satisfies the construction's factorization form of Hensel's lemma.
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open scoped Polynomial
namespace AlgebraicNumberTheory
namespace Valuationstheorem normFormula_hensel_reduction_factor_input_not_irreducible_of_henselFactorization
{K : Type*} [Field K]
(v : AbsoluteValue K ℝ) (hnonarch : LubinTate.Valuations.NonarchimedeanAbsoluteValue v)
(hv : ValuationTheory.DiscreteValuationField.HenselFactorizationProperty
(absoluteValueValuationSubring v hnonarch))
(F : (absoluteValueValuationSubring v hnonarch)[X])
{r : ℕ}
(hrpos : 0 < r) (hrlt : r < F.natDegree)
(hfactor :
F.map (IsLocalRing.residue
(absoluteValueValuationSubring v hnonarch)) =
Polynomial.X ^ r *
(F.map (IsLocalRing.residue
(absoluteValueValuationSubring v hnonarch)) /ₘ
Polynomial.X ^ r))
(hnatDegree : (Polynomial.X ^ r :
(IsLocalRing.ResidueField
(absoluteValueValuationSubring v hnonarch))[X]).natDegree =
r)
(hcoprime : IsCoprime (Polynomial.X ^ r)
(F.map (IsLocalRing.residue
(absoluteValueValuationSubring v hnonarch)) /ₘ
Polynomial.X ^ r))
(hQ0 : ((F.map (IsLocalRing.residue
(absoluteValueValuationSubring v hnonarch)) /ₘ
Polynomial.X ^ r).coeff 0) ≠ 0)
{f : K[X]}
(hFmap : F.map (algebraMap
(absoluteValueValuationSubring v hnonarch) K) = f)
(hFdegree : F.natDegree = f.natDegree) :
¬ Irreducible f