ProCGroups.CompletedGroupAlgebra.InClassFunctoriality.StageMaps
This file constructs the finite-stage group-algebra map induced by a continuous group homomorphism. It proves formulas on basis elements and scalars and compatibility with coefficient change, transitions, and the completed map.
imports
def completedGroupAlgebraFunctorialStageMapInClass
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(R : Type u) [CommRing R] (φ : G →* H) (hφ : Continuous φ)
(V : CompletedGroupAlgebraIndexInClass H C) :
CompletedGroupAlgebraStageInClass C R G
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V) →+*
CompletedGroupAlgebraStageInClass C R H V :=
MonoidAlgebra.mapDomainRingHom R
(completedGroupAlgebraComapQuotientMapInClass (G := G) (H := H) C hHer φ hφ V)The \(C\)-indexed finite-stage map \(R[G/\varphi^{-1}(V)]\to R[H/V]\) is induced by a continuous homomorphism \(\varphi : G \to H\).
omit [TopologicalSpace R] [IsTopologicalRing R] in
theorem completedGroupAlgebraFunctorialStageMapInClass_surjective_of_surjective
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ) (hφsurj : Function.Surjective φ)
(V : CompletedGroupAlgebraIndexInClass H C) :
Function.Surjective
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V)A surjective group homomorphism induces a surjective finite-stage group-algebra map.
Show Lean proof
by
intro x
obtain ⟨y, hy⟩ :=
Finsupp.mapDomain_surjective (M := R)
(completedGroupAlgebraComapQuotientMapInClass_surjective_of_surjective
(G := G) (H := H) C hHer φ hφ hφsurj V) x.coeff
refine ⟨MonoidAlgebra.ofCoeff y, ?_⟩
apply MonoidAlgebra.coeff_injective
exact hy
omit [TopologicalSpace R] [IsTopologicalRing R] in
@[simp]
theorem completedGroupAlgebraFunctorialStageMapInClass_single
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ) (V : CompletedGroupAlgebraIndexInClass H C)
(q : CompletedGroupAlgebraQuotientInClass G C
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)) (r : R) :
completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V (MonoidAlgebra.single q r) =
MonoidAlgebra.single
(completedGroupAlgebraComapQuotientMapInClass (G := G) (H := H)
C hHer φ hφ V q) rThe functorial finite-stage map sends singleton coefficients to singleton coefficients.
Show Lean proof
by
change
MonoidAlgebra.mapDomain
(completedGroupAlgebraComapQuotientMapInClass
(G := G) (H := H) C hHer φ hφ V)
(MonoidAlgebra.single q r) =
MonoidAlgebra.single
(completedGroupAlgebraComapQuotientMapInClass
(G := G) (H := H) C hHer φ hφ V q) r
exact MonoidAlgebra.mapDomain_single
omit [TopologicalSpace R] [IsTopologicalRing R] in
theorem completedGroupAlgebraFunctorialStageMapInClass_algebraMap
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ) (V : CompletedGroupAlgebraIndexInClass H C) (r : R) :
completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V
(algebraMap R
(CompletedGroupAlgebraStageInClass C R G
(completedGroupAlgebraComapIndexInClass
(G := G) (H := H) C hHer φ hφ V)) r) =
algebraMap R (CompletedGroupAlgebraStageInClass C R H V) rThe functorial finite-stage map preserves coefficient algebra-map elements.
Show Lean proof
by
change
MonoidAlgebra.mapDomain
(completedGroupAlgebraComapQuotientMapInClass
(G := G) (H := H) C hHer φ hφ V)
(MonoidAlgebra.single 1 r) =
MonoidAlgebra.single 1 r
rw [MonoidAlgebra.mapDomain_single,
(completedGroupAlgebraComapQuotientMapInClass
(G := G) (H := H) C hHer φ hφ V).map_one]
omit [TopologicalSpace R] [IsTopologicalRing R] in
@[simp]
theorem completedGroupAlgebraStageCoeffMapInClass_comp_functorialStageMapInClass
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(S : Type w) [CommRing S] (f : R →+* S)
(φ : G →* H) (hφ : Continuous φ) (V : CompletedGroupAlgebraIndexInClass H C) :
(completedGroupAlgebraStageCoeffMapInClass (R := R) (G := H) C S f V).comp
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V) =
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := S) φ hφ V).comp
(completedGroupAlgebraStageCoeffMapInClass (R := R) (G := G) C S f
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V))Functorial finite-stage maps commute with coefficient change.
Show Lean proof
by
exact MonoidAlgebra.mapRingHom_comp_mapDomainRingHom
(f := f)
(g := completedGroupAlgebraComapQuotientMapInClass
(G := G) (H := H) C hHer φ hφ V)
theorem continuous_completedGroupAlgebraFunctorialStageMapInClass
(C : ProCGroups.FiniteGroupClass.{v})
(hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ) (V : CompletedGroupAlgebraIndexInClass H C) :
letI : TopologicalSpace
(CompletedGroupAlgebraStageInClass C R G
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)) :=
(completedGroupAlgebraSystemInClass C R G).topologicalSpace
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)
letI : TopologicalSpace (CompletedGroupAlgebraStageInClass C R H V) :=
(completedGroupAlgebraSystemInClass C R H).topologicalSpace V
Continuous (completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V)The functorial finite-stage group-algebra map is continuous for the finite-stage topologies.
Show Lean proof
by
letI : Finite (CompletedGroupAlgebraQuotientInClass G C
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)) :=
finite_completedGroupAlgebraQuotientInClass G C
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)
letI : Finite (CompletedGroupAlgebraQuotientInClass H C V) :=
finite_completedGroupAlgebraQuotientInClass H C V
letI : TopologicalSpace
(CompletedGroupAlgebraStageInClass C R G
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)) :=
(completedGroupAlgebraSystemInClass C R G).topologicalSpace
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)
letI : TopologicalSpace (CompletedGroupAlgebraStageInClass C R H V) :=
(completedGroupAlgebraSystemInClass C R H).topologicalSpace V
exact finiteGroupAlgebra_mapDomainRingHom_continuous R
(CompletedGroupAlgebraQuotientInClass G C
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V))
(CompletedGroupAlgebraQuotientInClass H C V)
(completedGroupAlgebraComapQuotientMapInClass (G := G) (H := H) C hHer φ hφ V)
omit [TopologicalSpace R] [IsTopologicalRing R] in
@[simp]
theorem completedGroupAlgebraFunctorialStageMapInClass_transition
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ)
{V W : CompletedGroupAlgebraIndexInClass H C} (hVW : V ≤ W) :
(completedGroupAlgebraTransitionInClass C R H hVW).comp
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ W) =
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V).comp
(completedGroupAlgebraTransitionInClass C R G
(completedGroupAlgebraComapIndexInClass_mono
(G := G) (H := H) C hHer φ hφ hVW))Functorial finite-stage maps commute with transition maps.
Show Lean proof
by
rw [completedGroupAlgebraTransitionInClass, completedGroupAlgebraFunctorialStageMapInClass,
completedGroupAlgebraFunctorialStageMapInClass, completedGroupAlgebraTransitionInClass,
← MonoidAlgebra.mapDomainRingHom_comp, ← MonoidAlgebra.mapDomainRingHom_comp]
congr 1
apply MonoidHom.ext
intro q
rcases QuotientGroup.mk'_surjective
((((OrderDual.ofDual (completedGroupAlgebraComapIndexInClass
(G := G) (H := H) C hHer φ hφ W)).1 : OpenNormalSubgroup G) : Subgroup G)) q with
⟨g, rfl⟩
rfl
omit [TopologicalSpace R] [IsTopologicalRing R] in
theorem completedGAStageCoeffMapInClass_comp_transition_comp_functorialStageMapInClass
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(S : Type w) [CommRing S] (f : R →+* S)
(φ : G →* H) (hφ : Continuous φ)
{V W : CompletedGroupAlgebraIndexInClass H C} (hVW : V ≤ W) :
((completedGroupAlgebraStageCoeffMapInClass (R := R) (G := H) C S f V).comp
(completedGroupAlgebraTransitionInClass C R H hVW)).comp
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ W) =
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := S) φ hφ V).comp
((completedGroupAlgebraStageCoeffMapInClass (R := R) (G := G) C S f
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)).comp
(completedGroupAlgebraTransitionInClass C R G
(completedGroupAlgebraComapIndexInClass_mono
(G := G) (H := H) C hHer φ hφ hVW)))Functorial finite-stage maps commute with a group transition followed by coefficient change.
Show Lean proof
by
rw [RingHom.comp_assoc]
rw [completedGroupAlgebraFunctorialStageMapInClass_transition]
rw [← RingHom.comp_assoc]
rw [completedGroupAlgebraStageCoeffMapInClass_comp_functorialStageMapInClass]
rw [RingHom.comp_assoc]
omit [TopologicalSpace R] [IsTopologicalRing R] in
@[simp]
theorem completedGroupAlgebraFunctorialStageMapInClass_comp_stageMap
(C : ProCGroups.FiniteGroupClass.{v}) (hHer : ProCGroups.FiniteGroupClass.Hereditary C)
(φ : G →* H) (hφ : Continuous φ) (V : CompletedGroupAlgebraIndexInClass H C) :
(completedGroupAlgebraFunctorialStageMapInClass
(G := G) (H := H) C hHer (R := R) φ hφ V).comp
(completedGroupAlgebraStageMapInClass C R G
(completedGroupAlgebraComapIndexInClass (G := G) (H := H) C hHer φ hφ V)) =
(completedGroupAlgebraStageMapInClass C R H V).comp
(MonoidAlgebra.mapDomainRingHom R φ)The functorial finite-stage map agrees with the stage map after passing to the comap quotient.
Show Lean proof
by
rw [completedGroupAlgebraFunctorialStageMapInClass, completedGroupAlgebraStageMapInClass,
completedGroupAlgebraStageMapInClass, ← MonoidAlgebra.mapDomainRingHom_comp,
← MonoidAlgebra.mapDomainRingHom_comp]
congr 1