The decomposition of the completion of a finite integral extension as a product of prime-power completions, as an equivalence of B-algebras.
Source context 7 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups
universe uA uB
variable {A : Type uA} [CommRing A] [IsDomain A]
variable {B : Type uB} [CommRing B] [IsDedekindDomain B]
variable [Algebra A B] [Algebra.IsIntegral A B]
variable [Module.IsTorsionFree A B] [Module.Finite A B]def adicCompletionIntegralExtensionAlgEquivPi
(p : Ideal A) [p.IsMaximal] (hp : p ≠ ⊥) :
AdicCompletion (p.map (algebraMap A B)) B ≃ₐ[B]
∀ Q : p.primesOver B,
AdicCompletion (Q.1 ^ Q.1.ramificationIdx A) B where
toRingEquiv := adicCompletionIntegralExtensionEquivPi p hp
commutes' x := by
apply funext
intro Q
simp only [Pi.algebraMap_apply, AdicCompletion.algebraMap_apply,
Algebra.algebraMap_self, RingHom.id_apply]
change adicCompletionIntegralExtensionEquivPi p hp
(AdicCompletion.of (p.map (algebraMap A B)) B x) Q =
AdicCompletion.of (Q.1 ^ Q.1.ramificationIdx A) B x
exact adicCompletionIntegralExtensionEquivPi_of p hp x Q