FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraPrimePower.Basic.Augmentation
Fox Differential / Completed / Coefficient Rings / Prime-Power Completed Group Algebra / Basic / Augmentation.
import
Imported by
- FoxDifferential.Completed
- FoxDifferential.Completed.CoefficientRings
- FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraPrimePower
- FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraPrimePower.Basic
- FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraPrimePower.InClass.System.Basic
- FoxDifferential.Completed.CoefficientRings.CompletedGroupAlgebraPrimePower.System.Basic
def modNCompletedGroupAlgebraCoeffMap (hnm : n ∣ m) :
ModNCompletedGroupAlgebra m G → ModNCompletedGroupAlgebra n G := by
intro x
refine ⟨fun U =>
modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm (x.1 U), ?_⟩
intro U V hUV
calc
modNCompletedGroupAlgebraTransition n G hUV
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) V hnm (x.1 V))
=
modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm
(modNCompletedGroupAlgebraTransition m G hUV (x.1 V)) := by
symm
exact congrFun
(congrArg DFunLike.coe
(modNCompletedGroupAlgebraStageCoeffMap_compatible
(n := n) (m := m) (G := G) hUV hnm)) (x.1 V)
_ =
modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm (x.1 U) := by
exact congrArg
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm)
(x.2 U V hUV)The modulus-direction map on residue-coefficient completed group algebras.
theorem modNCompletedGroupAlgebraProjection_coeffMap
(hnm : n ∣ m) (U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G)
(x : ModNCompletedGroupAlgebra m G) :
modNCompletedGroupAlgebraProjection n G U
(modNCompletedGroupAlgebraCoeffMap (n := n) (m := m) (G := G) hnm x) =
modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm
(modNCompletedGroupAlgebraProjection m G U x)The mod-\(n\) completed group-algebra projection commutes with the coefficient map.
Show proof
by
unfold modNCompletedGroupAlgebraProjection modNCompletedGroupAlgebraCoeffMap
rflProof. Unfold the prime-power completed group algebra as the inverse limit over prime-power coefficient stages and finite group quotients. Projections, transition maps, augmentation, multiplication, scalar actions, and coefficient reduction are computed coordinatewise at finite group-algebra stages. The formulas are checked on singleton group-like basis elements and then extended by finite support and linearity; inverse-limit extensionality and transition compatibility assemble the completed statements.
□theorem modNCompletedGroupAlgebraStageAugmentation_comp_coeffMap
(U : _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex G) (hnm : n ∣ m) :
(modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm) =
(modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentation m G U)Finite-stage augmentation commutes with coefficient reduction.
Show proof
by
apply RingHom.ext
intro x
refine MonoidAlgebra.induction_on
(p := fun x =>
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm)) x =
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentation m G U)) x)
x ?_ ?_ ?_
· intro q
rw [RingHom.comp_apply, RingHom.comp_apply, modNCompletedGroupAlgebraStageCoeffMap_of,
modNCompletedGroupAlgebraStageAugmentation_of,
modNCompletedGroupAlgebraStageAugmentation_of]
simpa [modNCompletedCoeffMap] using
(map_one (modNCompletedCoeffMap (n := n) (m := m) hnm)).symm
· intro x y hx hy
simp only [RingHom.map_add, hx, RingHom.coe_comp, Function.comp_apply, hy]
· intro a x hx
letI : Algebra (ModNCompletedCoeff m) (ModNCompletedCoeff n) :=
ZMod.algebra' (R := ModNCompletedCoeff n) (m := n) (n := m) hnm
rw [Algebra.smul_def, RingHom.map_mul, RingHom.map_mul, hx]
have hcoeff :
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm))
(algebraMap (ModNCompletedCoeff m) (ModNCompletedGroupAlgebraStage m G U) a) =
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentation m G U))
(algebraMap (ModNCompletedCoeff m) (ModNCompletedGroupAlgebraStage m G U) a) := by
have hleft :
((modNCompletedGroupAlgebraStageAugmentation n G U).comp
(modNCompletedGroupAlgebraStageCoeffMap (n := n) (m := m) (G := G) U hnm))
(algebraMap (ModNCompletedCoeff m) (ModNCompletedGroupAlgebraStage m G U) a) =
algebraMap (ModNCompletedCoeff m) (ModNCompletedCoeff n) a := by
simp only [modNCompletedGroupAlgebraStageAugmentation, modNCompletedGroupAlgebraStageCoeffMap,
modNCompletedGroupRingCoeffMap, AlgHom.toRingHom_eq_coe, MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self,
RingHom.coe_id, Function.comp_apply, id_eq, RingHom.comp_apply, RingHom.coe_coe, MonoidAlgebra.lift_single,
MonoidAlgebra.of_apply, Algebra.smul_def, MonoidAlgebra.single_mul_single, mul_one,
MonoidHom.one_apply]
have hright :
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentation m G U))
(algebraMap (ModNCompletedCoeff m) (ModNCompletedGroupAlgebraStage m G U) a) =
algebraMap (ModNCompletedCoeff m) (ModNCompletedCoeff n) a := by
simp only [modNCompletedGroupAlgebraStageAugmentation, MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self,
RingHom.coe_id, Function.comp_apply, id_eq, RingHom.comp_apply, RingHom.coe_coe, MonoidAlgebra.lift_single,
MonoidHom.one_apply, smul_eq_mul, mul_one]
rfl
exact hleft.trans hright.symm
rw [hcoeff]Proof. Unfold the prime-power completed group algebra as the inverse limit over prime-power coefficient stages and finite group quotients. Projections, transition maps, augmentation, multiplication, scalar actions, and coefficient reduction are computed coordinatewise at finite group-algebra stages. The formulas are checked on singleton group-like basis elements and then extended by finite support and linearity; inverse-limit extensionality and transition compatibility assemble the completed statements.
□theorem modNCompletedGroupAlgebraStageAugmentationInClass_comp_coeffMap
(C : ProCGroups.FiniteGroupClass.{u}) (U : CompletedGroupAlgebraIndexInClass G C) (hnm : n ∣ m) :
(modNCompletedGroupAlgebraStageAugmentationInClass n G C U).comp
(modNCompletedGroupAlgebraStageCoeffMapInClass
(n := n) (m := m) (G := G) C U hnm) =
(modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentationInClass m G C U)Class-indexed finite-stage augmentation commutes with coefficient reduction.
Show proof
by
apply RingHom.ext
intro x
refine MonoidAlgebra.induction_on
(p := fun x =>
((modNCompletedGroupAlgebraStageAugmentationInClass n G C U).comp
(modNCompletedGroupAlgebraStageCoeffMapInClass
(n := n) (m := m) (G := G) C U hnm)) x =
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentationInClass m G C U)) x)
x ?_ ?_ ?_
· intro q
rw [RingHom.comp_apply, RingHom.comp_apply, modNCompletedGroupAlgebraStageCoeffMapInClass_of,
modNCompletedGroupAlgebraStageAugmentationInClass_of,
modNCompletedGroupAlgebraStageAugmentationInClass_of]
simpa [modNCompletedCoeffMap] using
(map_one (modNCompletedCoeffMap (n := n) (m := m) hnm)).symm
· intro x y hx hy
simp only [RingHom.map_add, hx, RingHom.coe_comp, Function.comp_apply, hy]
· intro a x hx
letI : Algebra (ModNCompletedCoeff m) (ModNCompletedCoeff n) :=
ZMod.algebra' (R := ModNCompletedCoeff n) (m := n) (n := m) hnm
rw [Algebra.smul_def, RingHom.map_mul, RingHom.map_mul, hx]
have hcoeff :
((modNCompletedGroupAlgebraStageAugmentationInClass n G C U).comp
(modNCompletedGroupAlgebraStageCoeffMapInClass
(n := n) (m := m) (G := G) C U hnm))
(algebraMap (ModNCompletedCoeff m)
(ModNCompletedGroupAlgebraStageInClass m G C U) a) =
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentationInClass m G C U))
(algebraMap (ModNCompletedCoeff m)
(ModNCompletedGroupAlgebraStageInClass m G C U) a) := by
have hleft :
((modNCompletedGroupAlgebraStageAugmentationInClass n G C U).comp
(modNCompletedGroupAlgebraStageCoeffMapInClass
(n := n) (m := m) (G := G) C U hnm))
(algebraMap (ModNCompletedCoeff m)
(ModNCompletedGroupAlgebraStageInClass m G C U) a) =
algebraMap (ModNCompletedCoeff m) (ModNCompletedCoeff n) a := by
simp only [modNCompletedGroupAlgebraStageAugmentationInClass, modNCompletedGroupAlgebraStageCoeffMapInClass,
modNCompletedGroupRingCoeffMap, AlgHom.toRingHom_eq_coe, MonoidAlgebra.coe_algebraMap, Algebra.algebraMap_self,
RingHom.coe_id, Function.comp_apply, id_eq, RingHom.comp_apply, RingHom.coe_coe, MonoidAlgebra.lift_single,
MonoidAlgebra.of_apply, Algebra.smul_def, MonoidAlgebra.single_mul_single, mul_one,
MonoidHom.one_apply]
have hright :
((modNCompletedCoeffMap (n := n) (m := m) hnm).comp
(modNCompletedGroupAlgebraStageAugmentationInClass m G C U))
(algebraMap (ModNCompletedCoeff m)
(ModNCompletedGroupAlgebraStageInClass m G C U) a) =
algebraMap (ModNCompletedCoeff m) (ModNCompletedCoeff n) a := by
simp only [modNCompletedGroupAlgebraStageAugmentationInClass, MonoidAlgebra.coe_algebraMap,
Algebra.algebraMap_self, RingHom.coe_id, Function.comp_apply, id_eq, RingHom.comp_apply, RingHom.coe_coe,
MonoidAlgebra.lift_single, MonoidHom.one_apply, smul_eq_mul, mul_one]
rfl
exact hleft.trans hright.symm
rw [hcoeff]Proof. Unfold the prime-power completed group algebra as the inverse limit over prime-power coefficient stages and finite group quotients. Projections, transition maps, augmentation, multiplication, scalar actions, and coefficient reduction are computed coordinatewise at finite group-algebra stages. The formulas are checked on singleton group-like basis elements and then extended by finite support and linearity; inverse-limit extensionality and transition compatibility assemble the completed statements.
□theorem modNCompletedGroupAlgebraAugmentation_coeffMap
(hnm : n ∣ m) (x : ModNCompletedGroupAlgebra m G) :
modNCompletedGroupAlgebraAugmentation n G
(modNCompletedGroupAlgebraCoeffMap (n := n) (m := m) (G := G) hnm x) =
modNCompletedCoeffMap (n := n) (m := m) hnm
(modNCompletedGroupAlgebraAugmentation m G x)Finite-stage augmentation commutes with coefficient reduction.
Show proof
by
unfold modNCompletedGroupAlgebraAugmentation modNCompletedGroupAlgebraAugmentationAt
rw [modNCompletedGroupAlgebraProjection_coeffMap]
exact congrFun
(congrArg DFunLike.coe
(modNCompletedGroupAlgebraStageAugmentation_comp_coeffMap
(n := n) (m := m) (G := G) (_root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex G) hnm))
(modNCompletedGroupAlgebraProjection m G (_root_.CompletedGroupAlgebra.terminalCompletedGroupAlgebraIndex G) x)Proof. Unfold the prime-power completed group algebra as the inverse limit over prime-power coefficient stages and finite group quotients. Projections, transition maps, augmentation, multiplication, scalar actions, and coefficient reduction are computed coordinatewise at finite group-algebra stages. The formulas are checked on singleton group-like basis elements and then extended by finite support and linearity; inverse-limit extensionality and transition compatibility assemble the completed statements.
□def modNCompletedGroupAlgebraAugmentationKernelCoeffMap
(hnm : n ∣ m) :
ModNCompletedGroupAlgebraAugmentationKernel m G →
ModNCompletedGroupAlgebraAugmentationKernel n G := by
intro x
refine ⟨modNCompletedGroupAlgebraCoeffMap (n := n) (m := m) (G := G) hnm x.1, ?_⟩
rw [mem_modNCompletedGroupAlgebraAugmentationKernel_iff,
modNCompletedGroupAlgebraAugmentation_coeffMap]
simpa [map_zero, modNCompletedCoeffMap] using
congrArg (modNCompletedCoeffMap (n := n) (m := m) hnm) x.2Coefficient change is performed stagewise: supports are unchanged and coefficients are transported by the given ring homomorphism.
theorem primePow_dvd_primePow
(ℓ : ℕ) {a b : ℕ} (hab : a ≤ b) :
ℓ ^ a ∣ ℓ ^ bThe standard divisibility relation between prime powers with the same base.
Show proof
by
exact Nat.pow_dvd_pow ℓ habProof. Unfold the prime-power completed group algebra as the inverse limit over prime-power coefficient stages and finite group quotients. Projections, transition maps, augmentation, multiplication, scalar actions, and coefficient reduction are computed coordinatewise at finite group-algebra stages. The formulas are checked on singleton group-like basis elements and then extended by finite support and linearity; inverse-limit extensionality and transition compatibility assemble the completed statements.
□def primePowCompletedGroupAlgebraCoeffMap
(ℓ : ℕ) {a b : ℕ}
(hab : a ≤ b) :
ModNCompletedGroupAlgebra (ℓ ^ b) G → ModNCompletedGroupAlgebra (ℓ ^ a) G :=
modNCompletedGroupAlgebraCoeffMap (n := ℓ ^ a) (m := ℓ ^ b) (G := G)
(primePow_dvd_primePow (ℓ := ℓ) hab)The modulus-direction completed map specialized to prime-power stages.
def primePowCompletedGroupAlgebraAugmentationKernelCoeffMap
(ℓ : ℕ) {a b : ℕ}
(hab : a ≤ b) :
ModNCompletedGroupAlgebraAugmentationKernel (ℓ ^ b) G →
ModNCompletedGroupAlgebraAugmentationKernel (ℓ ^ a) G :=
modNCompletedGroupAlgebraAugmentationKernelCoeffMap
(n := ℓ ^ a) (m := ℓ ^ b) (G := G)
(primePow_dvd_primePow (ℓ := ℓ) hab)The coefficient map between prime-power stages restricts to a map on augmentation kernels.
abbrev PrimePowerCompletedGroupAlgebraIndex :=
ℕ × _root_.CompletedGroupAlgebra.CompletedGroupAlgebraIndex GThe two-parameter index \((a,U)\) for the prime-power residue-coefficient stages.
abbrev PrimePowerCompletedGroupAlgebraIndexInClass (C : ProCGroups.FiniteGroupClass.{u}) :=
ℕ × CompletedGroupAlgebraIndexInClass G CThe two-parameter index \((a,U)\) for prime-power stages over a quotient class \(C\).