The ring homomorphism on prime-power completed group algebras induced stagewise by a continuous group homomorphism.
Source context 8 commands
Surrounding namespaces, section variables, and local commands at this declaration.
namespace FoxDifferential
noncomputable section
open ProCGroups
open ProCGroups.ProC
universe u v
variable (ℓ : ℕ)
variable {G : Type u} [Group G] [TopologicalSpace G] [IsTopologicalGroup G]
variable {H : Type v} [Group H] [TopologicalSpace H] [IsTopologicalGroup H]def primePowerCompletedGroupAlgebraMap
(ψ : ContinuousMonoidHom G H) :
PrimePowerCompletedGroupAlgebra ℓ G →+* PrimePowerCompletedGroupAlgebra ℓ H where
toFun x := ⟨fun i =>
primePowerCompletedGroupAlgebraMapStage (ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x), by
intro i j hij
let hsource :
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) ≤
(j.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ j.2) :=
⟨hij.1, completedGroupAlgebraComapIndex_mono (G := G) (H := H) ψ hij.2⟩
have hx := x.2
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2)
(j.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ j.2)
hsource
change
primePowerCompletedGroupAlgebraTransition (ℓ := ℓ) (G := G) hsource
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(j.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ j.2) x) =
primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x at hx
have hcompat := congrFun
(congrArg DFunLike.coe
(primePowerCompletedGroupAlgebraMapStage_compatible
(ℓ := ℓ) (G := G) (H := H) ψ hij))
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(j.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ j.2) x)
rw [RingHom.comp_apply, RingHom.comp_apply] at hcompat
rw [hx] at hcompat
simpa [primePowerCompletedGroupAlgebraSystem] using hcompat⟩
map_one' := by
apply (primePowerCompletedGroupAlgebraSystem ℓ H).ext
intro i
change
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i 1 = 1
exact map_one _
map_mul' := by
intro x y
apply (primePowerCompletedGroupAlgebraSystem ℓ H).ext
intro i
change
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x *
primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) y) =
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x) *
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) y)
exact map_mul _ _ _
map_zero' := by
apply (primePowerCompletedGroupAlgebraSystem ℓ H).ext
intro i
change
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i 0 = 0
exact map_zero _
map_add' := by
intro x y
apply (primePowerCompletedGroupAlgebraSystem ℓ H).ext
intro i
change
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x +
primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) y) =
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) x) +
primePowerCompletedGroupAlgebraMapStage
(ℓ := ℓ) (G := G) (H := H) ψ i
(primePowerCompletedGroupAlgebraProjection (ℓ := ℓ) (G := G)
(i.1, completedGroupAlgebraComapIndex (G := G) (H := H) ψ i.2) y)
exact map_add _ _ _