EtaleFundamentalGroups.Kummer.latticeMonoidAlgebra_isIntegralClosure_in_fractionRing
The target of a finite-index lattice monoid-algebra cover is the normalization of the source in the target fraction field.
Source context 3 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups.Kummer
universe uLean source · full declaration
theorem latticeMonoidAlgebra_isIntegralClosure_in_fractionRing
{R L : Type u} [CommRing R] [IsDomain R] [IsIntegrallyClosed R]
[AddCommGroup L] [Module.Free ℤ L] [Module.Finite ℤ L]
(H : Submodule ℤ L) [Finite (L ⧸ H)] :
let A := AddMonoidAlgebra R H
let B := AddMonoidAlgebra R L
let f := AddMonoidAlgebra.mapDomainRingHom R
H.subtype.toAddMonoidHom
letI : Algebra A B := f.toAlgebra
IsIntegralClosure B A (FractionRing B) := by
dsimp only
let f := AddMonoidAlgebra.mapDomainRingHom R
H.subtype.toAddMonoidHom
let : Algebra (AddMonoidAlgebra R H) (AddMonoidAlgebra R L) :=
f.toAlgebra
have hIntegral := latticeMonoidAlgebraMap_isIntegral (R := R) H
let : Algebra.IsIntegral (AddMonoidAlgebra R H)
(AddMonoidAlgebra R L) :=
algebraMap_isIntegral_iff.mp (by
simpa only [RingHom.algebraMap_toAlgebra, f] using hIntegral)
let : IsIntegrallyClosed (AddMonoidAlgebra R L) :=
latticeMonoidAlgebra_isIntegrallyClosed
infer_instance