Pushouts of Monoids and Groups

This file defines wide pushouts of monoids and groups and proves some properties of the amalgamated product of groups (i.e. the special case where all the maps in the diagram are injective).

Main definitions

• Monoid.PushoutI: the pushout of a diagram of monoids indexed by a type ι

• Monoid.PushoutI.base: the map from the amalgamating monoid to the pushout

• Monoid.PushoutI.of: the map from each Monoid in the family to the pushout

• Monoid.PushoutI.lift: the universal property used to define homomorphisms out of the pushout.

• Monoid.PushoutI.NormalWord: a normal form for words in the pushout

• Monoid.PushoutI.of_injective: if all the maps in the diagram are injective in a pushout of groups then so is of

• Monoid.PushoutI.Reduced.eq_empty_of_mem_range: For any word w in the coproduct, if w is reduced (i.e none its letters are in the image of the base monoid), and nonempty, then w itself is not in the image of the base monoid.

References

• The normal form theorem follows these notes from Queen Mary University

Tags

amalgamated product, pushout, group

def Monoid.PushoutI.con {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] (φ : (i : ι) → H →* G i) : Con (Monoid.Coprod (Monoid.CoprodI G) H)

The relation we quotient by to form the pushout

Equations

• Monoid.PushoutI.con φ = conGen fun (x y : Monoid.Coprod (Monoid.CoprodI G) H) => ∃ (i : ι) (x' : H), x = Monoid.Coprod.inl (Monoid.CoprodI.of ((φ i) x')) ∧ y = Monoid.Coprod.inr x'

def Monoid.PushoutI {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] (φ : (i : ι) → H →* G i) : Type (max (max u_1 u_2) u_3)

The indexed pushout of monoids, which is the pushout in the category of monoids, or the category of groups.

Equations

• Monoid.PushoutI φ = Con.Quotient (Monoid.PushoutI.con φ)

instance Monoid.PushoutI.mul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} : Mul (Monoid.PushoutI φ)

Equations

• Monoid.PushoutI.mul = id inferInstance

instance Monoid.PushoutI.one {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} : One (Monoid.PushoutI φ)

Equations

• Monoid.PushoutI.one = id inferInstance

instance Monoid.PushoutI.monoid {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} : Monoid (Monoid.PushoutI φ)

Equations

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

