Commensurability for subgroups

Two subgroups H and K of a group G are commensurable if H ∩ K has finite index in both H and K.

This file defines commensurability for subgroups of a group G. It goes on to prove that commensurability defines an equivalence relation on subgroups of G and finally defines the commensurator of a subgroup H of G, which is the elements g of G such that gHg⁻¹ is commensurable with H.

Main definitions

• Commensurable H K: the statement that the subgroups H and K of G are commensurable.
• commensurator H: the commensurator of a subgroup H of G.

Implementation details

We define the commensurator of a subgroup H of G by first defining it as a subgroup of (conjAct G), which we call commensurator' and then taking the pre-image under the map G → (conjAct G) to obtain our commensurator as a subgroup of G.

We define Commensurable both for additive and multiplicative groups (in the AddSubgroup and Subgroup namespaces respectively); but Commensurator is not additivized, since it is not an interesting concept for abelian groups, and it would be unusual to write a non-abelian group additively.

def Subgroup.quotConjEquiv {G : Type u_1} [Group G] (H K : Subgroup G) (g : ConjAct G) : ↥K ⧸ H.subgroupOf K ≃ ↥(g • K) ⧸ (g • H).subgroupOf (g • K)

Equivalence of K / (H ⊓ K) with gKg⁻¹/ (gHg⁻¹ ⊓ gKg⁻¹)

Equations

• H.quotConjEquiv K g = Quotient.congr (Subgroup.equivSMul g K).toEquiv ⋯

@[deprecated Subgroup.quotConjEquiv (since := "2025-09-17")]

def Commensurable.quotConjEquiv {G : Type u_1} [Group G] (H K : Subgroup G) (g : ConjAct G) : ↥K ⧸ H.subgroupOf K ≃ ↥(g • K) ⧸ (g • H).subgroupOf (g • K)

Alias of Subgroup.quotConjEquiv.

---

Equivalence of K / (H ⊓ K) with gKg⁻¹/ (gHg⁻¹ ⊓ gKg⁻¹)

Equations

• @Commensurable.quotConjEquiv = @Subgroup.quotConjEquiv

def Subgroup.Commensurable {G : Type u_1} [Group G] (H K : Subgroup G) : Prop

Two subgroups H K of G are commensurable if H ⊓ K has finite index in both H and K.

Equations

• H.Commensurable K = (H.relIndex K ≠ 0 ∧ K.relIndex H ≠ 0)

def AddSubgroup.Commensurable {G : Type u_1} [AddGroup G] (H K : AddSubgroup G) : Prop

Two subgroups H K of G are commensurable if H ⊓ K has finite index in both H and K.

Equations

• H.Commensurable K = (H.relIndex K ≠ 0 ∧ K.relIndex H ≠ 0)

@[deprecated Subgroup.Commensurable (since := "2025-09-17")]

def Commensurable {G : Type u_1} [Group G] (H K : Subgroup G) : Prop

Alias of Subgroup.Commensurable.

---

Two subgroups H K of G are commensurable if H ⊓ K has finite index in both H and K.

Equations

• @Commensurable = @Subgroup.Commensurable

theorem Subgroup.Commensurable.refl {G : Type u_1} [Group G] (H : Subgroup G) : H.Commensurable H

theorem AddSubgroup.Commensurable.refl {G : Type u_1} [AddGroup G] (H : AddSubgroup G) : H.Commensurable H

theorem Subgroup.Commensurable.comm {G : Type u_1} [Group G] {H K : Subgroup G} : H.Commensurable K ↔ K.Commensurable H

theorem AddSubgroup.Commensurable.comm {G : Type u_1} [AddGroup G] {H K : AddSubgroup G} : H.Commensurable K ↔ K.Commensurable H

theorem Subgroup.Commensurable.symm {G : Type u_1} [Group G] {H K : Subgroup G} : H.Commensurable K → K.Commensurable H

theorem AddSubgroup.Commensurable.symm {G : Type u_1} [AddGroup G] {H K : AddSubgroup G} : H.Commensurable K → K.Commensurable H

theorem Subgroup.Commensurable.trans {G : Type u_1} [Group G] {H K L : Subgroup G} (hhk : H.Commensurable K) (hkl : K.Commensurable L) : H.Commensurable L

theorem AddSubgroup.Commensurable.trans {G : Type u_1} [AddGroup G] {H K L : AddSubgroup G} (hhk : H.Commensurable K) (hkl : K.Commensurable L) : H.Commensurable L

theorem Subgroup.Commensurable.equivalence {G : Type u_1} [Group G] : Equivalence Commensurable

theorem AddSubgroup.Commensurable.equivalence {G : Type u_1} [AddGroup G] : Equivalence Commensurable

theorem Subgroup.Commensurable.commensurable_conj {G : Type u_1} [Group G] {H K : Subgroup G} (g : ConjAct G) : H.Commensurable K ↔ (g • H).Commensurable (g • K)

theorem Subgroup.Commensurable.conj {G : Type u_1} [Group G] {H K : Subgroup G} (h : H.Commensurable K) (g : ConjAct G) : (g • H).Commensurable (g • K)

Alias for the forward direction of commensurable_conj to allow dot-notation

theorem Subgroup.Commensurable.commensurable_inv {G : Type u_1} [Group G] (H : Subgroup G) (g : ConjAct G) : (g • H).Commensurable H ↔ H.Commensurable (g⁻¹ • H)

def Subgroup.Commensurable.commensurator' {G : Type u_1} [Group G] (H : Subgroup G) : Subgroup (ConjAct G)

For H a subgroup of G, this is the subgroup of all elements g : conjAut G such that Commensurable (g • H) H

Equations

• Subgroup.Commensurable.commensurator' H = { carrier := {g : ConjAct G | (g • H).Commensurable H}, mul_mem' := ⋯, one_mem' := ⋯, inv_mem' := ⋯ }

def Subgroup.Commensurable.commensurator {G : Type u_1} [Group G] (H : Subgroup G) : Subgroup G

For H a subgroup of G, this is the subgroup of all elements g : G such that Commensurable (g H g⁻¹) H

Equations

• Subgroup.Commensurable.commensurator H = Subgroup.comap ConjAct.toConjAct.toMonoidHom (Subgroup.Commensurable.commensurator' H)

@[simp]

theorem Subgroup.Commensurable.commensurator'_mem_iff {G : Type u_1} [Group G] (H : Subgroup G) (g : ConjAct G) : g ∈ commensurator' H ↔ (g • H).Commensurable H

@[simp]

theorem Subgroup.Commensurable.commensurator_mem_iff {G : Type u_1} [Group G] (H : Subgroup G) (g : G) : g ∈ commensurator H ↔ (ConjAct.toConjAct g • H).Commensurable H

theorem Subgroup.Commensurable.eq {G : Type u_1} [Group G] {H K : Subgroup G} (hk : H.Commensurable K) : commensurator H = commensurator K