ProCGroups.Topologies.Conjugation

2 Theorem | 2 Definition

This module supplies the topological part of the construction. It checks continuity and stagewise neighborhood properties so that the completed object inherits the required topology.

import
Imported by

Declarations

noncomputable def conjNormalContinuousMulEquiv
    {G : Type u} [TopologicalSpace G] [Group G] [IsTopologicalGroup G]
    (N : Subgroup G) [N.Normal] (g : G) : N ≃ₜ* N :=
  { toMulEquiv := MulAut.conjNormal g
    continuous_toFun := by
      apply Continuous.subtype_mk
      change Continuous fun x : N => g * (x : G) * g⁻¹
      simpa [mul_assoc] using
        ((continuous_const : Continuous fun _ : N => g).mul continuous_subtype_val).mul
          (continuous_const : Continuous fun _ : N => g⁻¹)
    continuous_invFun := by
      apply Continuous.subtype_mk
      change Continuous fun x : N => g⁻¹ * (x : G) * (g⁻¹)⁻¹
      simpa [mul_assoc] using
        ((continuous_const : Continuous fun _ : N => g⁻¹).mul continuous_subtype_val).mul
          (continuous_const : Continuous fun _ : N => (g⁻¹)⁻¹) }

Conjugation by an ambient element as a continuous automorphism of a normal subgroup.

@[simp] theorem conjNormalContinuousMulEquiv_apply
    {G : Type u} [TopologicalSpace G] [Group G] [IsTopologicalGroup G]
    (N : Subgroup G) [N.Normal] (g : G) (x : N) :
    N.conjNormalContinuousMulEquiv g x = MulAut.conjNormal g x

The conjugation equivalence is evaluated by conjugating representatives.

Show proof
noncomputable def quotientConjugationOnTopologicallyCharacteristicQuotient
    {G : Type u} [TopologicalSpace G] [Group G] [IsTopologicalGroup G]
    (N : Subgroup G) [N.Normal] (K : Subgroup N) [K.TopologicallyCharacteristic]
    (hNactsTrivially :
      ∀ n x : N, (((MulAut.conjNormal (n : G)) x) * x⁻¹ : N) ∈ K) :
    (G ⧸ N) →* MulAut (N ⧸ K) := by
  let hKchar : K.TopologicallyCharacteristic := inferInstance
  letI : K.Normal := by infer_instance
  let prequotientAction : G →* MulAut (N ⧸ K) :=
    { toFun := fun g =>
        hKchar.quotientMulEquiv (Subgroup.conjNormalContinuousMulEquiv (G := G) N g)
      map_one' := by
        ext a
        obtain ⟨x, rfl⟩ := QuotientGroup.mk'_surjective K a
        rw [Subgroup.TopologicallyCharacteristic.quotientMulEquiv_mk]
        simp only [Subgroup.conjNormalContinuousMulEquiv, map_one, ContinuousMulEquiv.coe_mk, MulAut.one_apply,
  QuotientGroup.mk'_apply]
      map_mul' := by
        intro g h
        ext a
        obtain ⟨x, rfl⟩ := QuotientGroup.mk'_surjective K a
        change
          QuotientGroup.mk' K
              ((Subgroup.conjNormalContinuousMulEquiv (G := G) N (g * h)) x) =
            hKchar.quotientMulEquiv (Subgroup.conjNormalContinuousMulEquiv (G := G) N g)
              (hKchar.quotientMulEquiv
                (Subgroup.conjNormalContinuousMulEquiv (G := G) N h) (QuotientGroup.mk' K x))
        rw [Subgroup.TopologicallyCharacteristic.quotientMulEquiv_mk,
          Subgroup.TopologicallyCharacteristic.quotientMulEquiv_mk]
        congr 1
        ext
        simp only [Subgroup.conjNormalContinuousMulEquiv, map_mul, ContinuousMulEquiv.coe_mk, MulAut.mul_apply,
  MulAut.conjNormal_apply, mul_assoc]}
  have hNker : N ≤ prequotientAction.ker := by
    intro g hg
    ext a
    obtain ⟨x, rfl⟩ := QuotientGroup.mk'_surjective K a
    change
      QuotientGroup.mk' K ((MulAut.conjNormal g) x) =
        QuotientGroup.mk' K x
    exact
      (QuotientGroup.eq_iff_div_mem (N := K)
        (x := (MulAut.conjNormal g) x) (y := x)).2
        (by simpa [div_eq_mul_inv] using hNactsTrivially ⟨g, hg⟩ x)
  exact QuotientGroup.lift N prequotientAction hNker

Topological variant of \(\mathrm{ProCGroups.GroupTheory.quotientConjugationOnCharacteristicQuotient}\). It only needs \(K\) to be preserved by continuous automorphisms, since the conjugation maps used to define the action are continuous.

@[simp] theorem quotientConjugationOnTopologicallyCharacteristicQuotient_mk_apply_mk
    {G : Type u} [TopologicalSpace G] [Group G] [IsTopologicalGroup G]
    (N : Subgroup G) [N.Normal] (K : Subgroup N) [K.TopologicallyCharacteristic]
    (hNactsTrivially :
      ∀ n x : N, (((MulAut.conjNormal (n : G)) x) * x⁻¹ : N) ∈ K)
    (g : G) (n : N) :
    quotientConjugationOnTopologicallyCharacteristicQuotient
      (G := G) N K hNactsTrivially
      (QuotientGroup.mk' N g) (QuotientGroup.mk' K n) =
        QuotientGroup.mk' K ((MulAut.conjNormal g) n)

The topological conjugation action sends representatives to conjugates.

Show proof