A finite-dimensional function-field extension induced by a dense morphism remains finite-dimensional after identifying both function fields with generic-point residue fields.
Source context 7 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open CategoryTheory TopologicalSpace
open CategoryTheory.PreGaloisCategory
open AlgebraicGeometry
namespace AlgebraicGeometry.Scheme.Hom
universe u
variable {S T : Scheme.{u}}theorem finiteDimensional_genericResidueField_of_functionField
[IsIntegral S] [IsIntegral T]
(q : T ⟶ S) (hq : DenseRange q) :
letI : Algebra S.functionField T.functionField :=
q.functionFieldAlgebraOfDenseRange hq
FiniteDimensional S.functionField T.functionField →
letI : Algebra (S.residueField (q (genericPoint T)))
(T.residueField (genericPoint T)) :=
(q.residueFieldMap (genericPoint T)).hom.toAlgebra
FiniteDimensional (S.residueField (q (genericPoint T)))
(T.residueField (genericPoint T)) := by
let : Algebra S.functionField T.functionField :=
q.functionFieldAlgebraOfDenseRange hq
intro hfinite
let : FiniteDimensional S.functionField T.functionField := hfinite
let : Algebra (S.residueField (q (genericPoint T)))
(T.residueField (genericPoint T)) :=
(q.residueFieldMap (genericPoint T)).hom.toAlgebra
let hη : genericPoint S = q (genericPoint T) :=
(q.map_genericPoint_of_denseRange hq).symm
let eS : S.functionField ≃+* S.residueField (q (genericPoint T)) :=
(Scheme.functionFieldResidueFieldRingEquiv S).trans
(S.residueFieldCongr hη).commRingCatIsoToRingEquiv
let eT : T.functionField ≃+* T.residueField (genericPoint T) :=
Scheme.functionFieldResidueFieldRingEquiv T
apply Module.Finite.of_equiv_equiv eS eT
change RingHom.comp (q.residueFieldMap (genericPoint T)).hom eS.toRingHom =
RingHom.comp eT.toRingHom (q.functionFieldMap hq)
have hnat := q.functionFieldResidueFieldRingEquiv_naturality hq
have hnat' := congrArg CommRingCat.Hom.hom hnat
simpa [eS, eT, hη, Category.assoc, RingHom.comp_assoc] using hnat'