FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraModN.Augmentation
This module develops the maps induced by continuous homomorphisms. It organizes the relevant quotient pullbacks and finite-stage maps, then proves the compatibility statements needed for the completed construction.
def modNCompletedGroupAlgebraStageAugmentation (U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) :
ModNCompletedGroupAlgebraStage n G U →+* ModNCompletedCoeff n :=
MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n)
(_root_.CompletedGroupAlgebra.CompletedGroupAlgebraQuotient G U)
(1 : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraQuotient G U →* ModNCompletedCoeff n)The augmentation on one residue-coefficient finite stage.
theorem modNCompletedGroupAlgebraStageAugmentation_of
(U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) (q : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraQuotient G U) :
modNCompletedGroupAlgebraStageAugmentation n G U
(MonoidAlgebra.of (ModNCompletedCoeff n) _ q) = 1The finite-stage \(n\)-modular augmentation sends every group-like basis element to \(1\).
Show proof
by
classical
simp only [modNCompletedGroupAlgebraStageAugmentation, MonoidAlgebra.of, MonoidAlgebra.single,
MonoidHom.coe_mk, OneHom.coe_mk, RingHom.coe_coe, MonoidAlgebra.lift_single, MonoidHom.one_apply, smul_eq_mul,
mul_one]Proof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□theorem modNCompletedGroupAlgebraStageAugmentation_compatible
{U V : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G} (hUV : U ≤ V) :
(modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraTransition n G hUV) =
modNCompletedGroupAlgebraStageAugmentation n G VFinite-stage \(n\)-modular augmentations are compatible with group-quotient transition maps.
Show proof
by
apply RingHom.ext
intro x
refine MonoidAlgebra.induction_on
(p := fun x =>
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraTransition n G hUV)) x =
modNCompletedGroupAlgebraStageAugmentation n G V x)
x ?_ ?_ ?_
· intro q
rw [RingHom.comp_apply, modNCompletedGroupAlgebraTransition_of]
simp only [modNCompletedGroupAlgebraStageAugmentation, MonoidAlgebra.single, RingHom.coe_coe,
MonoidAlgebra.lift_single, MonoidHom.one_apply, smul_eq_mul, mul_one, MonoidAlgebra.of, MonoidHom.coe_mk,
OneHom.coe_mk]
· intro x y hx hy
simp only [RingHom.map_add, hx, hy]
· intro a x hx
rw [Algebra.smul_def, RingHom.map_mul, RingHom.map_mul, hx]
have hcoeff :
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraTransition n G hUV))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupAlgebraStage n G V) a) =
(modNCompletedGroupAlgebraStageAugmentation n G V)
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupAlgebraStage n G V) a) := by
simp only [modNCompletedGroupAlgebraStageAugmentation, modNCompletedGroupAlgebraTransition,
MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self, RingHom.coe_id, Function.comp_apply, id_eq,
RingHom.comp_apply, MonoidAlgebra.mapDomainRingHom_apply, Finsupp.mapDomain_single, map_one, RingHom.coe_coe,
MonoidAlgebra.lift_single, smul_eq_mul, mul_one]
rw [hcoeff]Proof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□theorem modNCompletedGroupAlgebraStageAugmentation_comp_stageMap
(U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) :
(modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U) =
MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n)Composing the finite-stage \(n\)-modular augmentation with the dense stage map gives the ordinary \(n\)-modular group-algebra augmentation.
Show proof
by
apply RingHom.ext
intro x
refine MonoidAlgebra.induction_on
(p := fun x =>
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U)) x =
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n)) x)
x ?_ ?_ ?_
· intro g
rw [RingHom.comp_apply, modNCompletedGroupAlgebraStageMap_of]
simp only [modNCompletedGroupAlgebraStageAugmentation, MonoidAlgebra.of_apply,
RingHom.coe_coe, MonoidAlgebra.lift_single, MonoidHom.one_apply, smul_eq_mul,
mul_one]
· intro x y hx hy
simp only [hx, hy, map_add]
· intro a x hx
have hcoeff :
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) = a := by
simp only [modNCompletedGroupAlgebraStageAugmentation, modNCompletedGroupAlgebraStageMap,
MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self, RingHom.coe_id, Function.comp_apply, id_eq,
RingHom.comp_apply, MonoidAlgebra.mapDomainRingHom_apply, Finsupp.mapDomain_single, map_one, RingHom.coe_coe,
MonoidAlgebra.lift_single, smul_eq_mul, mul_one]
have hcoeff' :
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) =
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) := by
rw [hcoeff]
simp only [MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self, RingHom.coe_id, Function.comp_apply, id_eq,
MonoidAlgebra.lift_single, MonoidHom.one_apply, smul_eq_mul, mul_one]
rw [Algebra.smul_def]
calc
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U))
((algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) * x)
=
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) *
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U)) x := by
rw [RingHom.map_mul]
_ =
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageMap n G U))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) *
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n)) x := by
rw [hx]
_ =
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) *
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n)) x := by
rw [hcoeff']
_ =
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n))
((algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) * x) := by
exact
(map_mul
(MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n))
(algebraMap (ModNCompletedCoeff n) (ModNCompletedGroupRing n G) a) x).symmProof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□def modNCompletedGroupAlgebraAugmentationAt (U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) :
ModNCompletedGroupAlgebra n G → ModNCompletedCoeff n :=
fun x => modNCompletedGroupAlgebraStageAugmentation n G U
(modNCompletedGroupAlgebraProjection n G U x)The augmentation value of a residue-coefficient completed point, read at one finite stage.
theorem modNCompletedGroupAlgebraAugmentationAt_eq_of_le
{U V : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G} (hUV : U ≤ V) (x : ModNCompletedGroupAlgebra n G) :
modNCompletedGroupAlgebraAugmentationAt n G U x =
modNCompletedGroupAlgebraAugmentationAt n G V xThe finite coordinate used to compute the \(n\)-modular completed augmentation is independent of passing to a finer quotient stage.
Show proof
by
unfold modNCompletedGroupAlgebraAugmentationAt
have hcomp := congrFun
(congrArg DFunLike.coe
(modNCompletedGroupAlgebraStageAugmentation_compatible
(n := n) (G := G) (U := U) (V := V) hUV))
(modNCompletedGroupAlgebraProjection n G V x)
calc
modNCompletedGroupAlgebraStageAugmentation n G U
(modNCompletedGroupAlgebraProjection n G U x)
=
modNCompletedGroupAlgebraStageAugmentation n G U
(modNCompletedGroupAlgebraTransition n G hUV
(modNCompletedGroupAlgebraProjection n G V x)) := by
simpa [modNCompletedGroupAlgebraProjection] using
congrArg (modNCompletedGroupAlgebraStageAugmentation n G U)
((modNCompletedGroupAlgebraSystem n G).projection_compatible x U V hUV).symm
_ = modNCompletedGroupAlgebraStageAugmentation n G V
(modNCompletedGroupAlgebraProjection n G V x) := by
exact hcompProof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□def modNCompletedGroupAlgebraAugmentation :
ModNCompletedGroupAlgebra n G → ModNCompletedCoeff n :=
modNCompletedGroupAlgebraAugmentationAt n G (_root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex G)The canonical augmentation on the residue-coefficient completed group algebra.
theorem modNCompletedGroupAlgebraAugmentation_eq_at
(U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) (x : ModNCompletedGroupAlgebra n G) :
modNCompletedGroupAlgebraAugmentation n G x =
modNCompletedGroupAlgebraAugmentationAt n G U xThe \(n\)-modular completed augmentation is computed at any finite quotient stage.
Show proof
by
exact modNCompletedGroupAlgebraAugmentationAt_eq_of_le
(n := n) (G := G)
(U := _root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex G) (V := U)
(_root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex_le (G := G) U) xProof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□theorem modNCompletedGroupAlgebraAugmentation_toCompleted
(x : ModNCompletedGroupRing n G) :
modNCompletedGroupAlgebraAugmentation n G (toModNCompletedGroupAlgebra n G x) =
MonoidAlgebra.lift (ModNCompletedCoeff n) (ModNCompletedCoeff n) G
(1 : G →* ModNCompletedCoeff n) xThe \(n\)-modular completed augmentation extends the abstract \(n\)-modular group-algebra augmentation through the dense map.
Show proof
by
unfold modNCompletedGroupAlgebraAugmentation modNCompletedGroupAlgebraAugmentationAt
rw [modNCompletedGroupAlgebraProjection_toCompleted]
exact congrFun
(congrArg DFunLike.coe
(modNCompletedGroupAlgebraStageAugmentation_comp_stageMap
(n := n) (G := G) (_root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex G)))
xProof. Unfold the mod-\(n\) completed group algebra as the inverse limit over finite group quotients with fixed coefficient ring \(\mathbb{Z}/n\mathbb{Z}\). Projections, transitions, augmentation, coefficient reduction, and algebra operations are computed coordinatewise at finite group-algebra stages. Compatibility under quotient refinement and inverse-limit extensionality assemble the completed statements.
□