ProCGroups.FoxDifferential.Completed.CoefficientRings.AugmentationIdealPrimePower.Augmentation
The principal declarations in this module are:
primePowerCompletedGroupAlgebraAugmentationAddHomThe canonical prime-power augmentation as an additive homomorphism. -primePowerCompletedGroupAlgebraAugmentationRingHomThe prime-power completed augmentation bundled as a ring homomorphism. -primePowerCompletedGroupAlgebraAugmentation_comp_coeffToGroupAlgebraThe prime-power completed augmentation composed with the coefficient-to-group-algebra map is the identity. -mem_primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal_iffA prime-power completed group-algebra element lies in the augmentation ideal iff its prime-power augmentation is zero.
omit [Fact (0 < ℓ)] in
@[simp]
theorem primePowerCompletedGroupAlgebraAugmentation_comp_coeffToGroupAlgebra
(x : PrimePowerCompletedCoeff ℓ G) :
primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G)
(primePowerCompletedCoeffToGroupAlgebra (ℓ := ℓ) (G := G) x) = xThe prime-power completed augmentation composed with the coefficient-to-group-algebra map is the identity.
Show Lean proof
by
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i
(primePowerCompletedCoeffToGroupAlgebra (ℓ := ℓ) (G := G) x)) = x.1 i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(algebraMap (ZMod (ℓ ^ i.1)) (PrimePowerCompletedGroupAlgebraStage ℓ G i) (x.1 i)) = x.1 i
exact primePowerCompletedGroupAlgebraStageAugmentation_algebraMap (ℓ := ℓ) (G := G) i (x.1 i)
def primePowerCompletedGroupAlgebraAugmentationAddHom :
PrimePowerCompletedGroupAlgebra ℓ G →+ PrimePowerCompletedCoeff ℓ G where
toFun := primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G)
map_zero' := by
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i 0) = 0
rw [primePowerCompletedGroupAlgebraProjection_zero]
exact map_zero
(modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2)
map_add' x y := by
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i (x + y)) =
modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i x) +
modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i y)
rw [primePowerCompletedGroupAlgebraProjection_add]
exact map_add
(modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2)
_ _The canonical prime-power augmentation as an additive homomorphism.
def primePowerCompletedGroupAlgebraAugmentationRingHom :
PrimePowerCompletedGroupAlgebra ℓ G →+* PrimePowerCompletedCoeff ℓ G where
toFun := primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G)
map_one' := by
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i 1) =
primePowerCompletedCoeffProjection (ℓ := ℓ) (G := G) i 1
rw [primePowerCompletedGroupAlgebraProjection_one,
primePowerCompletedCoeffProjection_one]
exact map_one (modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2)
map_mul' := by
intro x y
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i (x * y)) =
primePowerCompletedCoeffProjection (ℓ := ℓ) (G := G) i
(primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G) x *
primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G) y)
rw [primePowerCompletedGroupAlgebraProjection_mul,
primePowerCompletedCoeffProjection_mul]
exact map_mul (modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2)
_ _
map_zero' := by
exact map_zero (primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G))
map_add' := by
intro x y
exact map_add (primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G)) x yThe prime-power completed augmentation bundled as a ring homomorphism.
abbrev primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal :
Ideal (PrimePowerCompletedGroupAlgebra ℓ G) :=
RingHom.ker (primePowerCompletedGroupAlgebraAugmentationRingHom (ℓ := ℓ) (G := G))The completed augmentation ideal is an ideal of the corresponding completed group algebra.
omit [Fact (0 < ℓ)] in
@[simp]
theorem mem_primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal_iff
{x : PrimePowerCompletedGroupAlgebra ℓ G} :
x ∈ primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal (ℓ := ℓ) (G := G) ↔
primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G) x =
(0 : PrimePowerCompletedCoeff ℓ G)A prime-power completed group-algebra element lies in the augmentation ideal iff its prime-power augmentation is zero.
Show Lean proof
by
rw [primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal, RingHom.mem_ker]
rfl
omit [Fact (0 < ℓ)] in
theorem mem_primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal_iff_forall
{x : PrimePowerCompletedGroupAlgebra ℓ G} :
x ∈ primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal (ℓ := ℓ) (G := G) ↔
∀ i : PrimePowerCompletedGroupAlgebraIndex G,
modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i x) = 0Membership in the prime-power completed augmentation ideal is equivalent to vanishing of every finite-stage augmentation projection.
Show Lean proof
by
rw [mem_primePowerCompletedGroupAlgebraAugmentationIdealAsIdeal_iff,
← mem_primePowerCompletedGroupAlgebraAugmentationKernel_iff_forall]
rfl
def primePowerCompletedGroupAlgebraAugmentationAddSubgroup :
AddSubgroup (PrimePowerCompletedGroupAlgebra ℓ G) :=
{ carrier := {x |
primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G) x = 0}
zero_mem' := by
exact map_zero (primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G))
add_mem' := by
intro x y hx hy
change primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G) (x + y) = 0
rw [map_add, hx, hy]
simp only [add_zero]
neg_mem' := by
intro x hx
change primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G) (-x) = 0
rw [map_neg, hx]
simp only [neg_zero]}The additive kernel of the prime-power augmentation.
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentation_surjective :
Function.Surjective (primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G))The prime-power completed augmentation is surjective.
Show Lean proof
by
intro x
refine ⟨primePowerCompletedCoeffToGroupAlgebra (ℓ := ℓ) (G := G) x, ?_⟩
exact primePowerCompletedGroupAlgebraAugmentation_comp_coeffToGroupAlgebra
(ℓ := ℓ) (G := G) x
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationAddHom_surjective :
Function.Surjective (primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G))The additive form of the prime-power completed augmentation is surjective.
Show Lean proof
by
simpa [primePowerCompletedGroupAlgebraAugmentationAddHom] using
primePowerCompletedGroupAlgebraAugmentation_surjective (ℓ := ℓ) (G := G)
omit [Fact (0 < ℓ)] in
theorem exact_primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype :
Function.Exact
(primePowerCompletedGroupAlgebraAugmentationAddSubgroup (ℓ := ℓ) (G := G)).subtype
(primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G))The subtype map from the additive augmentation subgroup has image equal to the kernel of the prime-power augmentation add-hom.
Show Lean proof
by
intro x
constructor
· intro hx
exact ⟨⟨x, hx⟩, rfl⟩
· rintro ⟨y, rfl⟩
exact y.2
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype_injective :
Function.Injective
(primePowerCompletedGroupAlgebraAugmentationAddSubgroup (ℓ := ℓ) (G := G)).subtypeThe subtype inclusion for the additive subgroup underlying the prime-power augmentation kernel is injective.
Show Lean proof
by
intro x y hxy
exact Subtype.ext hxy
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationAdd_shortExact :
Function.Injective
(primePowerCompletedGroupAlgebraAugmentationAddSubgroup (ℓ := ℓ) (G := G)).subtype ∧
Function.Exact
(primePowerCompletedGroupAlgebraAugmentationAddSubgroup (ℓ := ℓ) (G := G)).subtype
(primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G)) ∧
Function.Surjective
(primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G))The canonical augmentation sequence with augmentation ideal as kernel is short exact: the inclusion is injective, its image is the kernel of augmentation, and the augmentation is surjective.
Show Lean proof
by
refine ⟨primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype_injective
(ℓ := ℓ) (G := G), ?_, ?_⟩
· exact exact_primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype
(ℓ := ℓ) (G := G)
· exact primePowerCompletedGroupAlgebraAugmentationAddHom_surjective (ℓ := ℓ) (G := G)
def primePowerCompletedGroupAlgebraAugmentationLinear :
PrimePowerCompletedGroupAlgebra ℓ G →ₗ[ℤ] PrimePowerCompletedCoeff ℓ G :=
(primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G)).toIntLinearMapThe canonical prime-power augmentation is viewed as a \(\mathbb{Z}\)-linear map.
def primePowerCompletedGroupAlgebraAugmentationCoeffLinear :
PrimePowerCompletedGroupAlgebra ℓ G →ₗ[PrimePowerCompletedCoeff ℓ G]
PrimePowerCompletedCoeff ℓ G where
toFun := primePowerCompletedGroupAlgebraAugmentation (ℓ := ℓ) (G := G)
map_add' := by
intro x y
exact map_add (primePowerCompletedGroupAlgebraAugmentationAddHom (ℓ := ℓ) (G := G)) x y
map_smul' := by
intro a x
apply (primePowerCompletedCoeffSystem ℓ G).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i (a • x)) =
primePowerCompletedCoeffProjection (ℓ := ℓ) (G := G) i a *
modNCompletedGroupAlgebraStageAugmentation (ℓ ^ i.1) G i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G) i x)
rw [primePowerCompletedGroupAlgebraProjection_smul, Algebra.smul_def, map_mul,
primePowerCompletedGroupAlgebraStageAugmentation_algebraMap]The canonical prime-power augmentation is viewed as a linear map over the prime-power completed coefficient ring.
@[simp]
theorem primePowerCompletedGroupAlgebraAugmentationCoeffLinear_of
(ell : Nat)
{H : Type u} [Group H] [TopologicalSpace H] [IsTopologicalGroup H] (h : H) :
primePowerCompletedGroupAlgebraAugmentationCoeffLinear (ℓ := ell) (G := H)
(primePowerCompletedGroupAlgebraOf (ell := ell) h) =
1The coefficient-linear prime-power augmentation sends a group-like basis element to \(1\).
Show Lean proof
by
apply (primePowerCompletedCoeffSystem ell H).ext
intro i
change modNCompletedGroupAlgebraStageAugmentation (ell ^ i.1) H i.2
(primePowerCompletedGroupAlgebraProjection (ℓ := ell) (G := H) i
(primePowerCompletedGroupAlgebraOf (ell := ell) h)) =
primePowerCompletedCoeffProjection (ℓ := ell) (G := H) i
(1 : PrimePowerCompletedCoeff ell H)
rw [primePowerCompletedGroupAlgebraProjection_of,
primePowerCompletedCoeffProjection_one]
exact modNCompletedGroupAlgebraStageAugmentation_of (n := ell ^ i.1) (G := H) i.2
(QuotientGroup.mk h)
@[simp]
theorem primePowerCompletedGroupAlgebraAugmentationCoeffLinear_one
(ell : Nat)
{H : Type u} [Group H] [TopologicalSpace H] [IsTopologicalGroup H] :
primePowerCompletedGroupAlgebraAugmentationCoeffLinear (ℓ := ell) (G := H)
(1 : PrimePowerCompletedGroupAlgebra ell H) =
1The coefficient-linear prime-power completed augmentation sends the unit element to \(1\).
Show Lean proof
by
change primePowerCompletedGroupAlgebraAugmentation (ℓ := ell) (G := H)
(1 : PrimePowerCompletedGroupAlgebra ell H) = 1
exact map_one (primePowerCompletedGroupAlgebraAugmentationRingHom (ℓ := ell) (G := H))
@[simp]
theorem primePowerCompletedGroupAlgebraAugmentationCoeffLinear_mul
(ell : Nat)
{H : Type u} [Group H] [TopologicalSpace H] [IsTopologicalGroup H]
(x y : PrimePowerCompletedGroupAlgebra ell H) :
primePowerCompletedGroupAlgebraAugmentationCoeffLinear (ℓ := ell) (G := H) (x * y) =
primePowerCompletedGroupAlgebraAugmentationCoeffLinear (ℓ := ell) (G := H) x *
primePowerCompletedGroupAlgebraAugmentationCoeffLinear (ℓ := ell) (G := H) yThe coefficient-linear prime-power augmentation is multiplicative on products.
Show Lean proof
by
change primePowerCompletedGroupAlgebraAugmentation (ℓ := ell) (G := H) (x * y) =
primePowerCompletedGroupAlgebraAugmentation (ℓ := ell) (G := H) x *
primePowerCompletedGroupAlgebraAugmentation (ℓ := ell) (G := H) y
exact map_mul (primePowerCompletedGroupAlgebraAugmentationRingHom (ℓ := ell) (G := H)) x y
def primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear :
primePowerCompletedGroupAlgebraAugmentationAddSubgroup (ℓ := ℓ) (G := G) →ₗ[ℤ]
PrimePowerCompletedGroupAlgebra ℓ G :=
(primePowerCompletedGroupAlgebraAugmentationAddSubgroup
(ℓ := ℓ) (G := G)).subtype.toIntLinearMapThe kernel inclusion of the prime-power augmentation is viewed as a \(\mathbb{Z}\)-linear map.
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationLinear_surjective :
Function.Surjective
(primePowerCompletedGroupAlgebraAugmentationLinear (ℓ := ℓ) (G := G))The linear form of the prime-power completed augmentation is surjective.
Show Lean proof
by
simpa [primePowerCompletedGroupAlgebraAugmentationLinear, AddMonoidHom.coe_toIntLinearMap] using
primePowerCompletedGroupAlgebraAugmentationAddHom_surjective (ℓ := ℓ) (G := G)
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear_injective :
Function.Injective
(primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear
(ℓ := ℓ) (G := G))The linear subtype inclusion for the additive subgroup underlying the prime-power augmentation kernel is injective.
Show Lean proof
by
exact primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype_injective
(ℓ := ℓ) (G := G)
omit [Fact (0 < ℓ)] in
theorem exact_primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear :
Function.Exact
(primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear
(ℓ := ℓ) (G := G))
(primePowerCompletedGroupAlgebraAugmentationLinear (ℓ := ℓ) (G := G))The linear subtype map from the additive augmentation subgroup has image equal to the kernel of the prime-power augmentation linear map.
Show Lean proof
by
simpa [primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear,
primePowerCompletedGroupAlgebraAugmentationLinear, AddMonoidHom.coe_toIntLinearMap] using
exact_primePowerCompletedGroupAlgebraAugmentationAddSubgroup_subtype
(ℓ := ℓ) (G := G)
omit [Fact (0 < ℓ)] in
theorem primePowerCompletedGroupAlgebraAugmentationLinear_shortExact :
Function.Injective
(primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear
(ℓ := ℓ) (G := G)) ∧
Function.Exact
(primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear
(ℓ := ℓ) (G := G))
(primePowerCompletedGroupAlgebraAugmentationLinear (ℓ := ℓ) (G := G)) ∧
Function.Surjective
(primePowerCompletedGroupAlgebraAugmentationLinear (ℓ := ℓ) (G := G))The canonical augmentation sequence with augmentation ideal as kernel is short exact: the inclusion is injective, its image is the kernel of augmentation, and the augmentation is surjective.
Show Lean proof
by
refine ⟨primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear_injective
(ℓ := ℓ) (G := G), ?_, ?_⟩
· exact exact_primePowerCompletedGroupAlgebraAugmentationAddSubgroupSubtypeLinear
(ℓ := ℓ) (G := G)
· exact primePowerCompletedGroupAlgebraAugmentationLinear_surjective (ℓ := ℓ) (G := G)