Source context 9 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups
universe uA uK uL
variable {A : Type uA} {K : Type uK} {L : Type uL}
variable [CommRing A] [IsDomain A]
variable [Field K] [Field L]
variable [Algebra A K] [IsFractionRing A K]
variable [Algebra K L] [Algebra A L] [IsScalarTower A K L]
omit [IsDomain A] [Algebra A L] [IsScalarTower A K L] intheorem localizationAtPrime_smulCommClass
(P : Ideal A) [P.IsPrime] :
letI := localizationAtPrimeToFractionFieldAlgebra (K := K) P
letI := localizationAtPrimeToExtensionAlgebra (K := K) (L := L) P
letI := localizationAtPrimeToFractionFieldToExtension_isScalarTower
(K := K) (L := L) P
SMulCommClass Gal(L/K) (Localization.AtPrime P) L := by
let V := Localization.AtPrime P
let : Algebra V K :=
localizationAtPrimeToFractionFieldAlgebra (K := K) P
let : Algebra V L :=
localizationAtPrimeToExtensionAlgebra (K := K) (L := L) P
let : IsScalarTower V K L :=
localizationAtPrimeToFractionFieldToExtension_isScalarTower
(K := K) (L := L) P
refine ⟨fun σ v x ↦ ?_⟩
change σ (algebraMap V L v * x) = algebraMap V L v * σ x
rw [map_mul, IsScalarTower.algebraMap_apply V K L, AlgEquiv.commutes]