CompletedGroupAlgebra.UniversalProperty.ProfiniteModule

10 Theorem | 3 Definition

This module proves the universal-property part of the construction. It packages finite-stage data into completed maps and shows the required extension and uniqueness statements.

import
Imported by

Declarations

def completedGroupAlgebraLiftFiberSet
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (x : Carrier R G)
    (W : ProfiniteModuleOpenSubmodule (R := R) N) : Set N :=
  {y | Submodule.mkQ W.1 y =
    completedGroupAlgebraLiftToOpenSubmoduleQuotient
      (R := R) (G := G) hG N hN f hf W.1 W.2 x}

The closed fiber in a profinite target determined by the quotient-valued extension modulo one open submodule.

theorem completedGroupAlgebraLiftFiberSet_isClosed
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (x : Carrier R G)
    (W : ProfiniteModuleOpenSubmodule (R := R) N) :
    IsClosed (completedGroupAlgebraLiftFiberSet
      (R := R) (G := G) hG N hN f hf x W)

The quotient fiber attached to an open submodule is closed.

Show proof
theorem completedGroupAlgebraLiftFiberSet_finite_inter_nonempty
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (x : Carrier R G)
    (s : Finset (ProfiniteModuleOpenSubmodule (R := R) N)) :
    (⋂ W ∈ s, completedGroupAlgebraLiftFiberSet
      (R := R) (G := G) hG N hN f hf x W).Nonempty

Finite intersection property for the fibers used to assemble the profinite-target lift.

Show proof
theorem completedGroupAlgebraLiftFiberSet_iInter_nonempty
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (x : Carrier R G) :
    (⋂ W : ProfiniteModuleOpenSubmodule (R := R) N,
      completedGroupAlgebraLiftFiberSet
        (R := R) (G := G) hG N hN f hf x W).Nonempty

Compactness of the profinite target gives a simultaneous lift of the compatible quotient values.

Show proof
def completedGroupAlgebraLiftToProfiniteModuleFun
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f) :
    Carrier R G → N :=
  fun x => Classical.choose
    (completedGroupAlgebraLiftFiberSet_iInter_nonempty
      (R := R) (G := G) hG N hN f hf x)

The assembled pointwise lift from \(\widehat{R[G]}\) to a profinite target module.

theorem completedGroupAlgebraLiftToProfiniteModuleFun_quotient
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (W : ProfiniteModuleOpenSubmodule (R := R) N)
    (x : Carrier R G) :
    Submodule.mkQ W.1
        (completedGroupAlgebraLiftToProfiniteModuleFun
          (R := R) (G := G) hG N hN f hf x) =
      completedGroupAlgebraLiftToOpenSubmoduleQuotient
        (R := R) (G := G) hG N hN f hf W.1 W.2 x

The assembled point maps to the prescribed quotient-valued extension modulo every open submodule.

Show proof
theorem completedGroupAlgebraLiftToProfiniteModuleFun_apply_of
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (g : G) :
    completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf (completedGroupAlgebraOf R G g) = f g

The assembled lift has the prescribed values on the completed group-like elements.

Show proof
theorem completedGroupAlgebraLiftToProfiniteModuleFun_add
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (x y : Carrier R G) :
    completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf (x + y) =
      completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf x +
      completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf y

Additivity of the assembled profinite-target lift, checked after all open-submodule quotients.

Show proof
theorem completedGroupAlgebraLiftToProfiniteModuleFun_smul
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (r : R) (x : Carrier R G) :
    completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf (r • x) =
      r • completedGroupAlgebraLiftToProfiniteModuleFun
        (R := R) (G := G) hG N hN f hf x

The assembled profinite-target lift is compatible with scalar multiplication after all open-submodule quotients.

Show proof
def completedGroupAlgebraLiftToProfiniteModule
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f) :
    Carrier R G →L[R] N where
  toFun := completedGroupAlgebraLiftToProfiniteModuleFun (R := R) (G := G) hG N hN f hf
  map_add' := completedGroupAlgebraLiftToProfiniteModuleFun_add
    (R := R) (G := G) hG N hN f hf
  map_smul' := completedGroupAlgebraLiftToProfiniteModuleFun_smul
    (R := R) (G := G) hG N hN f hf
  cont := by
    apply continuous_of_forall_openSubmodule_quotient_continuous (R := R) N hN
    intro W hW
    have hEq : (fun x : Carrier R G =>
        Submodule.mkQ W
          (completedGroupAlgebraLiftToProfiniteModuleFun
            (R := R) (G := G) hG N hN f hf x)) =
        completedGroupAlgebraLiftToOpenSubmoduleQuotient
          (R := R) (G := G) hG N hN f hf W hW := by
      funext x
      exact completedGroupAlgebraLiftToProfiniteModuleFun_quotient
        (R := R) (G := G) hG N hN f hf ⟨W, hW⟩ x
    rw [hEq]
    exact (completedGroupAlgebraLiftToOpenSubmoduleQuotient
      (R := R) (G := G) hG N hN f hf W hW).continuous

Existence half of Lemma 5.3.5(d): a continuous map from the profinite group \(G\) to a profinite \(R\)-module extends to a continuous \(R\)-linear map out of \(\widehat{R[G]}\).

theorem completedGroupAlgebraLiftToProfiniteModule_apply_of
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f)
    (g : G) :
    completedGroupAlgebraLiftToProfiniteModule
        (R := R) (G := G) hG N hN f hf (completedGroupAlgebraOf R G g) = f g

The profinite-target lift has the prescribed value on completed group-like elements.

Show proof
theorem completedGroupAlgebra_existsUnique_lift_to_profiniteModule
    (hG : ProCGroups.IsProfiniteGroup G)
    (N : Type (max u v)) [AddCommGroup N] [TopologicalSpace N] [Module R N]
    (hN : IsProfiniteModule R N) (f : G → N) (hf : Continuous f) :
    ∃! F : Carrier R G →L[R] N,
      ∀ g : G, F (completedGroupAlgebraOf R G g) = f g

Lemma 5.3.5(d): the completed group algebra satisfies the full universal property for maps into profinite modules.

Show proof
theorem completedGroupAlgebraOf_freeProfiniteModule
    (hR : IsProfiniteRing R) (hG : ProCGroups.IsProfiniteGroup G) :
    IsFreeProfiniteModuleOn R G (Carrier R G) (completedGroupAlgebraOf R G)

Ribes--Zalesskii Lemma 5.3.5(d): \(\widehat{R[G]}\) is the free profinite \(R\)-module on the profinite space G, with basis map \(g\mapsto [g]\) inside the completed group algebra.

Show proof