def Monoid.PushoutI.of {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (i : ι) : G i →* Monoid.PushoutI φ

The map from each indexing group into the pushout

Equations

• Monoid.PushoutI.of i = MonoidHom.comp (Con.mk' (Monoid.PushoutI.con φ)) (MonoidHom.comp Monoid.Coprod.inl Monoid.CoprodI.of)

def Monoid.PushoutI.base {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] (φ : (i : ι) → H →* G i) : H →* Monoid.PushoutI φ

The map from the base monoid into the pushout

Equations

• Monoid.PushoutI.base φ = MonoidHom.comp (Con.mk' (Monoid.PushoutI.con φ)) Monoid.Coprod.inr

theorem Monoid.PushoutI.of_comp_eq_base {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (i : ι) : MonoidHom.comp (Monoid.PushoutI.of i) (φ i) = Monoid.PushoutI.base φ

theorem Monoid.PushoutI.of_apply_eq_base {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] (φ : (i : ι) → H →* G i) (i : ι) (x : H) : (Monoid.PushoutI.of i) ((φ i) x) = (Monoid.PushoutI.base φ) x

def Monoid.PushoutI.lift {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (f : (i : ι) → G i →* K) (k : H →* K) (hf : ∀ (i : ι), MonoidHom.comp (f i) (φ i) = k) : Monoid.PushoutI φ →* K

Define a homomorphism out of the pushout of monoids be defining it on each object in the diagram

Equations

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

@[simp]

theorem Monoid.PushoutI.lift_of {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (f : (i : ι) → G i →* K) (k : H →* K) (hf : ∀ (i : ι), MonoidHom.comp (f i) (φ i) = k) {i : ι} (g : G i) : (Monoid.PushoutI.lift f k hf) ((Monoid.PushoutI.of i) g) = (f i) g

@[simp]

theorem Monoid.PushoutI.lift_base {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (f : (i : ι) → G i →* K) (k : H →* K) (hf : ∀ (i : ι), MonoidHom.comp (f i) (φ i) = k) (g : H) : (Monoid.PushoutI.lift f k hf) ((Monoid.PushoutI.base φ) g) = k g

theorem Monoid.PushoutI.hom_ext {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} {f : Monoid.PushoutI φ →* K} {g : Monoid.PushoutI φ →* K} (h : ∀ (i : ι), MonoidHom.comp f (Monoid.PushoutI.of i) = MonoidHom.comp g (Monoid.PushoutI.of i)) (hbase : MonoidHom.comp f (Monoid.PushoutI.base φ) = MonoidHom.comp g (Monoid.PushoutI.base φ)) : f = g

theorem Monoid.PushoutI.hom_ext_nonempty {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} [hn : Nonempty ι] {f : Monoid.PushoutI φ →* K} {g : Monoid.PushoutI φ →* K} (h : ∀ (i : ι), MonoidHom.comp f (Monoid.PushoutI.of i) = MonoidHom.comp g (Monoid.PushoutI.of i)) : f = g

@[simp]

theorem Monoid.PushoutI.homEquiv_symm_apply {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (f : { f : ((i : ι) → G i →* K) × (H →* K) // ∀ (i : ι), MonoidHom.comp (f.fst i) (φ i) = f.2 }) : Monoid.PushoutI.homEquiv.symm f = Monoid.PushoutI.lift (↑f).1 (↑f).2 (_ : ∀ (i : ι), MonoidHom.comp ((↑f).fst i) (φ i) = (↑f).2)

@[simp]

theorem Monoid.PushoutI.homEquiv_apply_coe {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (f : Monoid.PushoutI φ →* K) : ↑(Monoid.PushoutI.homEquiv f) = (fun (i : ι) => MonoidHom.comp f (Monoid.PushoutI.of i), MonoidHom.comp f (Monoid.PushoutI.base φ))

def Monoid.PushoutI.homEquiv {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} {K : Type u_4} [Monoid K] [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} : (Monoid.PushoutI φ →* K) ≃ { f : ((i : ι) → G i →* K) × (H →* K) // ∀ (i : ι), MonoidHom.comp (f.fst i) (φ i) = f.2 }

The equivalence that is part of the universal property of the pushout. A hom out of the pushout is just a morphism out of all groups in the pushout that satisfies a commutativity condition.

Equations

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

def Monoid.PushoutI.ofCoprodI {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} : Monoid.CoprodI G →* Monoid.PushoutI φ

The map from the coproduct into the pushout

Equations

• Monoid.PushoutI.ofCoprodI = Monoid.CoprodI.lift Monoid.PushoutI.of

@[simp]

theorem Monoid.PushoutI.ofCoprodI_of {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} (i : ι) (g : G i) : Monoid.PushoutI.ofCoprodI (Monoid.CoprodI.of g) = (Monoid.PushoutI.of i) g

theorem Monoid.PushoutI.induction_on {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Monoid (G i)] [Monoid H] {φ : (i : ι) → H →* G i} {motive : Monoid.PushoutI φ → Prop} (x : Monoid.PushoutI φ) (of : ∀ (i : ι) (g : G i), motive ((Monoid.PushoutI.of i) g)) (base : ∀ (h : H), motive ((Monoid.PushoutI.base φ) h)) (mul : ∀ (x y : Monoid.PushoutI φ), motive x → motive y → motive (x * y)) : motive x

instance Monoid.PushoutI.instGroupPushoutIToMonoidToDivInvMonoidToMonoidToDivInvMonoid {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} : Group (Monoid.PushoutI φ)

Equations

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

structure Monoid.PushoutI.NormalWord.Transversal {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] (φ : (i : ι) → H →* G i) : Type (max u_1 u_2)

The data we need to pick a normal form for words in the pushout. We need to pick a canonical element of each coset. We also need all the maps in the diagram to be injective

• injective : ∀ (i : ι), Function.Injective ⇑(φ i)

  All maps in the diagram are injective

• set : (i : ι) → Set (G i)

  The underlying set, containing exactly one element of each coset of the base group

• one_mem : ∀ (i : ι), 1 ∈ self.set i

  The chosen element of the base group itself is the identity

• compl : ∀ (i : ι), Subgroup.IsComplement (↑(MonoidHom.range (φ i))) (self.set i)

  We have exactly one element of each coset of the base group

theorem Monoid.PushoutI.NormalWord.transversal_nonempty {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] (φ : (i : ι) → H →* G i) (hφ : ∀ (i : ι), Function.Injective ⇑(φ i)) : Nonempty (Monoid.PushoutI.NormalWord.Transversal φ)

structure Monoid.PushoutI.NormalWord {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (d : Monoid.PushoutI.NormalWord.Transversal φ) extends Monoid.CoprodI.Word : Type (max (max u_1 u_2) u_3)

The normal form for words in the pushout. Every element of the pushout is the product of an element of the base group and a word made up of letters each of which is in the transversal.

• toList : List ((i : ι) × G i)
• ne_one : ∀ l ∈ self.toList, l.snd ≠ 1
• chain_ne : List.Chain' (fun (l l' : (i : ι) × G i) => l.fst ≠ l'.fst) self.toList
• head : H

  Every NormalWord is the product of an element of the base group and a word made up of letters each of which is in the transversal. head is that element of the base group.

• normalized : ∀ (i : ι) (g : G i), { fst := i, snd := g } ∈ self.toList → g ∈ d.set i

  All letter in the word are in the transversal.

structure Monoid.PushoutI.NormalWord.Pair {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (d : Monoid.PushoutI.NormalWord.Transversal φ) (i : ι) extends Monoid.CoprodI.Word.Pair : Type (max u_1 u_2)

A Pair d i is a word in the coproduct, Coprod G, the tail, and an element of the group G i, the head. The first letter of the tail must not be an element of G i. Note that the head may be 1 Every letter in the tail must be in the transversal given by d. Similar to Monoid.CoprodI.Pair except every letter must be in the transversal (not including the head letter).

• head : G i
• tail : Monoid.CoprodI.Word G
• fstIdx_ne : Monoid.CoprodI.Word.fstIdx self.tail ≠ some i
• normalized : ∀ (i_1 : ι) (g : G i_1), { fst := i_1, snd := g } ∈ self.tail.toList → g ∈ d.set i_1

  All letters in the word are in the transversal.

@[simp]

theorem Monoid.PushoutI.NormalWord.empty_toList {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Monoid.PushoutI.NormalWord.empty.toWord.toList = []

@[simp]

theorem Monoid.PushoutI.NormalWord.empty_head {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Monoid.PushoutI.NormalWord.empty.head = 1

def Monoid.PushoutI.NormalWord.empty {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Monoid.PushoutI.NormalWord d

The empty normalized word, representing the identity element of the group.

Equations

• Monoid.PushoutI.NormalWord.empty = { toWord := Monoid.CoprodI.Word.empty, head := 1, normalized := (_ : ∀ (i : ι) (g : G i), { fst := i, snd := g } ∈ [] → g ∈ d.set i) }

instance Monoid.PushoutI.NormalWord.instInhabitedNormalWord {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Inhabited (Monoid.PushoutI.NormalWord d)

Equations

• Monoid.PushoutI.NormalWord.instInhabitedNormalWord = { default := Monoid.PushoutI.NormalWord.empty }

instance Monoid.PushoutI.NormalWord.instInhabitedPair {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} (i : ι) : Inhabited (Monoid.PushoutI.NormalWord.Pair d i)

Equations

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

theorem Monoid.PushoutI.NormalWord.ext {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {w₁ : Monoid.PushoutI.NormalWord d} {w₂ : Monoid.PushoutI.NormalWord d} (hhead : w₁.head = w₂.head) (hlist : w₁.toList = w₂.toList) : w₁ = w₂

theorem Monoid.PushoutI.NormalWord.ext_iff {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {w₁ : Monoid.PushoutI.NormalWord d} {w₂ : Monoid.PushoutI.NormalWord d} : w₁ = w₂ ↔ w₁.head = w₂.head ∧ w₁.toList = w₂.toList

theorem Monoid.PushoutI.NormalWord.eq_one_of_smul_normalized {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (w : Monoid.CoprodI.Word G) {i : ι} (h : H) (hw : ∀ (i : ι) (g : G i), { fst := i, snd := g } ∈ w.toList → g ∈ d.set i) (hφw : ∀ (j : ι) (g : G j), { fst := j, snd := g } ∈ (Monoid.CoprodI.of ((φ i) h) • w).toList → g ∈ d.set j) : h = 1

Given a word in CoprodI, if every letter is in the transversal and when we multiply by an element of the base group it still has this property, then the element of the base group we multiplied by was one.

theorem Monoid.PushoutI.NormalWord.ext_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {w₁ : Monoid.PushoutI.NormalWord d} {w₂ : Monoid.PushoutI.NormalWord d} (i : ι) (h : Monoid.CoprodI.of ((φ i) w₁.head) • w₁.toWord = Monoid.CoprodI.of ((φ i) w₂.head) • w₂.toWord) : w₁ = w₂

@[simp]

theorem Monoid.PushoutI.NormalWord.cons_toList {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) (hgr : g ∉ MonoidHom.range (φ i)) : (Monoid.PushoutI.NormalWord.cons g w hmw hgr).toWord.toList = { fst := i, snd := ↑((Subgroup.IsComplement.equiv (_ : Subgroup.IsComplement (↑(MonoidHom.range (φ i))) (d.set i))) (g * (φ i) w.head)).2 } :: w.toList

@[simp]

theorem Monoid.PushoutI.NormalWord.cons_head {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) (hgr : g ∉ MonoidHom.range (φ i)) : (Monoid.PushoutI.NormalWord.cons g w hmw hgr).head = (MulEquiv.symm (MonoidHom.ofInjective (_ : Function.Injective ⇑(φ i)))) ((Subgroup.IsComplement.equiv (_ : Subgroup.IsComplement (↑(MonoidHom.range (φ i))) (d.set i))) (g * (φ i) w.head)).1

noncomputable def Monoid.PushoutI.NormalWord.cons {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) (hgr : g ∉ MonoidHom.range (φ i)) : Monoid.PushoutI.NormalWord d

A constructor that multiplies a NormalWord by an element, with condition to make sure the underlying list does get longer.

Equations

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

noncomputable def Monoid.PushoutI.NormalWord.rcons {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (i : ι) (p : Monoid.PushoutI.NormalWord.Pair d i) : Monoid.PushoutI.NormalWord d

Given a pair (head, tail), we can form a word by prepending head to tail, but putting head into normal form first, by making sure it is expressed as an element of the base group multiplied by an element of the transversal.

Equations

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

theorem Monoid.PushoutI.NormalWord.rcons_injective {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} : Function.Injective (Monoid.PushoutI.NormalWord.rcons i)

noncomputable def Monoid.PushoutI.NormalWord.equivPair {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (i : ι) : Monoid.PushoutI.NormalWord d ≃ Monoid.PushoutI.NormalWord.Pair d i

The equivalence between NormalWords and pairs. We can turn a NormalWord into a pair by taking the head of the List if it is in G i and multiplying it by the element of the base group.

Equations

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

noncomputable instance Monoid.PushoutI.NormalWord.summandAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (i : ι) : MulAction (G i) (Monoid.PushoutI.NormalWord d)

Equations

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

instance Monoid.PushoutI.NormalWord.baseAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : MulAction H (Monoid.PushoutI.NormalWord d)

Equations

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

theorem Monoid.PushoutI.NormalWord.base_smul_def' {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} (h : H) (w : Monoid.PushoutI.NormalWord d) : h • w = { toWord := w.toWord, head := h * w.head, normalized := (_ : ∀ (i : ι) (g : G i), { fst := i, snd := g } ∈ w.toList → g ∈ d.set i) }

theorem Monoid.PushoutI.NormalWord.summand_smul_def' {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) : g • w = (Monoid.PushoutI.NormalWord.equivPair i).symm (let src := (Monoid.PushoutI.NormalWord.equivPair i) w; { toPair := { head := g * ((Monoid.PushoutI.NormalWord.equivPair i) w).head, tail := src.tail, fstIdx_ne := (_ : Monoid.CoprodI.Word.fstIdx src.tail ≠ some i) }, normalized := (_ : ∀ (i_1 : ι) (g : G i_1), { fst := i_1, snd := g } ∈ src.tail.toList → g ∈ d.set i_1) })

noncomputable instance Monoid.PushoutI.NormalWord.mulAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] : MulAction (Monoid.PushoutI φ) (Monoid.PushoutI.NormalWord d)

Equations

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

theorem Monoid.PushoutI.NormalWord.base_smul_def {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (h : H) (w : Monoid.PushoutI.NormalWord d) : (Monoid.PushoutI.base φ) h • w = { toWord := w.toWord, head := h * w.head, normalized := (_ : ∀ (i : ι) (g : G i), { fst := i, snd := g } ∈ w.toList → g ∈ d.set i) }

theorem Monoid.PushoutI.NormalWord.summand_smul_def {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) : (Monoid.PushoutI.of i) g • w = (Monoid.PushoutI.NormalWord.equivPair i).symm (let src := (Monoid.PushoutI.NormalWord.equivPair i) w; { toPair := { head := g * ((Monoid.PushoutI.NormalWord.equivPair i) w).head, tail := src.tail, fstIdx_ne := (_ : Monoid.CoprodI.Word.fstIdx src.tail ≠ some i) }, normalized := (_ : ∀ (i_1 : ι) (g : G i_1), { fst := i_1, snd := g } ∈ src.tail.toList → g ∈ d.set i_1) })

theorem Monoid.PushoutI.NormalWord.of_smul_eq_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) : (Monoid.PushoutI.of i) g • w = g • w

theorem Monoid.PushoutI.NormalWord.base_smul_eq_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (h : H) (w : Monoid.PushoutI.NormalWord d) : (Monoid.PushoutI.base φ) h • w = h • w

noncomputable def Monoid.PushoutI.NormalWord.consRecOn {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {motive : Monoid.PushoutI.NormalWord d → Sort u_5} (w : Monoid.PushoutI.NormalWord d) (h_empty : motive Monoid.PushoutI.NormalWord.empty) (h_cons : (i : ι) → (g : G i) → (w : Monoid.PushoutI.NormalWord d) → (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) → g ∈ d.set i → (hgr : g ∉ MonoidHom.range (φ i)) → w.head = 1 → motive w → motive (Monoid.PushoutI.NormalWord.cons g w hmw hgr)) (h_base : (h : H) → (w : Monoid.PushoutI.NormalWord d) → w.head = 1 → motive w → motive ((Monoid.PushoutI.base φ) h • w)) : motive w

Induction principle for NormalWord, that corresponds closely to inducting on the underlying list.

Equations

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

def Monoid.PushoutI.NormalWord.prod {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} (w : Monoid.PushoutI.NormalWord d) : Monoid.PushoutI φ

Take the product of a normal word as an element of the PushoutI. We show that this is bijective, in NormalWord.equiv.

Equations

• Monoid.PushoutI.NormalWord.prod w = (Monoid.PushoutI.base φ) w.head * Monoid.PushoutI.ofCoprodI (Monoid.CoprodI.Word.prod w.toWord)

theorem Monoid.PushoutI.NormalWord.cons_eq_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) (hgr : g ∉ MonoidHom.range (φ i)) : Monoid.PushoutI.NormalWord.cons g w hmw hgr = (Monoid.PushoutI.of i) g • w

@[simp]

theorem Monoid.PushoutI.NormalWord.prod_summand_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) : Monoid.PushoutI.NormalWord.prod (g • w) = (Monoid.PushoutI.of i) g * Monoid.PushoutI.NormalWord.prod w

@[simp]

theorem Monoid.PushoutI.NormalWord.prod_base_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} (h : H) (w : Monoid.PushoutI.NormalWord d) : Monoid.PushoutI.NormalWord.prod (h • w) = (Monoid.PushoutI.base φ) h * Monoid.PushoutI.NormalWord.prod w

@[simp]

theorem Monoid.PushoutI.NormalWord.prod_smul {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (g : Monoid.PushoutI φ) (w : Monoid.PushoutI.NormalWord d) : Monoid.PushoutI.NormalWord.prod (g • w) = g * Monoid.PushoutI.NormalWord.prod w

@[simp]

theorem Monoid.PushoutI.NormalWord.prod_empty {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Monoid.PushoutI.NormalWord.prod Monoid.PushoutI.NormalWord.empty = 1

@[simp]

theorem Monoid.PushoutI.NormalWord.prod_cons {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} {i : ι} (g : G i) (w : Monoid.PushoutI.NormalWord d) (hmw : Monoid.CoprodI.Word.fstIdx w.toWord ≠ some i) (hgr : g ∉ MonoidHom.range (φ i)) : Monoid.PushoutI.NormalWord.prod (Monoid.PushoutI.NormalWord.cons g w hmw hgr) = (Monoid.PushoutI.of i) g * Monoid.PushoutI.NormalWord.prod w

theorem Monoid.PushoutI.NormalWord.prod_smul_empty {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (w : Monoid.PushoutI.NormalWord d) : Monoid.PushoutI.NormalWord.prod w • Monoid.PushoutI.NormalWord.empty = w

noncomputable def Monoid.PushoutI.NormalWord.equiv {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] : Monoid.PushoutI φ ≃ Monoid.PushoutI.NormalWord d

The equivalence between normal forms and elements of the pushout

Equations

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

theorem Monoid.PushoutI.NormalWord.prod_injective {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : Function.Injective Monoid.PushoutI.NormalWord.prod

instance Monoid.PushoutI.NormalWord.instFaithfulSMulPushoutIToMonoidToDivInvMonoidToMonoidToDivInvMonoidNormalWordToSMulMonoidMulAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] : FaithfulSMul (Monoid.PushoutI φ) (Monoid.PushoutI.NormalWord d)

Equations

• (_ : FaithfulSMul (Monoid.PushoutI φ) (Monoid.PushoutI.NormalWord d)) = (_ : FaithfulSMul (Monoid.PushoutI φ) (Monoid.PushoutI.NormalWord d))

instance Monoid.PushoutI.NormalWord.instFaithfulSMulNormalWordToSMulToMonoidToDivInvMonoidSummandAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} [DecidableEq ι] [(i : ι) → DecidableEq (G i)] (i : ι) : FaithfulSMul (G i) (Monoid.PushoutI.NormalWord d)

Equations

• (_ : FaithfulSMul (G i) (Monoid.PushoutI.NormalWord d)) = (_ : FaithfulSMul (G i) (Monoid.PushoutI.NormalWord d))

instance Monoid.PushoutI.NormalWord.instFaithfulSMulNormalWordToSMulToMonoidToDivInvMonoidBaseAction {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} {d : Monoid.PushoutI.NormalWord.Transversal φ} : FaithfulSMul H (Monoid.PushoutI.NormalWord d)

Equations

• (_ : FaithfulSMul H (Monoid.PushoutI.NormalWord d)) = (_ : FaithfulSMul H (Monoid.PushoutI.NormalWord d))

theorem Monoid.PushoutI.of_injective {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (hφ : ∀ (i : ι), Function.Injective ⇑(φ i)) (i : ι) : Function.Injective ⇑(Monoid.PushoutI.of i)

All maps into the PushoutI, or amalgamated product of groups are injective, provided all maps in the diagram are injective.

See also base_injective

theorem Monoid.PushoutI.base_injective {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (hφ : ∀ (i : ι), Function.Injective ⇑(φ i)) : Function.Injective ⇑(Monoid.PushoutI.base φ)

def Monoid.PushoutI.Reduced {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] (φ : (i : ι) → H →* G i) (w : Monoid.CoprodI.Word G) : Prop

A word in CoprodI is reduced if none of its letters are in the base group.

Equations

• Monoid.PushoutI.Reduced φ w = ∀ g ∈ w.toList, g.snd ∉ MonoidHom.range (φ g.fst)

theorem Monoid.PushoutI.Reduced.exists_normalWord_prod_eq {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (d : Monoid.PushoutI.NormalWord.Transversal φ) {w : Monoid.CoprodI.Word G} (hw : Monoid.PushoutI.Reduced φ w) : ∃ (w' : Monoid.PushoutI.NormalWord d), Monoid.PushoutI.NormalWord.prod w' = Monoid.PushoutI.ofCoprodI (Monoid.CoprodI.Word.prod w) ∧ List.map Sigma.fst w'.toList = List.map Sigma.fst w.toList

theorem Monoid.PushoutI.Reduced.eq_empty_of_mem_range {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (hφ : ∀ (i : ι), Function.Injective ⇑(φ i)) {w : Monoid.CoprodI.Word G} (hw : Monoid.PushoutI.Reduced φ w) (h : Monoid.PushoutI.ofCoprodI (Monoid.CoprodI.Word.prod w) ∈ MonoidHom.range (Monoid.PushoutI.base φ)) : w = Monoid.CoprodI.Word.empty

For any word w in the coproduct, if w is reduced (i.e none its letters are in the image of the base monoid), and nonempty, then w itself is not in the image of the base group.

theorem Monoid.PushoutI.inf_of_range_eq_base_range {ι : Type u_1} {G : ι → Type u_2} {H : Type u_3} [(i : ι) → Group (G i)] [Group H] {φ : (i : ι) → H →* G i} (hφ : ∀ (i : ι), Function.Injective ⇑(φ i)) {i : ι} {j : ι} (hij : i ≠ j) : MonoidHom.range (Monoid.PushoutI.of i) ⊓ MonoidHom.range (Monoid.PushoutI.of j) = MonoidHom.range (Monoid.PushoutI.base φ)

The intersection of the images of the maps from any two distinct groups in the diagram into the amalgamated product is the image of the map from the base group in the diagram.