Properties of group actions involving quotient groups

This file proves properties of group actions which use the quotient group construction, notably

• the orbit-stabilizer theorem card_orbit_mul_card_stabilizer_eq_card_group
• the class formula card_eq_sum_card_group_div_card_stabilizer'
• Burnside's lemma sum_card_fixedBy_eq_card_orbits_mul_card_group

class MulAction.QuotientAction {α : Type u} (β : Type v) [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) : Prop

A typeclass for when a MulAction β α descends to the quotient α ⧸ H.

• inv_mul_mem (b : β) {a a' : α} : a⁻¹ * a' ∈ H → (b • a)⁻¹ * b • a' ∈ H

  The action fulfils a normality condition on products that lie in H. This ensures that the action descends to an action on the quotient α ⧸ H.

class AddAction.QuotientAction {α : Type u} (β : Type v) [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) : Prop

A typeclass for when an AddAction β α descends to the quotient α ⧸ H.

• inv_mul_mem (b : β) {a a' : α} : -a + a' ∈ H → -(b +ᵥ a) + (b +ᵥ a') ∈ H

  The action fulfils a normality condition on summands that lie in H. This ensures that the action descends to an action on the quotient α ⧸ H.

instance MulAction.left_quotientAction {α : Type u} [Group α] (H : Subgroup α) : MulAction.QuotientAction α H

instance AddAction.left_quotientAction {α : Type u} [AddGroup α] (H : AddSubgroup α) : AddAction.QuotientAction α H

instance MulAction.right_quotientAction {α : Type u} [Group α] (H : Subgroup α) : MulAction.QuotientAction (↥H.normalizer.op) H

instance AddAction.right_quotientAction {α : Type u} [AddGroup α] (H : AddSubgroup α) : AddAction.QuotientAction (↥H.normalizer.op) H

instance MulAction.right_quotientAction' {α : Type u} [Group α] (H : Subgroup α) [hH : H.Normal] : MulAction.QuotientAction αᵐᵒᵖ H

instance AddAction.right_quotientAction' {α : Type u} [AddGroup α] (H : AddSubgroup α) [hH : H.Normal] : AddAction.QuotientAction αᵃᵒᵖ H

instance MulAction.quotient {α : Type u} (β : Type v) [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] : MulAction β (α ⧸ H)

Equations

• MulAction.quotient β H = MulAction.mk ⋯ ⋯

instance AddAction.quotient {α : Type u} (β : Type v) [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] : AddAction β (α ⧸ H)

Equations

• AddAction.quotient β H = AddAction.mk ⋯ ⋯

@[simp]

theorem MulAction.Quotient.smul_mk {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (a : α) : b • ↑a = ↑(b • a)

@[simp]

theorem AddAction.Quotient.vadd_mk {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (a : α) : b +ᵥ ↑a = ↑(b +ᵥ a)

@[simp]

theorem MulAction.Quotient.smul_coe {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (a : α) : b • ↑a = ↑(b • a)

@[simp]

theorem AddAction.Quotient.vadd_coe {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (a : α) : b +ᵥ ↑a = ↑(b +ᵥ a)

@[simp]

theorem MulAction.Quotient.mk_smul_out {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b • Quotient.out q) = b • q

@[simp]

theorem AddAction.Quotient.mk_vadd_out {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b +ᵥ Quotient.out q) = b +ᵥ q

theorem MulAction.Quotient.coe_smul_out {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b • Quotient.out q) = b • q

theorem AddAction.Quotient.coe_vadd_out {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b +ᵥ Quotient.out q) = b +ᵥ q

theorem QuotientGroup.out_conj_pow_minimalPeriod_mem {α : Type u} [Group α] (H : Subgroup α) (a : α) (q : α ⧸ H) : (Quotient.out q)⁻¹ * a ^ Function.minimalPeriod (fun (x : α ⧸ H) => a • x) q * Quotient.out q ∈ H

@[deprecated MulAction.Quotient.mk_smul_out]

theorem MulAction.Quotient.mk_smul_out' {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b • Quotient.out q) = b • q

Alias of MulAction.Quotient.mk_smul_out.

@[deprecated AddAction.Quotient.mk_vadd_out]

theorem AddAction.Quotient.mk_vadd_out' {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b +ᵥ Quotient.out q) = b +ᵥ q

@[deprecated MulAction.Quotient.coe_smul_out]

theorem MulAction.Quotient.coe_smul_out' {α : Type u} {β : Type v} [Group α] [Monoid β] [MulAction β α] (H : Subgroup α) [MulAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b • Quotient.out q) = b • q

Alias of MulAction.Quotient.coe_smul_out.

@[deprecated AddAction.Quotient.coe_vadd_out]

theorem AddAction.Quotient.coe_vadd_out' {α : Type u} {β : Type v} [AddGroup α] [AddMonoid β] [AddAction β α] (H : AddSubgroup α) [AddAction.QuotientAction β H] (b : β) (q : α ⧸ H) : ↑(b +ᵥ Quotient.out q) = b +ᵥ q

@[deprecated QuotientGroup.out_conj_pow_minimalPeriod_mem]

theorem QuotientGroup.out'_conj_pow_minimalPeriod_mem {α : Type u} [Group α] (H : Subgroup α) (a : α) (q : α ⧸ H) : (Quotient.out q)⁻¹ * a ^ Function.minimalPeriod (fun (x : α ⧸ H) => a • x) q * Quotient.out q ∈ H

Alias of QuotientGroup.out_conj_pow_minimalPeriod_mem.

def MulActionHom.toQuotient {α : Type u} [Group α] (H : Subgroup α) : α →ₑ[id] α ⧸ H

The canonical map to the left cosets.

Equations

• MulActionHom.toQuotient H = { toFun := QuotientGroup.mk, map_smul' := ⋯ }

@[simp]

theorem MulActionHom.toQuotient_apply {α : Type u} [Group α] (H : Subgroup α) (g : α) : (MulActionHom.toQuotient H) g = ↑g

instance MulAction.mulLeftCosetsCompSubtypeVal {α : Type u} [Group α] (H I : Subgroup α) : MulAction (↥I) (α ⧸ H)

Equations

• MulAction.mulLeftCosetsCompSubtypeVal H I = MulAction.compHom (α ⧸ H) I.subtype

instance AddAction.addLeftCosetsCompSubtypeVal {α : Type u} [AddGroup α] (H I : AddSubgroup α) : AddAction (↥I) (α ⧸ H)

Equations

• AddAction.addLeftCosetsCompSubtypeVal H I = AddAction.compHom (α ⧸ H) I.subtype

def MulAction.ofQuotientStabilizer (α : Type u) {β : Type v} [Group α] [MulAction α β] (x : β) (g : α ⧸ MulAction.stabilizer α x) : β

The canonical map from the quotient of the stabilizer to the set.

Equations

• MulAction.ofQuotientStabilizer α x g = Quotient.liftOn' g (fun (x_1 : α) => x_1 • x) ⋯

def AddAction.ofQuotientStabilizer (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (x : β) (g : α ⧸ AddAction.stabilizer α x) : β

The canonical map from the quotient of the stabilizer to the set.

Equations

• AddAction.ofQuotientStabilizer α x g = Quotient.liftOn' g (fun (x_1 : α) => x_1 +ᵥ x) ⋯

@[simp]

theorem MulAction.ofQuotientStabilizer_mk (α : Type u) {β : Type v} [Group α] [MulAction α β] (x : β) (g : α) : MulAction.ofQuotientStabilizer α x ↑g = g • x

@[simp]

theorem AddAction.ofQuotientStabilizer_mk (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (x : β) (g : α) : AddAction.ofQuotientStabilizer α x ↑g = g +ᵥ x

theorem MulAction.ofQuotientStabilizer_mem_orbit (α : Type u) {β : Type v} [Group α] [MulAction α β] (x : β) (g : α ⧸ MulAction.stabilizer α x) : MulAction.ofQuotientStabilizer α x g ∈ MulAction.orbit α x

theorem AddAction.ofQuotientStabilizer_mem_orbit (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (x : β) (g : α ⧸ AddAction.stabilizer α x) : AddAction.ofQuotientStabilizer α x g ∈ AddAction.orbit α x

theorem MulAction.ofQuotientStabilizer_smul (α : Type u) {β : Type v} [Group α] [MulAction α β] (x : β) (g : α) (g' : α ⧸ MulAction.stabilizer α x) : MulAction.ofQuotientStabilizer α x (g • g') = g • MulAction.ofQuotientStabilizer α x g'

theorem AddAction.ofQuotientStabilizer_vadd (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (x : β) (g : α) (g' : α ⧸ AddAction.stabilizer α x) : AddAction.ofQuotientStabilizer α x (g +ᵥ g') = g +ᵥ AddAction.ofQuotientStabilizer α x g'

theorem MulAction.injective_ofQuotientStabilizer (α : Type u) {β : Type v} [Group α] [MulAction α β] (x : β) : Function.Injective (MulAction.ofQuotientStabilizer α x)

theorem AddAction.injective_ofQuotientStabilizer (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (x : β) : Function.Injective (AddAction.ofQuotientStabilizer α x)

noncomputable def MulAction.orbitEquivQuotientStabilizer (α : Type u) {β : Type v} [Group α] [MulAction α β] (b : β) : ↑(MulAction.orbit α b) ≃ α ⧸ MulAction.stabilizer α b

Orbit-stabilizer theorem.

Equations

• MulAction.orbitEquivQuotientStabilizer α b = (Equiv.ofBijective (fun (g : α ⧸ MulAction.stabilizer α b) => ⟨MulAction.ofQuotientStabilizer α b g, ⋯⟩) ⋯).symm

noncomputable def AddAction.orbitEquivQuotientStabilizer (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (b : β) : ↑(AddAction.orbit α b) ≃ α ⧸ AddAction.stabilizer α b

Orbit-stabilizer theorem.

Equations

• AddAction.orbitEquivQuotientStabilizer α b = (Equiv.ofBijective (fun (g : α ⧸ AddAction.stabilizer α b) => ⟨AddAction.ofQuotientStabilizer α b g, ⋯⟩) ⋯).symm

noncomputable def MulAction.orbitProdStabilizerEquivGroup (α : Type u) {β : Type v} [Group α] [MulAction α β] (b : β) : ↑(MulAction.orbit α b) × ↥(MulAction.stabilizer α b) ≃ α

Orbit-stabilizer theorem.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.orbitProdStabilizerEquivAddGroup (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (b : β) : ↑(AddAction.orbit α b) × ↥(AddAction.stabilizer α b) ≃ α

Orbit-stabilizer theorem.

Equations

• One or more equations did not get rendered due to their size.

theorem MulAction.card_orbit_mul_card_stabilizer_eq_card_group (α : Type u) {β : Type v} [Group α] [MulAction α β] (b : β) [Fintype α] [Fintype ↑(MulAction.orbit α b)] [Fintype ↥(MulAction.stabilizer α b)] : Fintype.card ↑(MulAction.orbit α b) * Fintype.card ↥(MulAction.stabilizer α b) = Fintype.card α

Orbit-stabilizer theorem.

theorem AddAction.card_orbit_mul_card_stabilizer_eq_card_addGroup (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (b : β) [Fintype α] [Fintype ↑(AddAction.orbit α b)] [Fintype ↥(AddAction.stabilizer α b)] : Fintype.card ↑(AddAction.orbit α b) * Fintype.card ↥(AddAction.stabilizer α b) = Fintype.card α

Orbit-stabilizer theorem.

@[simp]

theorem MulAction.orbitEquivQuotientStabilizer_symm_apply (α : Type u) {β : Type v} [Group α] [MulAction α β] (b : β) (a : α) : ↑((MulAction.orbitEquivQuotientStabilizer α b).symm ↑a) = a • b

@[simp]

theorem AddAction.orbitEquivQuotientStabilizer_symm_apply (α : Type u) {β : Type v} [AddGroup α] [AddAction α β] (b : β) (a : α) : ↑((AddAction.orbitEquivQuotientStabilizer α b).symm ↑a) = a +ᵥ b

@[simp]

theorem MulAction.stabilizer_quotient {G : Type u_1} [Group G] (H : Subgroup G) : MulAction.stabilizer G ↑1 = H

@[simp]

theorem AddAction.stabilizer_quotient {G : Type u_1} [AddGroup G] (H : AddSubgroup G) : AddAction.stabilizer G ↑0 = H

noncomputable def MulAction.selfEquivSigmaOrbitsQuotientStabilizer' (α : Type u) (β : Type v) [Group α] [MulAction α β] {φ : Quotient (MulAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) : β ≃ (ω : Quotient (MulAction.orbitRel α β)) × α ⧸ MulAction.stabilizer α (φ ω)

Class formula : given G a group acting on X and φ a function mapping each orbit of X under this action (that is, each element of the quotient of X by the relation orbitRel G X) to an element in this orbit, this gives a (noncomputable) bijection between X and the disjoint union of G/Stab(φ(ω)) over all orbits ω. In most cases you'll want φ to be Quotient.out, so we provide MulAction.selfEquivSigmaOrbitsQuotientStabilizer' as a special case.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.selfEquivSigmaOrbitsQuotientStabilizer' (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] {φ : Quotient (AddAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) : β ≃ (ω : Quotient (AddAction.orbitRel α β)) × α ⧸ AddAction.stabilizer α (φ ω)

Class formula : given G an additive group acting on X and φ a function mapping each orbit of X under this action (that is, each element of the quotient of X by the relation orbit_rel G X) to an element in this orbit, this gives a (noncomputable) bijection between X and the disjoint union of G/Stab(φ(ω)) over all orbits ω. In most cases you'll want φ to be Quotient.out, so we provide AddAction.selfEquivSigmaOrbitsQuotientStabilizer' as a special case.

Equations

• One or more equations did not get rendered due to their size.

theorem MulAction.card_eq_sum_card_group_div_card_stabilizer' (α : Type u) (β : Type v) [Group α] [MulAction α β] [Fintype α] [Fintype β] [Fintype (Quotient (MulAction.orbitRel α β))] [(b : β) → Fintype ↥(MulAction.stabilizer α b)] {φ : Quotient (MulAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) : Fintype.card β = ∑ ω : Quotient (MulAction.orbitRel α β), Fintype.card α / Fintype.card ↥(MulAction.stabilizer α (φ ω))

Class formula for a finite group acting on a finite type. See MulAction.card_eq_sum_card_group_div_card_stabilizer for a specialized version using Quotient.out.

theorem AddAction.card_eq_sum_card_addGroup_sub_card_stabilizer' (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] [Fintype α] [Fintype β] [Fintype (Quotient (AddAction.orbitRel α β))] [(b : β) → Fintype ↥(AddAction.stabilizer α b)] {φ : Quotient (AddAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) : Fintype.card β = ∑ ω : Quotient (AddAction.orbitRel α β), Fintype.card α / Fintype.card ↥(AddAction.stabilizer α (φ ω))

Class formula for a finite group acting on a finite type. See AddAction.card_eq_sum_card_addGroup_div_card_stabilizer for a specialized version using Quotient.out.

noncomputable def MulAction.selfEquivSigmaOrbitsQuotientStabilizer (α : Type u) (β : Type v) [Group α] [MulAction α β] : β ≃ (ω : Quotient (MulAction.orbitRel α β)) × α ⧸ MulAction.stabilizer α ω.out

Class formula. This is a special case of MulAction.self_equiv_sigma_orbits_quotient_stabilizer' with φ = Quotient.out.

Equations

• MulAction.selfEquivSigmaOrbitsQuotientStabilizer α β = MulAction.selfEquivSigmaOrbitsQuotientStabilizer' α β ⋯

noncomputable def AddAction.selfEquivSigmaOrbitsQuotientStabilizer (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] : β ≃ (ω : Quotient (AddAction.orbitRel α β)) × α ⧸ AddAction.stabilizer α ω.out

Class formula. This is a special case of AddAction.self_equiv_sigma_orbits_quotient_stabilizer' with φ = Quotient.out.

Equations

• AddAction.selfEquivSigmaOrbitsQuotientStabilizer α β = AddAction.selfEquivSigmaOrbitsQuotientStabilizer' α β ⋯

theorem MulAction.card_eq_sum_card_group_div_card_stabilizer (α : Type u) (β : Type v) [Group α] [MulAction α β] [Fintype α] [Fintype β] [Fintype (Quotient (MulAction.orbitRel α β))] [(b : β) → Fintype ↥(MulAction.stabilizer α b)] : Fintype.card β = ∑ ω : Quotient (MulAction.orbitRel α β), Fintype.card α / Fintype.card ↥(MulAction.stabilizer α ω.out)

Class formula for a finite group acting on a finite type.

theorem AddAction.card_eq_sum_card_addGroup_sub_card_stabilizer (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] [Fintype α] [Fintype β] [Fintype (Quotient (AddAction.orbitRel α β))] [(b : β) → Fintype ↥(AddAction.stabilizer α b)] : Fintype.card β = ∑ ω : Quotient (AddAction.orbitRel α β), Fintype.card α / Fintype.card ↥(AddAction.stabilizer α ω.out)

Class formula for a finite group acting on a finite type.

noncomputable def MulAction.sigmaFixedByEquivOrbitsProdGroup (α : Type u) (β : Type v) [Group α] [MulAction α β] : (a : α) × ↑(MulAction.fixedBy β a) ≃ Quotient (MulAction.orbitRel α β) × α

Burnside's lemma : a (noncomputable) bijection between the disjoint union of all {x ∈ X | g • x = x} for g ∈ G and the product G × X/G, where G is a group acting on X and X/G denotes the quotient of X by the relation orbitRel G X.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.sigmaFixedByEquivOrbitsProdAddGroup (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] : (a : α) × ↑(AddAction.fixedBy β a) ≃ Quotient (AddAction.orbitRel α β) × α

Burnside's lemma : a (noncomputable) bijection between the disjoint union of all {x ∈ X | g • x = x} for g ∈ G and the product G × X/G, where G is an additive group acting on X and X/Gdenotes the quotient of X by the relation orbitRel G X.

Equations

• One or more equations did not get rendered due to their size.

theorem MulAction.sum_card_fixedBy_eq_card_orbits_mul_card_group (α : Type u) (β : Type v) [Group α] [MulAction α β] [Fintype α] [(a : α) → Fintype ↑(MulAction.fixedBy β a)] [Fintype (Quotient (MulAction.orbitRel α β))] : ∑ a : α, Fintype.card ↑(MulAction.fixedBy β a) = Fintype.card (Quotient (MulAction.orbitRel α β)) * Fintype.card α

Burnside's lemma : given a finite group G acting on a set X, the average number of elements fixed by each g ∈ G is the number of orbits.

theorem AddAction.sum_card_fixedBy_eq_card_orbits_mul_card_addGroup (α : Type u) (β : Type v) [AddGroup α] [AddAction α β] [Fintype α] [(a : α) → Fintype ↑(AddAction.fixedBy β a)] [Fintype (Quotient (AddAction.orbitRel α β))] : ∑ a : α, Fintype.card ↑(AddAction.fixedBy β a) = Fintype.card (Quotient (AddAction.orbitRel α β)) * Fintype.card α

Burnside's lemma : given a finite additive group G acting on a set X, the average number of elements fixed by each g ∈ G is the number of orbits.

instance MulAction.isPretransitive_quotient (G : Type u_1) [Group G] (H : Subgroup G) : MulAction.IsPretransitive G (G ⧸ H)

instance AddAction.isPretransitive_quotient (G : Type u_1) [AddGroup G] (H : AddSubgroup G) : AddAction.IsPretransitive G (G ⧸ H)

instance MulAction.finite_quotient_of_pretransitive_of_finite_quotient {α : Type u} (β : Type v) [Group α] [MulAction α β] [MulAction.IsPretransitive α β] {H : Subgroup α} [Finite (α ⧸ H)] : Finite (MulAction.orbitRel.Quotient (↥H) β)

instance AddAction.finite_quotient_of_pretransitive_of_finite_quotient {α : Type u} (β : Type v) [AddGroup α] [AddAction α β] [AddAction.IsPretransitive α β] {H : AddSubgroup α} [Finite (α ⧸ H)] : Finite (AddAction.orbitRel.Quotient (↥H) β)

noncomputable def MulAction.equivSubgroupOrbitsSetoidComap {α : Type u} {β : Type v} [Group α] [MulAction α β] (H : Subgroup α) (ω : Quotient (MulAction.orbitRel α β)) : MulAction.orbitRel.Quotient ↥H ↑(MulAction.orbitRel.Quotient.orbit ω) ≃ Quotient (Setoid.comap Subtype.val (MulAction.orbitRel (↥H) β))

A bijection between the quotient of the action of a subgroup H on an orbit, and a corresponding quotient expressed in terms of Setoid.comap Subtype.val.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.equivAddSubgroupOrbitsSetoidComap {α : Type u} {β : Type v} [AddGroup α] [AddAction α β] (H : AddSubgroup α) (ω : Quotient (AddAction.orbitRel α β)) : AddAction.orbitRel.Quotient ↥H ↑(AddAction.orbitRel.Quotient.orbit ω) ≃ Quotient (Setoid.comap Subtype.val (AddAction.orbitRel (↥H) β))

A bijection between the quotient of the action of an additive subgroup H on an orbit, and a corresponding quotient expressed in terms of Setoid.comap Subtype.val.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def MulAction.equivSubgroupOrbits {α : Type u} (β : Type v) [Group α] [MulAction α β] (H : Subgroup α) : MulAction.orbitRel.Quotient (↥H) β ≃ (ω : Quotient (MulAction.orbitRel α β)) × MulAction.orbitRel.Quotient ↥H ↑(MulAction.orbitRel.Quotient.orbit ω)

A bijection between the orbits under the action of a subgroup H on β, and the orbits under the action of H on each orbit under the action of G.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.equivAddSubgroupOrbits {α : Type u} (β : Type v) [AddGroup α] [AddAction α β] (H : AddSubgroup α) : AddAction.orbitRel.Quotient (↥H) β ≃ (ω : Quotient (AddAction.orbitRel α β)) × AddAction.orbitRel.Quotient ↥H ↑(AddAction.orbitRel.Quotient.orbit ω)

A bijection between the orbits under the action of an additive subgroup H on β, and the orbits under the action of H on each orbit under the action of G.

Equations

• One or more equations did not get rendered due to their size.

instance MulAction.finite_quotient_of_finite_quotient_of_finite_quotient {α : Type u} {β : Type v} [Group α] [MulAction α β] {H : Subgroup α} [Finite (MulAction.orbitRel.Quotient α β)] [Finite (α ⧸ H)] : Finite (MulAction.orbitRel.Quotient (↥H) β)

instance AddAction.finite_quotient_of_finite_quotient_of_finite_quotient {α : Type u} {β : Type v} [AddGroup α] [AddAction α β] {H : AddSubgroup α} [Finite (AddAction.orbitRel.Quotient α β)] [Finite (α ⧸ H)] : Finite (AddAction.orbitRel.Quotient (↥H) β)

noncomputable def MulAction.equivSubgroupOrbitsQuotientGroup {α : Type u} {β : Type v} [Group α] [MulAction α β] (x : β) [MulAction.IsPretransitive α β] (free : ∀ (y : β), MulAction.stabilizer α y = ⊥) (H : Subgroup α) : MulAction.orbitRel.Quotient (↥H) β ≃ α ⧸ H

Given a group acting freely and transitively, an equivalence between the orbits under the action of a subgroup and the quotient group.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.equivAddSubgroupOrbitsQuotientAddGroup {α : Type u} {β : Type v} [AddGroup α] [AddAction α β] (x : β) [AddAction.IsPretransitive α β] (free : ∀ (y : β), AddAction.stabilizer α y = ⊥) (H : AddSubgroup α) : AddAction.orbitRel.Quotient (↥H) β ≃ α ⧸ H

Given an additive group acting freely and transitively, an equivalence between the orbits under the action of an additive subgroup and the quotient group.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def MulAction.selfEquivOrbitsQuotientProd' {α : Type u} {β : Type v} [Group α] [MulAction α β] {φ : Quotient (MulAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) (h : ∀ (b : β), MulAction.stabilizer α b = ⊥) : β ≃ Quotient (MulAction.orbitRel α β) × α

If α acts on β with trivial stabilizers, β is equivalent to the product of the quotient of β by α and α. See MulAction.selfEquivOrbitsQuotientProd with φ = Quotient.out.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def AddAction.selfEquivOrbitsQuotientSum' {α : Type u} {β : Type v} [AddGroup α] [AddAction α β] {φ : Quotient (AddAction.orbitRel α β) → β} (hφ : Function.LeftInverse Quotient.mk'' φ) (h : ∀ (b : β), AddAction.stabilizer α b = ⊥) : β ≃ Quotient (AddAction.orbitRel α β) × α

If α acts freely on β, β is equivalent to the product of the quotient of β by α and α. See AddAction.selfEquivOrbitsQuotientProd with φ = Quotient.out.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def MulAction.selfEquivOrbitsQuotientProd {α : Type u} {β : Type v} [Group α] [MulAction α β] (h : ∀ (b : β), MulAction.stabilizer α b = ⊥) : β ≃ Quotient (MulAction.orbitRel α β) × α

If α acts freely on β, β is equivalent to the product of the quotient of β by α and α.

Equations

• MulAction.selfEquivOrbitsQuotientProd h = MulAction.selfEquivOrbitsQuotientProd' ⋯ h

noncomputable def AddAction.selfEquivOrbitsQuotientSum {α : Type u} {β : Type v} [AddGroup α] [AddAction α β] (h : ∀ (b : β), AddAction.stabilizer α b = ⊥) : β ≃ Quotient (AddAction.orbitRel α β) × α

If α acts freely on β, β is equivalent to the product of the quotient of β by α and α.

Equations

• AddAction.selfEquivOrbitsQuotientSum h = AddAction.selfEquivOrbitsQuotientSum' ⋯ h

theorem ConjClasses.card_carrier {G : Type u_1} [Group G] [Fintype G] (g : G) [Fintype ↑(ConjClasses.mk g).carrier] [Fintype ↥(MulAction.stabilizer (ConjAct G) g)] : Fintype.card ↑(ConjClasses.mk g).carrier = Fintype.card G / Fintype.card ↥(MulAction.stabilizer (ConjAct G) g)

theorem Subgroup.normalCore_eq_ker {G : Type u_1} [Group G] (H : Subgroup G) : H.normalCore = (MulAction.toPermHom G (G ⧸ H)).ker

noncomputable def Subgroup.quotientCentralizerEmbedding {G : Type u_1} [Group G] (g : G) : G ⧸ Subgroup.centralizer ↑(Subgroup.zpowers g) ↪ ↑(commutatorSet G)

Cosets of the centralizer of an element embed into the set of commutators.

Equations

• One or more equations did not get rendered due to their size.

theorem Subgroup.quotientCentralizerEmbedding_apply {G : Type u_1} [Group G] (g x : G) : (Subgroup.quotientCentralizerEmbedding g) ↑x = ⟨⁅x, g⁆, ⋯⟩

noncomputable def Subgroup.quotientCenterEmbedding {G : Type u_1} [Group G] {S : Set G} (hS : Subgroup.closure S = ⊤) : G ⧸ Subgroup.center G ↪ ↑S → ↑(commutatorSet G)

If G is generated by S, then the quotient by the center embeds into S-indexed sequences of commutators.

Equations

• One or more equations did not get rendered due to their size.

theorem Subgroup.quotientCenterEmbedding_apply {G : Type u_1} [Group G] {S : Set G} (hS : Subgroup.closure S = ⊤) (g : G) (s : ↑S) : (Subgroup.quotientCenterEmbedding hS) (↑g) s = ⟨⁅g, ↑s⁆, ⋯⟩