Free groups

This file defines free groups over a type. Furthermore, it is shown that the free group construction is an instance of a monad. For the result that FreeGroup is the left adjoint to the forgetful functor from groups to types, see Algebra/Category/Group/Adjunctions.

Main definitions

• FreeGroup/FreeAddGroup: the free group (resp. free additive group) associated to a type α defined as the words over a : α × Bool× Bool modulo the relation a * x * x⁻¹ * b = a * b⁻¹ * b = a * b.
• FreeGroup.mk/FreeAddGroup.mk: the canonical quotient map List (α × Bool) → FreeGroup α× Bool) → FreeGroup α→ FreeGroup α.
• FreeGroup.of/FreeAddGroup.of: the canonical injection α → FreeGroup α→ FreeGroup α.
• FreeGroup.lift f/FreeAddGroup.lift: the canonical group homomorphism FreeGroup α →* G→* G given a group G and a function f : α → G→ G.

Main statements

• FreeGroup.Red.church_rosser/FreeAddGroup.Red.church_rosser: The Church-Rosser theorem for word reduction (also known as Newman's diamond lemma).
• FreeGroup.freeGroupUnitEquivInt: The free group over the one-point type is isomorphic to the integers.
• The free group construction is an instance of a monad.

Implementation details

First we introduce the one step reduction relation FreeGroup.Red.Step: w * x * x⁻¹ * v ~> w * v⁻¹ * v ~> w * v, its reflexive transitive closure FreeGroup.Red.trans and prove that its join is an equivalence relation. Then we introduce FreeGroup α as a quotient over FreeGroup.Red.Step.

For the additive version we introduce the same relation under a different name so that we can distinguish the quotient types more easily.

Tags

free group, Newman's diamond lemma, Church-Rosser theorem

ink

inductive FreeAddGroup.Red.Step {α : Type u} : List (α × Bool) → List (α × Bool) → Prop

• not: ∀ {α : Type u} {L₁ L₂ : List (α × Bool)} {x : α} {b : Bool}, FreeAddGroup.Red.Step (L₁ ++ (x, b) :: (x, !b) :: L₂) (L₁ ++ L₂)

Reduction step for the additive free group relation: w + x + (-x) + v ~> w + v

ink

inductive FreeGroup.Red.Step {α : Type u} : List (α × Bool) → List (α × Bool) → Prop

• not: ∀ {α : Type u} {L₁ L₂ : List (α × Bool)} {x : α} {b : Bool}, FreeGroup.Red.Step (L₁ ++ (x, b) :: (x, !b) :: L₂) (L₁ ++ L₂)

Reduction step for the multiplicative free group relation: w * x * x⁻¹ * v ~> w * v⁻¹ * v ~> w * v

ink

def FreeAddGroup.Red {α : Type u} : List (α × Bool) → List (α × Bool) → Prop

Reflexive-transitive closure of Red.Step

Equations

• FreeAddGroup.Red = Relation.ReflTransGen FreeAddGroup.Red.Step

ink

def FreeGroup.Red {α : Type u} : List (α × Bool) → List (α × Bool) → Prop

Reflexive-transitive closure of Red.Step

Equations

• FreeGroup.Red = Relation.ReflTransGen FreeGroup.Red.Step

ink

theorem FreeAddGroup.Red.refl {α : Type u} {L : List (α × Bool)} : FreeAddGroup.Red L L

ink

theorem FreeGroup.Red.refl {α : Type u} {L : List (α × Bool)} : FreeGroup.Red L L

ink

theorem FreeAddGroup.Red.trans {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeAddGroup.Red L₁ L₂ → FreeAddGroup.Red L₂ L₃ → FreeAddGroup.Red L₁ L₃

ink

theorem FreeGroup.Red.trans {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeGroup.Red L₁ L₂ → FreeGroup.Red L₂ L₃ → FreeGroup.Red L₁ L₃

ink

abbrev FreeAddGroup.Red.Step.length.match_1 {α : Type u_1} (motive : (x x_1 : List (α × Bool)) → FreeAddGroup.Red.Step x x_1 → Prop) : (x x_1 : List (α × Bool)) → (x_2 : FreeAddGroup.Red.Step x x_1) → ((L1 L2 : List (α × Bool)) → (x : α) → (b : Bool) → motive (L1 ++ (x, b) :: (x, !b) :: L2) (L1 ++ L2) (_ : FreeAddGroup.Red.Step (L1 ++ (x, b) :: (x, !b) :: L2) (L1 ++ L2))) → motive x x_1 x_2

Equations

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

ink

theorem FreeAddGroup.Red.Step.length {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red.Step L₁ L₂ → List.length L₂ + 2 = List.length L₁

Predicate asserting that the word w₁ can be reduced to w₂ in one step, i.e. there are words w₃ w₄ and letter x such that w₁ = w₃ + x + (-x) + w₄ and w₂ = w₃w₄

ink

theorem FreeGroup.Red.Step.length {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red.Step L₁ L₂ → List.length L₂ + 2 = List.length L₁

Predicate asserting that the word w₁ can be reduced to w₂ in one step, i.e. there are words w₃ w₄ and letter x such that w₁ = w₃xx⁻¹w₄⁻¹w₄ and w₂ = w₃w₄

ink

@[simp]

theorem FreeAddGroup.Red.Step.not_rev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x : α} {b : Bool} : FreeAddGroup.Red.Step (L₁ ++ (x, !b) :: (x, b) :: L₂) (L₁ ++ L₂)

ink

@[simp]

theorem FreeGroup.Red.Step.not_rev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x : α} {b : Bool} : FreeGroup.Red.Step (L₁ ++ (x, !b) :: (x, b) :: L₂) (L₁ ++ L₂)

ink

@[simp]

theorem FreeAddGroup.Red.Step.cons_not {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeAddGroup.Red.Step ((x, b) :: (x, !b) :: L) L

ink

@[simp]

theorem FreeGroup.Red.Step.cons_not {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeGroup.Red.Step ((x, b) :: (x, !b) :: L) L

ink

@[simp]

theorem FreeAddGroup.Red.Step.cons_not_rev {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeAddGroup.Red.Step ((x, !b) :: (x, b) :: L) L

ink

@[simp]

theorem FreeGroup.Red.Step.cons_not_rev {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeGroup.Red.Step ((x, !b) :: (x, b) :: L) L

ink

abbrev FreeAddGroup.Red.Step.append_left.match_1 {α : Type u_1} (motive : List (α × Bool) → (x x_1 : List (α × Bool)) → FreeAddGroup.Red.Step x x_1 → Prop) : (x x_1 x_2 : List (α × Bool)) → (x_3 : FreeAddGroup.Red.Step x_1 x_2) → ((x L₁ L₂ : List (α × Bool)) → (x_4 : α) → (b : Bool) → motive x (L₁ ++ (x_4, b) :: (x_4, !b) :: L₂) (L₁ ++ L₂) (_ : FreeAddGroup.Red.Step (L₁ ++ (x_4, b) :: (x_4, !b) :: L₂) (L₁ ++ L₂))) → motive x x_1 x_2 x_3

Equations

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

ink

theorem FreeAddGroup.Red.Step.append_left {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeAddGroup.Red.Step L₂ L₃ → FreeAddGroup.Red.Step (L₁ ++ L₂) (L₁ ++ L₃)

ink

theorem FreeGroup.Red.Step.append_left {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeGroup.Red.Step L₂ L₃ → FreeGroup.Red.Step (L₁ ++ L₂) (L₁ ++ L₃)

ink

theorem FreeAddGroup.Red.Step.cons {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x : α × Bool} (H : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.Red.Step (x :: L₁) (x :: L₂)

ink

theorem FreeGroup.Red.Step.cons {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x : α × Bool} (H : FreeGroup.Red.Step L₁ L₂) : FreeGroup.Red.Step (x :: L₁) (x :: L₂)

ink

abbrev FreeAddGroup.Red.Step.append_right.match_1 {α : Type u_1} (motive : (x x_1 : List (α × Bool)) → List (α × Bool) → FreeAddGroup.Red.Step x x_1 → Prop) : (x x_1 x_2 : List (α × Bool)) → (x_3 : FreeAddGroup.Red.Step x x_1) → ((x L₁ L₂ : List (α × Bool)) → (x_4 : α) → (b : Bool) → motive (L₁ ++ (x_4, b) :: (x_4, !b) :: L₂) (L₁ ++ L₂) x (_ : FreeAddGroup.Red.Step (L₁ ++ (x_4, b) :: (x_4, !b) :: L₂) (L₁ ++ L₂))) → motive x x_1 x_2 x_3

Equations

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

ink

theorem FreeAddGroup.Red.Step.append_right {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Red.Step (L₁ ++ L₃) (L₂ ++ L₃)

ink

theorem FreeGroup.Red.Step.append_right {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeGroup.Red.Step L₁ L₂ → FreeGroup.Red.Step (L₁ ++ L₃) (L₂ ++ L₃)

ink

theorem FreeAddGroup.Red.not_step_nil {α : Type u} {L : List (α × Bool)} : ¬FreeAddGroup.Red.Step [] L

ink

theorem FreeGroup.Red.not_step_nil {α : Type u} {L : List (α × Bool)} : ¬FreeGroup.Red.Step [] L

ink

theorem FreeAddGroup.Red.Step.cons_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {a : α} {b : Bool} : FreeAddGroup.Red.Step ((a, b) :: L₁) L₂ ↔ (∃ L, FreeAddGroup.Red.Step L₁ L ∧ L₂ = (a, b) :: L) ∨ L₁ = (a, !b) :: L₂

ink

theorem FreeGroup.Red.Step.cons_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {a : α} {b : Bool} : FreeGroup.Red.Step ((a, b) :: L₁) L₂ ↔ (∃ L, FreeGroup.Red.Step L₁ L ∧ L₂ = (a, b) :: L) ∨ L₁ = (a, !b) :: L₂

ink

abbrev FreeAddGroup.Red.not_step_singleton.match_1 {α : Type u_1} (motive : α × Bool → Prop) : (x : α × Bool) → ((a : α) → (b : Bool) → motive (a, b)) → motive x

Equations

• FreeAddGroup.Red.not_step_singleton.match_1 motive x h_1 = Prod.casesOn x fun fst snd => h_1 fst snd

ink

theorem FreeAddGroup.Red.not_step_singleton {α : Type u} {L : List (α × Bool)} {p : α × Bool} : ¬FreeAddGroup.Red.Step [p] L

ink

theorem FreeGroup.Red.not_step_singleton {α : Type u} {L : List (α × Bool)} {p : α × Bool} : ¬FreeGroup.Red.Step [p] L

ink

theorem FreeAddGroup.Red.Step.cons_cons_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {p : α × Bool} : FreeAddGroup.Red.Step (p :: L₁) (p :: L₂) ↔ FreeAddGroup.Red.Step L₁ L₂

ink

theorem FreeGroup.Red.Step.cons_cons_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {p : α × Bool} : FreeGroup.Red.Step (p :: L₁) (p :: L₂) ↔ FreeGroup.Red.Step L₁ L₂

ink

abbrev FreeAddGroup.Red.Step.append_left_iff.match_1 {α : Type u_1} (motive : List (α × Bool) → Prop) : (x : List (α × Bool)) → (Unit → motive []) → ((p : α × Bool) → (l : List (α × Bool)) → motive (p :: l)) → motive x

Equations

• FreeAddGroup.Red.Step.append_left_iff.match_1 motive x h_1 h_2 = List.casesOn x (h_1 ()) fun head tail => h_2 head tail

ink

theorem FreeAddGroup.Red.Step.append_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (L : List (α × Bool)) : FreeAddGroup.Red.Step (L ++ L₁) (L ++ L₂) ↔ FreeAddGroup.Red.Step L₁ L₂

ink

theorem FreeGroup.Red.Step.append_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (L : List (α × Bool)) : FreeGroup.Red.Step (L ++ L₁) (L ++ L₂) ↔ FreeGroup.Red.Step L₁ L₂

ink

abbrev FreeAddGroup.Red.Step.diamond_aux.match_1 {α : Type u_1} (tl : List (α × Bool)) : ∀ (x tl2 x_1 : List (α × Bool)) (motive : (tl ++ x = tl2 ++ x_1 ∨ ∃ L₅, FreeAddGroup.Red.Step (tl ++ x) L₅ ∧ FreeAddGroup.Red.Step (tl2 ++ x_1) L₅) → Prop) (x_2 : tl ++ x = tl2 ++ x_1 ∨ ∃ L₅, FreeAddGroup.Red.Step (tl ++ x) L₅ ∧ FreeAddGroup.Red.Step (tl2 ++ x_1) L₅), (∀ (H3 : tl ++ x = tl2 ++ x_1), motive (_ : tl ++ x = tl2 ++ x_1 ∨ ∃ L₅, FreeAddGroup.Red.Step (tl ++ x) L₅ ∧ FreeAddGroup.Red.Step (tl2 ++ x_1) L₅)) → (∀ (L₅ : List (α × Bool)) (H3 : FreeAddGroup.Red.Step (tl ++ x) L₅) (H4 : FreeAddGroup.Red.Step (tl2 ++ x_1) L₅), motive (_ : tl ++ x = tl2 ++ x_1 ∨ ∃ L₅, FreeAddGroup.Red.Step (tl ++ x) L₅ ∧ FreeAddGroup.Red.Step (tl2 ++ x_1) L₅)) → motive x_2

Equations

• FreeAddGroup.Red.Step.diamond_aux.match_1 tl x tl2 x motive x h_1 h_2 = Or.casesOn x (fun h => h_1 h) fun h => Exists.casesOn h fun w h => And.casesOn h fun left right => h_2 w left right

ink

theorem FreeAddGroup.Red.Step.diamond_aux {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} : L₁ ++ (x1, b1) :: (x1, !b1) :: L₂ = L₃ ++ (x2, b2) :: (x2, !b2) :: L₄ → L₁ ++ L₂ = L₃ ++ L₄ ∨ ∃ L₅, FreeAddGroup.Red.Step (L₁ ++ L₂) L₅ ∧ FreeAddGroup.Red.Step (L₃ ++ L₄) L₅

ink

abbrev FreeAddGroup.Red.Step.diamond_aux.match_2 {α : Type u_1} (x3 : α) (b3 : Bool) (tl : List (α × Bool)) : (x : List (α × Bool)) → (x4 : α) → (b4 : Bool) → (tl2 x_1 : List (α × Bool)) → (x_2 : α) → (x_3 : Bool) → (x_4 : α) → ∀ (x_5 : Bool) (motive : (x3, b3) = (x4, b4) ∧ List.append tl ((x_2, x_3) :: (x_2, !x_3) :: x) = List.append tl2 ((x_4, x_5) :: (x_4, !x_5) :: x_1) → Prop) (x_6 : (x3, b3) = (x4, b4) ∧ List.append tl ((x_2, x_3) :: (x_2, !x_3) :: x) = List.append tl2 ((x_4, x_5) :: (x_4, !x_5) :: x_1)), (∀ (H1 : (x3, b3) = (x4, b4)) (H2 : List.append tl ((x_2, x_3) :: (x_2, !x_3) :: x) = List.append tl2 ((x_4, x_5) :: (x_4, !x_5) :: x_1)), motive (_ : (x3, b3) = (x4, b4) ∧ List.append tl ((x_2, x_3) :: (x_2, !x_3) :: x) = List.append tl2 ((x_4, x_5) :: (x_4, !x_5) :: x_1))) → motive x_6

Equations

• FreeAddGroup.Red.Step.diamond_aux.match_2 x3 b3 tl x x4 b4 tl2 x x x x x motive x h_1 = And.casesOn x fun left right => h_1 left right

ink

abbrev FreeAddGroup.Red.Step.diamond_aux.match_3 {α : Type u_1} (motive : (x x_1 x_2 x_3 : List (α × Bool)) → (x_4 : α) → (x_5 : Bool) → (x_6 : α) → (x_7 : Bool) → x ++ (x_4, x_5) :: (x_4, !x_5) :: x_1 = x_2 ++ (x_6, x_7) :: (x_6, !x_7) :: x_3 → Prop) : (x x_1 x_2 x_3 : List (α × Bool)) → (x_4 : α) → (x_5 : Bool) → (x_6 : α) → (x_7 : Bool) → (x_8 : x ++ (x_4, x_5) :: (x_4, !x_5) :: x_1 = x_2 ++ (x_6, x_7) :: (x_6, !x_7) :: x_3) → ((x x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : [] ++ (x_10, x_11) :: (x_10, !x_11) :: x = [] ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive [] x [] x_9 x_10 x_11 x_12 x_13 H) → ((x : List (α × Bool)) → (x3 : α) → (b3 : Bool) → (x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : [] ++ (x_10, x_11) :: (x_10, !x_11) :: x = [(x3, b3)] ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive [] x [(x3, b3)] x_9 x_10 x_11 x_12 x_13 H) → ((x3 : α) → (b3 : Bool) → (x x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : [(x3, b3)] ++ (x_10, x_11) :: (x_10, !x_11) :: x = [] ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive [(x3, b3)] x [] x_9 x_10 x_11 x_12 x_13 H) → ((x : List (α × Bool)) → (x3 : α) → (b3 : Bool) → (x4 : α) → (b4 : Bool) → (tl x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : [] ++ (x_10, x_11) :: (x_10, !x_11) :: x = (x3, b3) :: (x4, b4) :: tl ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive [] x ((x3, b3) :: (x4, b4) :: tl) x_9 x_10 x_11 x_12 x_13 H) → ((x3 : α) → (b3 : Bool) → (x4 : α) → (b4 : Bool) → (tl x x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : (x3, b3) :: (x4, b4) :: tl ++ (x_10, x_11) :: (x_10, !x_11) :: x = [] ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive ((x3, b3) :: (x4, b4) :: tl) x [] x_9 x_10 x_11 x_12 x_13 H) → ((x3 : α) → (b3 : Bool) → (tl x : List (α × Bool)) → (x4 : α) → (b4 : Bool) → (tl2 x_9 : List (α × Bool)) → (x_10 : α) → (x_11 : Bool) → (x_12 : α) → (x_13 : Bool) → (H : (x3, b3) :: tl ++ (x_10, x_11) :: (x_10, !x_11) :: x = (x4, b4) :: tl2 ++ (x_12, x_13) :: (x_12, !x_13) :: x_9) → motive ((x3, b3) :: tl) x ((x4, b4) :: tl2) x_9 x_10 x_11 x_12 x_13 H) → motive x x_1 x_2 x_3 x_4 x_5 x_6 x_7 x_8

Equations

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

ink

theorem FreeGroup.Red.Step.diamond_aux {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} : L₁ ++ (x1, b1) :: (x1, !b1) :: L₂ = L₃ ++ (x2, b2) :: (x2, !b2) :: L₄ → L₁ ++ L₂ = L₃ ++ L₄ ∨ ∃ L₅, FreeGroup.Red.Step (L₁ ++ L₂) L₅ ∧ FreeGroup.Red.Step (L₃ ++ L₄) L₅

ink

theorem FreeAddGroup.Red.Step.diamond {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} : FreeAddGroup.Red.Step L₁ L₃ → FreeAddGroup.Red.Step L₂ L₄ → L₁ = L₂ → L₃ = L₄ ∨ ∃ L₅, FreeAddGroup.Red.Step L₃ L₅ ∧ FreeAddGroup.Red.Step L₄ L₅

ink

abbrev FreeAddGroup.Red.Step.diamond.match_1 {α : Type u_1} (motive : (x x_1 x_2 x_3 : List (α × Bool)) → FreeAddGroup.Red.Step x x_2 → FreeAddGroup.Red.Step x_1 x_3 → x = x_1 → Prop) : (x x_1 x_2 x_3 : List (α × Bool)) → (x_4 : FreeAddGroup.Red.Step x x_2) → (x_5 : FreeAddGroup.Red.Step x_1 x_3) → (x_6 : x = x_1) → ((L₁ L₂ : List (α × Bool)) → (x : α) → (b : Bool) → (L₁_1 L₂_1 : List (α × Bool)) → (x_7 : α) → (b_1 : Bool) → (H : L₁ ++ (x, b) :: (x, !b) :: L₂ = L₁_1 ++ (x_7, b_1) :: (x_7, !b_1) :: L₂_1) → motive (L₁ ++ (x, b) :: (x, !b) :: L₂) (L₁_1 ++ (x_7, b_1) :: (x_7, !b_1) :: L₂_1) (L₁ ++ L₂) (L₁_1 ++ L₂_1) (_ : FreeAddGroup.Red.Step (L₁ ++ (x, b) :: (x, !b) :: L₂) (L₁ ++ L₂)) (_ : FreeAddGroup.Red.Step (L₁_1 ++ (x_7, b_1) :: (x_7, !b_1) :: L₂_1) (L₁_1 ++ L₂_1)) H) → motive x x_1 x_2 x_3 x_4 x_5 x_6

Equations

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

ink

theorem FreeGroup.Red.Step.diamond {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} : FreeGroup.Red.Step L₁ L₃ → FreeGroup.Red.Step L₂ L₄ → L₁ = L₂ → L₃ = L₄ ∨ ∃ L₅, FreeGroup.Red.Step L₃ L₅ ∧ FreeGroup.Red.Step L₄ L₅

ink

theorem FreeAddGroup.Red.Step.to_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.Red.Step.to_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red.Step L₁ L₂ → FreeGroup.Red L₁ L₂

ink

theorem FreeAddGroup.Red.church_rosser {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeAddGroup.Red L₁ L₂ → FreeAddGroup.Red L₁ L₃ → Relation.Join FreeAddGroup.Red L₂ L₃

Church-Rosser theorem for word reduction: If w1 w2 w3 are words such that w1 reduces to w2 and w3 respectively, then there is a word w4 such that w2 and w3 reduce to w4 respectively. This is also known as Newman's diamond lemma.

ink

abbrev FreeAddGroup.Red.church_rosser.match_1 {α : Type u_1} (a : List (α × Bool)) (motive : (b c : List (α × Bool)) → (b = c ∨ ∃ L₅, FreeAddGroup.Red.Step b L₅ ∧ FreeAddGroup.Red.Step c L₅) → FreeAddGroup.Red.Step a b → FreeAddGroup.Red.Step a c → Prop) : (b c : List (α × Bool)) → (x : b = c ∨ ∃ L₅, FreeAddGroup.Red.Step b L₅ ∧ FreeAddGroup.Red.Step c L₅) → (hab : FreeAddGroup.Red.Step a b) → (hac : FreeAddGroup.Red.Step a c) → ((b : List (α × Bool)) → (hab hac : FreeAddGroup.Red.Step a b) → motive b b (_ : b = b ∨ ∃ L₅, FreeAddGroup.Red.Step b L₅ ∧ FreeAddGroup.Red.Step b L₅) hab hac) → ((b c d : List (α × Bool)) → (hbd : FreeAddGroup.Red.Step b d) → (hcd : FreeAddGroup.Red.Step c d) → (hab : FreeAddGroup.Red.Step a b) → (hac : FreeAddGroup.Red.Step a c) → motive b c (_ : b = c ∨ ∃ L₅, FreeAddGroup.Red.Step b L₅ ∧ FreeAddGroup.Red.Step c L₅) hab hac) → motive b c x hab hac

Equations

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

ink

theorem FreeGroup.Red.church_rosser {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} : FreeGroup.Red L₁ L₂ → FreeGroup.Red L₁ L₃ → Relation.Join FreeGroup.Red L₂ L₃

Church-Rosser theorem for word reduction: If w1 w2 w3 are words such that w1 reduces to w2 and w3 respectively, then there is a word w4 such that w2 and w3 reduce to w4 respectively. This is also known as Newman's diamond lemma.

ink

theorem FreeAddGroup.Red.cons_cons {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {p : α × Bool} : FreeAddGroup.Red L₁ L₂ → FreeAddGroup.Red (p :: L₁) (p :: L₂)

ink

theorem FreeGroup.Red.cons_cons {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {p : α × Bool} : FreeGroup.Red L₁ L₂ → FreeGroup.Red (p :: L₁) (p :: L₂)

ink

theorem FreeAddGroup.Red.cons_cons_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (p : α × Bool) : FreeAddGroup.Red (p :: L₁) (p :: L₂) ↔ FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.Red.cons_cons_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (p : α × Bool) : FreeGroup.Red (p :: L₁) (p :: L₂) ↔ FreeGroup.Red L₁ L₂

ink

theorem FreeAddGroup.Red.append_append_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (L : List (α × Bool)) : FreeAddGroup.Red (L ++ L₁) (L ++ L₂) ↔ FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.Red.append_append_left_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (L : List (α × Bool)) : FreeGroup.Red (L ++ L₁) (L ++ L₂) ↔ FreeGroup.Red L₁ L₂

ink

theorem FreeAddGroup.Red.append_append {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} (h₁ : FreeAddGroup.Red L₁ L₃) (h₂ : FreeAddGroup.Red L₂ L₄) : FreeAddGroup.Red (L₁ ++ L₂) (L₃ ++ L₄)

ink

theorem FreeGroup.Red.append_append {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {L₄ : List (α × Bool)} (h₁ : FreeGroup.Red L₁ L₃) (h₂ : FreeGroup.Red L₂ L₄) : FreeGroup.Red (L₁ ++ L₂) (L₃ ++ L₄)

ink

abbrev FreeAddGroup.Red.to_append_iff.match_1 {α : Type u_1} {L : List (α × Bool)} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (motive : (∃ L₃ L₄, L = L₃ ++ L₄ ∧ FreeAddGroup.Red L₃ L₁ ∧ FreeAddGroup.Red L₄ L₂) → Prop) : (x : ∃ L₃ L₄, L = L₃ ++ L₄ ∧ FreeAddGroup.Red L₃ L₁ ∧ FreeAddGroup.Red L₄ L₂) → ((L₃ L₄ : List (α × Bool)) → (Eq : L = L₃ ++ L₄) → (h₃ : FreeAddGroup.Red L₃ L₁) → (h₄ : FreeAddGroup.Red L₄ L₂) → motive (_ : ∃ L₃ L₄, L = L₃ ++ L₄ ∧ FreeAddGroup.Red L₃ L₁ ∧ FreeAddGroup.Red L₄ L₂)) → motive x

Equations

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

ink

theorem FreeAddGroup.Red.to_append_iff {α : Type u} {L : List (α × Bool)} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red L (L₁ ++ L₂) ↔ ∃ L₃ L₄, L = L₃ ++ L₄ ∧ FreeAddGroup.Red L₃ L₁ ∧ FreeAddGroup.Red L₄ L₂

ink

theorem FreeGroup.Red.to_append_iff {α : Type u} {L : List (α × Bool)} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red L (L₁ ++ L₂) ↔ ∃ L₃ L₄, L = L₃ ++ L₄ ∧ FreeGroup.Red L₃ L₁ ∧ FreeGroup.Red L₄ L₂

ink

theorem FreeAddGroup.Red.nil_iff {α : Type u} {L : List (α × Bool)} : FreeAddGroup.Red [] L ↔ L = []

The empty word [] only reduces to itself.

ink

theorem FreeGroup.Red.nil_iff {α : Type u} {L : List (α × Bool)} : FreeGroup.Red [] L ↔ L = []

The empty word [] only reduces to itself.

ink

theorem FreeAddGroup.Red.singleton_iff {α : Type u} {L₁ : List (α × Bool)} {x : α × Bool} : FreeAddGroup.Red [x] L₁ ↔ L₁ = [x]

A letter only reduces to itself.

ink

theorem FreeGroup.Red.singleton_iff {α : Type u} {L₁ : List (α × Bool)} {x : α × Bool} : FreeGroup.Red [x] L₁ ↔ L₁ = [x]

A letter only reduces to itself.

ink

theorem FreeAddGroup.Red.cons_nil_iff_singleton {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeAddGroup.Red ((x, b) :: L) [] ↔ FreeAddGroup.Red L [(x, !b)]

If x is a letter and w is a word such that x + w reduces to the empty word, then w reduces to -x.

ink

abbrev FreeAddGroup.Red.cons_nil_iff_singleton.match_1 {α : Type u_1} {L : List (α × Bool)} {x : α} {b : Bool} (motive : Relation.Join FreeAddGroup.Red [(x, !b)] L → Prop) : (x : Relation.Join FreeAddGroup.Red [(x, !b)] L) → ((L' : List (α × Bool)) → (h₁ : FreeAddGroup.Red [(x, !b)] L') → (h₂ : FreeAddGroup.Red L L') → motive (_ : ∃ c, FreeAddGroup.Red [(x, !b)] c ∧ FreeAddGroup.Red L c)) → motive x

Equations

• FreeAddGroup.Red.cons_nil_iff_singleton.match_1 motive x h_1 = Exists.casesOn x fun w h => And.casesOn h fun left right => h_1 w left right

ink

theorem FreeGroup.Red.cons_nil_iff_singleton {α : Type u} {L : List (α × Bool)} {x : α} {b : Bool} : FreeGroup.Red ((x, b) :: L) [] ↔ FreeGroup.Red L [(x, !b)]

If x is a letter and w is a word such that xw reduces to the empty word, then w reduces to x⁻¹⁻¹

ink

theorem FreeAddGroup.Red.red_iff_irreducible {α : Type u} {L : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} (h : (x1, b1) ≠ (x2, b2)) : FreeAddGroup.Red [(x1, !b1), (x2, b2)] L ↔ L = [(x1, !b1), (x2, b2)]

ink

theorem FreeGroup.Red.red_iff_irreducible {α : Type u} {L : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} (h : (x1, b1) ≠ (x2, b2)) : FreeGroup.Red [(x1, !b1), (x2, b2)] L ↔ L = [(x1, !b1), (x2, b2)]

ink

theorem FreeAddGroup.Red.neg_of_red_of_ne {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} (H1 : (x1, b1) ≠ (x2, b2)) (H2 : FreeAddGroup.Red ((x1, b1) :: L₁) ((x2, b2) :: L₂)) : FreeAddGroup.Red L₁ ((x1, !b1) :: (x2, b2) :: L₂)

If x and y are distinct letters and w₁ w₂ are words such that x + w₁ reduces to y + w₂, then w₁ reduces to -x + y + w₂.

ink

theorem FreeGroup.Red.inv_of_red_of_ne {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {x1 : α} {b1 : Bool} {x2 : α} {b2 : Bool} (H1 : (x1, b1) ≠ (x2, b2)) (H2 : FreeGroup.Red ((x1, b1) :: L₁) ((x2, b2) :: L₂)) : FreeGroup.Red L₁ ((x1, !b1) :: (x2, b2) :: L₂)

If x and y are distinct letters and w₁ w₂ are words such that xw₁ reduces to yw₂, then w₁ reduces to x⁻¹yw₂⁻¹yw₂.

ink

theorem FreeAddGroup.Red.Step.sublist {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (H : FreeAddGroup.Red.Step L₁ L₂) : List.Sublist L₂ L₁

ink

theorem FreeGroup.Red.Step.sublist {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (H : FreeGroup.Red.Step L₁ L₂) : List.Sublist L₂ L₁

ink

theorem FreeAddGroup.Red.sublist {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red L₁ L₂ → List.Sublist L₂ L₁

If w₁ w₂ are words such that w₁ reduces to w₂, then w₂ is a sublist of w₁.

ink

theorem FreeGroup.Red.sublist {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red L₁ L₂ → List.Sublist L₂ L₁

If w₁ w₂ are words such that w₁ reduces to w₂, then w₂ is a sublist of w₁.

ink

theorem FreeAddGroup.Red.length_le {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeAddGroup.Red L₁ L₂) : List.length L₂ ≤ List.length L₁

ink

theorem FreeGroup.Red.length_le {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeGroup.Red L₁ L₂) : List.length L₂ ≤ List.length L₁

ink

theorem FreeAddGroup.Red.sizeof_of_step {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red.Step L₁ L₂ → sizeOf L₂ < sizeOf L₁

ink

theorem FreeGroup.Red.sizeof_of_step {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red.Step L₁ L₂ → sizeOf L₂ < sizeOf L₁

ink

theorem FreeAddGroup.Red.length {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeAddGroup.Red L₁ L₂) : ∃ n, List.length L₁ = List.length L₂ + 2 * n

ink

theorem FreeGroup.Red.length {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeGroup.Red L₁ L₂) : ∃ n, List.length L₁ = List.length L₂ + 2 * n

ink

theorem FreeAddGroup.Red.antisymm {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h₁₂ : FreeAddGroup.Red L₁ L₂) (h₂₁ : FreeAddGroup.Red L₂ L₁) : L₁ = L₂

ink

theorem FreeGroup.Red.antisymm {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h₁₂ : FreeGroup.Red L₁ L₂) (h₂₁ : FreeGroup.Red L₂ L₁) : L₁ = L₂

ink

theorem FreeAddGroup.equivalence_join_red {α : Type u} : Equivalence (Relation.Join FreeAddGroup.Red)

ink

theorem FreeGroup.equivalence_join_red {α : Type u} : Equivalence (Relation.Join FreeGroup.Red)

ink

theorem FreeAddGroup.join_red_of_step {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeAddGroup.Red.Step L₁ L₂) : Relation.Join FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.join_red_of_step {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeGroup.Red.Step L₁ L₂) : Relation.Join FreeGroup.Red L₁ L₂

ink

theorem FreeAddGroup.eqvGen_step_iff_join_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : EqvGen FreeAddGroup.Red.Step L₁ L₂ ↔ Relation.Join FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.eqvGen_step_iff_join_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : EqvGen FreeGroup.Red.Step L₁ L₂ ↔ Relation.Join FreeGroup.Red L₁ L₂

ink

def FreeAddGroup (α : Type u) : Type u

The free additive group over a type, i.e. the words formed by the elements of the type and their formal inverses, quotient by one step reduction.

Equations

• FreeAddGroup α = Quot FreeAddGroup.Red.Step

ink

def FreeGroup (α : Type u) : Type u

The free group over a type, i.e. the words formed by the elements of the type and their formal inverses, quotient by one step reduction.

Equations

• FreeGroup α = Quot FreeGroup.Red.Step

ink

def FreeAddGroup.mk {α : Type u} (L : List (α × Bool)) : FreeAddGroup α

The canonical map from list (α × bool)× bool) to the free additive group on α.

Equations

• FreeAddGroup.mk L = Quot.mk FreeAddGroup.Red.Step L

ink

def FreeGroup.mk {α : Type u} (L : List (α × Bool)) : FreeGroup α

The canonical map from list (α × bool)× bool) to the free group on α.

Equations

• FreeGroup.mk L = Quot.mk FreeGroup.Red.Step L

ink

@[simp]

theorem FreeAddGroup.quot_mk_eq_mk {α : Type u} {L : List (α × Bool)} : Quot.mk FreeAddGroup.Red.Step L = FreeAddGroup.mk L

ink

@[simp]

theorem FreeGroup.quot_mk_eq_mk {α : Type u} {L : List (α × Bool)} : Quot.mk FreeGroup.Red.Step L = FreeGroup.mk L

ink

@[simp]

theorem FreeAddGroup.quot_lift_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → β) (H : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → f L₁ = f L₂) : Quot.lift f H (FreeAddGroup.mk L) = f L

ink

@[simp]

theorem FreeGroup.quot_lift_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → β) (H : ∀ (L₁ L₂ : List (α × Bool)), FreeGroup.Red.Step L₁ L₂ → f L₁ = f L₂) : Quot.lift f H (FreeGroup.mk L) = f L

ink

@[simp]

theorem FreeAddGroup.quot_liftOn_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → β) (H : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → f L₁ = f L₂) : Quot.liftOn (FreeAddGroup.mk L) f H = f L

ink

@[simp]

theorem FreeGroup.quot_liftOn_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → β) (H : ∀ (L₁ L₂ : List (α × Bool)), FreeGroup.Red.Step L₁ L₂ → f L₁ = f L₂) : Quot.liftOn (FreeGroup.mk L) f H = f L

ink

@[simp]

theorem FreeAddGroup.quot_map_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → List (β × Bool)) (H : (FreeAddGroup.Red.Step ⇒ FreeAddGroup.Red.Step) f f) : Quot.map f H (FreeAddGroup.mk L) = FreeAddGroup.mk (f L)

ink

@[simp]

theorem FreeGroup.quot_map_mk {α : Type u} {L : List (α × Bool)} (β : Type v) (f : List (α × Bool) → List (β × Bool)) (H : (FreeGroup.Red.Step ⇒ FreeGroup.Red.Step) f f) : Quot.map f H (FreeGroup.mk L) = FreeGroup.mk (f L)

ink

instance FreeAddGroup.instZeroFreeAddGroup {α : Type u} : Zero (FreeAddGroup α)

Equations

• FreeAddGroup.instZeroFreeAddGroup = { zero := FreeAddGroup.mk [] }

ink

instance FreeGroup.instOneFreeGroup {α : Type u} : One (FreeGroup α)

Equations

• FreeGroup.instOneFreeGroup = { one := FreeGroup.mk [] }

ink

theorem FreeAddGroup.zero_eq_mk {α : Type u} : 0 = FreeAddGroup.mk []

ink

theorem FreeGroup.one_eq_mk {α : Type u} : 1 = FreeGroup.mk []

ink

instance FreeAddGroup.instInhabitedFreeAddGroup {α : Type u} : Inhabited (FreeAddGroup α)

Equations

• FreeAddGroup.instInhabitedFreeAddGroup = { default := 0 }

ink

instance FreeGroup.instInhabitedFreeGroup {α : Type u} : Inhabited (FreeGroup α)

Equations

• FreeGroup.instInhabitedFreeGroup = { default := 1 }

ink

def FreeAddGroup.instAddFreeAddGroup.proof_2 {α : Type u_1} (y : FreeAddGroup α) (_L₁ : List (α × Bool)) (_L₂ : List (α × Bool)) (H : FreeAddGroup.Red.Step _L₁ _L₂) : (fun L₁ => Quot.liftOn y (fun L₂ => FreeAddGroup.mk (L₁ ++ L₂)) (_ : ∀ (_L₂ _L₃ : List (α × Bool)), FreeAddGroup.Red.Step _L₂ _L₃ → Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₂) = Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₃))) _L₁ = (fun L₁ => Quot.liftOn y (fun L₂ => FreeAddGroup.mk (L₁ ++ L₂)) (_ : ∀ (_L₂ _L₃ : List (α × Bool)), FreeAddGroup.Red.Step _L₂ _L₃ → Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₂) = Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₃))) _L₂

Equations

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

ink

instance FreeAddGroup.instAddFreeAddGroup {α : Type u} : Add (FreeAddGroup α)

Equations

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

ink

def FreeAddGroup.instAddFreeAddGroup.proof_1 {α : Type u_1} (L₁ : List (α × Bool)) (_L₂ : List (α × Bool)) (_L₃ : List (α × Bool)) (H : FreeAddGroup.Red.Step _L₂ _L₃) : Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₂) = Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₃)

Equations

• (_ : Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₂) = Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₃)) = (_ : Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₂) = Quot.mk FreeAddGroup.Red.Step (L₁ ++ _L₃))

ink

instance FreeGroup.instMulFreeGroup {α : Type u} : Mul (FreeGroup α)

Equations

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

ink

@[simp]

theorem FreeAddGroup.add_mk {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.mk L₁ + FreeAddGroup.mk L₂ = FreeAddGroup.mk (L₁ ++ L₂)

ink

@[simp]

theorem FreeGroup.mul_mk {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.mk L₁ * FreeGroup.mk L₂ = FreeGroup.mk (L₁ ++ L₂)

ink

def FreeAddGroup.negRev {α : Type u} (w : List (α × Bool)) : List (α × Bool)

Transform a word representing a free group element into a word representing its negative.

Equations

• FreeAddGroup.negRev w = List.reverse (List.map (fun g => (g.fst, !g.snd)) w)

ink

def FreeGroup.invRev {α : Type u} (w : List (α × Bool)) : List (α × Bool)

Transform a word representing a free group element into a word representing its inverse.

Equations

• FreeGroup.invRev w = List.reverse (List.map (fun g => (g.fst, !g.snd)) w)

ink

@[simp]

theorem FreeAddGroup.negRev_length {α : Type u} {L₁ : List (α × Bool)} : List.length (FreeAddGroup.negRev L₁) = List.length L₁

ink

@[simp]

theorem FreeGroup.invRev_length {α : Type u} {L₁ : List (α × Bool)} : List.length (FreeGroup.invRev L₁) = List.length L₁

ink

@[simp]

theorem FreeAddGroup.negRev_negRev {α : Type u} {L₁ : List (α × Bool)} : FreeAddGroup.negRev (FreeAddGroup.negRev L₁) = L₁

ink

@[simp]

theorem FreeGroup.invRev_invRev {α : Type u} {L₁ : List (α × Bool)} : FreeGroup.invRev (FreeGroup.invRev L₁) = L₁

ink

@[simp]

theorem FreeAddGroup.negRev_empty {α : Type u} : FreeAddGroup.negRev [] = []

ink

@[simp]

theorem FreeGroup.invRev_empty {α : Type u} : FreeGroup.invRev [] = []

ink

theorem FreeAddGroup.negRev_involutive {α : Type u} : Function.Involutive FreeAddGroup.negRev

ink

theorem FreeGroup.invRev_involutive {α : Type u} : Function.Involutive FreeGroup.invRev

ink

theorem FreeAddGroup.negRev_injective {α : Type u} : Function.Injective FreeAddGroup.negRev

ink

theorem FreeGroup.invRev_injective {α : Type u} : Function.Injective FreeGroup.invRev

ink

theorem FreeAddGroup.negRev_surjective {α : Type u} : Function.Surjective FreeAddGroup.negRev

ink

theorem FreeGroup.invRev_surjective {α : Type u} : Function.Surjective FreeGroup.invRev

ink

theorem FreeAddGroup.negRev_bijective {α : Type u} : Function.Bijective FreeAddGroup.negRev

ink

theorem FreeGroup.invRev_bijective {α : Type u} : Function.Bijective FreeGroup.invRev

ink

instance FreeAddGroup.instNegFreeAddGroup {α : Type u} : Neg (FreeAddGroup α)

Equations

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

ink

def FreeAddGroup.instNegFreeAddGroup.proof_1 {α : Type u_1} ⦃a : List (α × Bool)⦄ ⦃b : List (α × Bool)⦄ (h : FreeAddGroup.Red.Step a b) : FreeAddGroup.Red.Step (FreeAddGroup.negRev a) (FreeAddGroup.negRev b)

Equations

• (_ : FreeAddGroup.Red.Step (FreeAddGroup.negRev a) (FreeAddGroup.negRev b)) = (_ : FreeAddGroup.Red.Step (FreeAddGroup.negRev a) (FreeAddGroup.negRev b))

ink

instance FreeGroup.instInvFreeGroup {α : Type u} : Inv (FreeGroup α)

Equations

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

ink

@[simp]

theorem FreeAddGroup.neg_mk {α : Type u} {L : List (α × Bool)} : -FreeAddGroup.mk L = FreeAddGroup.mk (FreeAddGroup.negRev L)

ink

@[simp]

theorem FreeGroup.inv_mk {α : Type u} {L : List (α × Bool)} : (FreeGroup.mk L)⁻¹ = FreeGroup.mk (FreeGroup.invRev L)

ink

theorem FreeAddGroup.Red.Step.negRev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.Red.Step (FreeAddGroup.negRev L₁) (FreeAddGroup.negRev L₂)

ink

theorem FreeGroup.Red.Step.invRev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeGroup.Red.Step L₁ L₂) : FreeGroup.Red.Step (FreeGroup.invRev L₁) (FreeGroup.invRev L₂)

ink

theorem FreeAddGroup.Red.negRev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.Red (FreeAddGroup.negRev L₁) (FreeAddGroup.negRev L₂)

ink

theorem FreeGroup.Red.invRev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (h : FreeGroup.Red L₁ L₂) : FreeGroup.Red (FreeGroup.invRev L₁) (FreeGroup.invRev L₂)

ink

@[simp]

theorem FreeAddGroup.Red.step_negRev_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red.Step (FreeAddGroup.negRev L₁) (FreeAddGroup.negRev L₂) ↔ FreeAddGroup.Red.Step L₁ L₂

ink

@[simp]

theorem FreeGroup.Red.step_invRev_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red.Step (FreeGroup.invRev L₁) (FreeGroup.invRev L₂) ↔ FreeGroup.Red.Step L₁ L₂

ink

@[simp]

theorem FreeAddGroup.red_negRev_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.Red (FreeAddGroup.negRev L₁) (FreeAddGroup.negRev L₂) ↔ FreeAddGroup.Red L₁ L₂

ink

@[simp]

theorem FreeGroup.red_invRev_iff {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.Red (FreeGroup.invRev L₁) (FreeGroup.invRev L₂) ↔ FreeGroup.Red L₁ L₂

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_7 {α : Type u_1} : ∀ (a : FreeAddGroup α), zsmulRec 0 a = zsmulRec 0 a

Equations

• (_ : zsmulRec 0 a = zsmulRec 0 a) = (_ : zsmulRec 0 a = zsmulRec 0 a)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_3 {α : Type u_1} : ∀ (a : FreeAddGroup α), a + 0 = a

Equations

• (_ : a + 0 = a) = (_ : a + 0 = a)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_4 {α : Type u_1} : ∀ (x : FreeAddGroup α), nsmulRec 0 x = nsmulRec 0 x

Equations

• (_ : nsmulRec 0 x = nsmulRec 0 x) = (_ : nsmulRec 0 x = nsmulRec 0 x)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_6 {α : Type u_1} : ∀ (a b : FreeAddGroup α), a - b = a - b

Equations

• (_ : a - b = a - b) = (_ : a - b = a - b)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_9 {α : Type u_1} : ∀ (n : ℕ) (a : FreeAddGroup α), zsmulRec (Int.negSucc n) a = zsmulRec (Int.negSucc n) a

Equations

• (_ : zsmulRec (Int.negSucc n) a = zsmulRec (Int.negSucc n) a) = (_ : zsmulRec (Int.negSucc n) a = zsmulRec (Int.negSucc n) a)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_2 {α : Type u_1} : ∀ (a : FreeAddGroup α), 0 + a = a

Equations

• (_ : 0 + a = a) = (_ : 0 + a = a)

ink

instance FreeAddGroup.instAddGroupFreeAddGroup {α : Type u} : AddGroup (FreeAddGroup α)

Equations

• FreeAddGroup.instAddGroupFreeAddGroup = AddGroup.mk (_ : ∀ (a : FreeAddGroup α), -a + a = 0)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_10 {α : Type u_1} : ∀ (a : FreeAddGroup α), -a + a = 0

Equations

• (_ : -a + a = 0) = (_ : -a + a = 0)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_1 {α : Type u_1} : ∀ (a b c : FreeAddGroup α), a + b + c = a + (b + c)

Equations

• (_ : ∀ (b c : FreeAddGroup α), a + b + c = a + (b + c)) = (_ : ∀ (b c : FreeAddGroup α), a + b + c = a + (b + c))

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_5 {α : Type u_1} : ∀ (n : ℕ) (x : FreeAddGroup α), nsmulRec (n + 1) x = nsmulRec (n + 1) x

Equations

• (_ : nsmulRec (n + 1) x = nsmulRec (n + 1) x) = (_ : nsmulRec (n + 1) x = nsmulRec (n + 1) x)

ink

def FreeAddGroup.instAddGroupFreeAddGroup.proof_8 {α : Type u_1} : ∀ (n : ℕ) (a : FreeAddGroup α), zsmulRec (Int.ofNat (Nat.succ n)) a = zsmulRec (Int.ofNat (Nat.succ n)) a

Equations

• (_ : zsmulRec (Int.ofNat (Nat.succ n)) a = zsmulRec (Int.ofNat (Nat.succ n)) a) = (_ : zsmulRec (Int.ofNat (Nat.succ n)) a = zsmulRec (Int.ofNat (Nat.succ n)) a)

ink

instance FreeGroup.instGroupFreeGroup {α : Type u} : Group (FreeGroup α)

Equations

• FreeGroup.instGroupFreeGroup = Group.mk (_ : ∀ (a : FreeGroup α), a⁻¹ * a = 1)

ink

def FreeAddGroup.of {α : Type u} (x : α) : FreeAddGroup α

of is the canonical injection from the type to the free group over that type by sending each element to the equivalence class of the letter that is the element.

Equations

• FreeAddGroup.of x = FreeAddGroup.mk [(x, true)]

ink

def FreeGroup.of {α : Type u} (x : α) : FreeGroup α

of is the canonical injection from the type to the free group over that type by sending each element to the equivalence class of the letter that is the element.

Equations

• FreeGroup.of x = FreeGroup.mk [(x, true)]

ink

theorem FreeAddGroup.Red.exact {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeAddGroup.mk L₁ = FreeAddGroup.mk L₂ ↔ Relation.Join FreeAddGroup.Red L₁ L₂

ink

theorem FreeGroup.Red.exact {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} : FreeGroup.mk L₁ = FreeGroup.mk L₂ ↔ Relation.Join FreeGroup.Red L₁ L₂

ink

theorem FreeAddGroup.of_injective {α : Type u} : Function.Injective FreeAddGroup.of

The canonical map from the type to the additive free group is an injection.

ink

abbrev FreeAddGroup.of_injective.match_1 {α : Type u_1} : (x x_1 : α) → ∀ (motive : Relation.Join FreeAddGroup.Red [(x, true)] [(x_1, true)] → Prop) (x_2 : Relation.Join FreeAddGroup.Red [(x, true)] [(x_1, true)]), (∀ (L₁ : List (α × Bool)) (hx : FreeAddGroup.Red [(x, true)] L₁) (hy : FreeAddGroup.Red [(x_1, true)] L₁), motive (_ : ∃ c, FreeAddGroup.Red [(x, true)] c ∧ FreeAddGroup.Red [(x_1, true)] c)) → motive x_2

Equations

• FreeAddGroup.of_injective.match_1 x x motive x h_1 = Exists.casesOn x fun w h => And.casesOn h fun left right => h_1 w left right

ink

theorem FreeGroup.of_injective {α : Type u} : Function.Injective FreeGroup.of

The canonical map from the type to the free group is an injection.

ink

def FreeAddGroup.Lift.aux {α : Type u} {β : Type v} [inst : AddGroup β] (f : α → β) : List (α × Bool) → β

Given f : α → β→ β with β an additive group, the canonical map list (α × bool) → β× bool) → β→ β

Equations

• FreeAddGroup.Lift.aux f L = List.sum (List.map (fun x => bif x.snd then f x.fst else -f x.fst) L)

ink

def FreeGroup.Lift.aux {α : Type u} {β : Type v} [inst : Group β] (f : α → β) : List (α × Bool) → β

Given f : α → β→ β with β a group, the canonical map list (α × bool) → β× bool) → β→ β

Equations

• FreeGroup.Lift.aux f L = List.prod (List.map (fun x => bif x.snd then f x.fst else (f x.fst)⁻¹) L)

ink

theorem FreeAddGroup.Red.Step.lift {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {β : Type v} [inst : AddGroup β] {f : α → β} (H : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂

ink

theorem FreeGroup.Red.Step.lift {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {β : Type v} [inst : Group β] {f : α → β} (H : FreeGroup.Red.Step L₁ L₂) : FreeGroup.Lift.aux f L₁ = FreeGroup.Lift.aux f L₂

ink

def FreeAddGroup.lift.proof_2 {α : Type u_1} {β : Type u_2} [inst : AddGroup β] (f : α → β) : ∀ (a b : FreeAddGroup α), Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) (a + b) = Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) a + Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) b

Equations

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

ink

def FreeAddGroup.lift.proof_4 {α : Type u_1} {β : Type u_2} [inst : AddGroup β] (g : FreeAddGroup α →+ β) : (fun f => AddMonoidHom.mk' (Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂)) (_ : ∀ (a b : FreeAddGroup α), Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) (a + b) = Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) a + Quot.lift (FreeAddGroup.Lift.aux f) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) b)) ((fun g => ↑g ∘ FreeAddGroup.of) g) = g

Equations

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

ink

def FreeAddGroup.lift.proof_3 {α : Type u_1} {β : Type u_2} [inst : AddGroup β] (f : α → β) : (0 + fun x => (fun x => bif x.snd then f x.fst else -f x.fst) (x, true)) = fun x => (fun x => bif x.snd then f x.fst else -f x.fst) (x, true)

Equations

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

ink

def FreeAddGroup.lift.proof_1 {α : Type u_1} {β : Type u_2} [inst : AddGroup β] (f : α → β) (L₁ : List (α × Bool)) (L₂ : List (α × Bool)) (H : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂

Equations

• (_ : FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂) = (_ : FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Lift.aux f L₁ = FreeAddGroup.Lift.aux f L₂)

ink

def FreeAddGroup.lift {α : Type u} {β : Type v} [inst : AddGroup β] : (α → β) ≃ (FreeAddGroup α →+ β)

If β is an additive group, then any function from α to β extends uniquely to an additive group homomorphism from the free additive group over α to β

Equations

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

ink

@[simp]

theorem FreeGroup.lift_symm_apply {α : Type u} {β : Type v} [inst : Group β] (g : FreeGroup α →* β) : ∀ (a : α), ↑(Equiv.symm FreeGroup.lift) g a = (↑g ∘ FreeGroup.of) a

ink

@[simp]

theorem FreeAddGroup.lift_symm_apply {α : Type u} {β : Type v} [inst : AddGroup β] (g : FreeAddGroup α →+ β) : ∀ (a : α), ↑(Equiv.symm FreeAddGroup.lift) g a = (↑g ∘ FreeAddGroup.of) a

ink

def FreeGroup.lift {α : Type u} {β : Type v} [inst : Group β] : (α → β) ≃ (FreeGroup α →* β)

If β is a group, then any function from α to β extends uniquely to a group homomorphism from the free group over α to β

Equations

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

ink

@[simp]

theorem FreeAddGroup.lift.mk {α : Type u} {L : List (α × Bool)} {β : Type v} [inst : AddGroup β] {f : α → β} : ↑(↑FreeAddGroup.lift f) (FreeAddGroup.mk L) = List.sum (List.map (fun x => bif x.snd then f x.fst else -f x.fst) L)

ink

@[simp]

theorem FreeGroup.lift.mk {α : Type u} {L : List (α × Bool)} {β : Type v} [inst : Group β] {f : α → β} : ↑(↑FreeGroup.lift f) (FreeGroup.mk L) = List.prod (List.map (fun x => bif x.snd then f x.fst else (f x.fst)⁻¹) L)

ink

@[simp]

theorem FreeAddGroup.lift.of {α : Type u} {β : Type v} [inst : AddGroup β] {f : α → β} {x : α} : ↑(↑FreeAddGroup.lift f) (FreeAddGroup.of x) = f x

ink

@[simp]

theorem FreeGroup.lift.of {α : Type u} {β : Type v} [inst : Group β] {f : α → β} {x : α} : ↑(↑FreeGroup.lift f) (FreeGroup.of x) = f x

ink

theorem FreeAddGroup.lift.unique {α : Type u} {β : Type v} [inst : AddGroup β] {f : α → β} (g : FreeAddGroup α →+ β) (hg : ∀ (x : α), ↑g (FreeAddGroup.of x) = f x) {x : FreeAddGroup α} : ↑g x = ↑(↑FreeAddGroup.lift f) x

ink

theorem FreeGroup.lift.unique {α : Type u} {β : Type v} [inst : Group β] {f : α → β} (g : FreeGroup α →* β) (hg : ∀ (x : α), ↑g (FreeGroup.of x) = f x) {x : FreeGroup α} : ↑g x = ↑(↑FreeGroup.lift f) x

ink

theorem FreeAddGroup.ext_hom {α : Type u} {G : Type u_1} [inst : AddGroup G] (f : FreeAddGroup α →+ G) (g : FreeAddGroup α →+ G) (h : ∀ (a : α), ↑f (FreeAddGroup.of a) = ↑g (FreeAddGroup.of a)) : f = g

Two homomorphisms out of a free additive group are equal if they are equal on generators. See note [partially-applied ext lemmas].

ink

theorem FreeGroup.ext_hom {α : Type u} {G : Type u_1} [inst : Group G] (f : FreeGroup α →* G) (g : FreeGroup α →* G) (h : ∀ (a : α), ↑f (FreeGroup.of a) = ↑g (FreeGroup.of a)) : f = g

Two homomorphisms out of a free group are equal if they are equal on generators.

See note [partially-applied ext lemmas].

ink

theorem FreeAddGroup.lift.of_eq {α : Type u} (x : FreeAddGroup α) : ↑(↑FreeAddGroup.lift FreeAddGroup.of) x = x

ink

theorem FreeGroup.lift.of_eq {α : Type u} (x : FreeGroup α) : ↑(↑FreeGroup.lift FreeGroup.of) x = x

ink

theorem FreeAddGroup.lift.range_le {α : Type u} {β : Type v} [inst : AddGroup β] {f : α → β} {s : AddSubgroup β} (H : Set.range f ⊆ ↑s) : AddMonoidHom.range (↑FreeAddGroup.lift f) ≤ s

ink

theorem FreeGroup.lift.range_le {α : Type u} {β : Type v} [inst : Group β] {f : α → β} {s : Subgroup β} (H : Set.range f ⊆ ↑s) : MonoidHom.range (↑FreeGroup.lift f) ≤ s

ink

theorem FreeAddGroup.lift.range_eq_closure {α : Type u} {β : Type v} [inst : AddGroup β] {f : α → β} : AddMonoidHom.range (↑FreeAddGroup.lift f) = AddSubgroup.closure (Set.range f)

ink

theorem FreeGroup.lift.range_eq_closure {α : Type u} {β : Type v} [inst : Group β] {f : α → β} : MonoidHom.range (↑FreeGroup.lift f) = Subgroup.closure (Set.range f)

ink

def FreeAddGroup.map {α : Type u} {β : Type v} (f : α → β) : FreeAddGroup α →+ FreeAddGroup β

Any function from α to β extends uniquely to an additive group homomorphism from the additive free group over α to the additive free group over β.

Equations

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

ink

def FreeAddGroup.map.proof_2 {α : Type u_1} {β : Type u_2} (f : α → β) : ∀ (a b : FreeAddGroup α), Quot.map (List.map fun x => (f x.fst, x.snd)) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Red.Step (List.map (fun x => (f x.fst, x.snd)) L₁) (List.map (fun x => (f x.fst, x.snd)) L₂)) (a + b) = Quot.map (List.map fun x => (f x.fst, x.snd)) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Red.Step (List.map (fun x => (f x.fst, x.snd)) L₁) (List.map (fun x => (f x.fst, x.snd)) L₂)) a + Quot.map (List.map fun x => (f x.fst, x.snd)) (_ : ∀ (L₁ L₂ : List (α × Bool)), FreeAddGroup.Red.Step L₁ L₂ → FreeAddGroup.Red.Step (List.map (fun x => (f x.fst, x.snd)) L₁) (List.map (fun x => (f x.fst, x.snd)) L₂)) b

Equations

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

ink

def FreeAddGroup.map.proof_1 {α : Type u_1} {β : Type u_2} (f : α → β) (L₁ : List (α × Bool)) (L₂ : List (α × Bool)) (H : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.Red.Step (List.map (fun x => (f x.fst, x.snd)) L₁) (List.map (fun x => (f x.fst, x.snd)) L₂)

Equations

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

ink

def FreeGroup.map {α : Type u} {β : Type v} (f : α → β) : FreeGroup α →* FreeGroup β

Any function from α to β extends uniquely to a group homomorphism from the free group over α to the free group over β.

Equations

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

ink

@[simp]

theorem FreeAddGroup.map.mk {α : Type u} {L : List (α × Bool)} {β : Type v} {f : α → β} : ↑(FreeAddGroup.map f) (FreeAddGroup.mk L) = FreeAddGroup.mk (List.map (fun x => (f x.fst, x.snd)) L)

ink

@[simp]

theorem FreeGroup.map.mk {α : Type u} {L : List (α × Bool)} {β : Type v} {f : α → β} : ↑(FreeGroup.map f) (FreeGroup.mk L) = FreeGroup.mk (List.map (fun x => (f x.fst, x.snd)) L)

ink

@[simp]

theorem FreeAddGroup.map.id {α : Type u} (x : FreeAddGroup α) : ↑(FreeAddGroup.map id) x = x

ink

@[simp]

theorem FreeGroup.map.id {α : Type u} (x : FreeGroup α) : ↑(FreeGroup.map id) x = x

ink

@[simp]

theorem FreeAddGroup.map.id' {α : Type u} (x : FreeAddGroup α) : ↑(FreeAddGroup.map fun z => z) x = x

ink

@[simp]

theorem FreeGroup.map.id' {α : Type u} (x : FreeGroup α) : ↑(FreeGroup.map fun z => z) x = x

ink

theorem FreeAddGroup.map.comp {α : Type u} {β : Type v} {γ : Type w} (f : α → β) (g : β → γ) (x : FreeAddGroup α) : ↑(FreeAddGroup.map g) (↑(FreeAddGroup.map f) x) = ↑(FreeAddGroup.map (g ∘ f)) x

ink

theorem FreeGroup.map.comp {α : Type u} {β : Type v} {γ : Type w} (f : α → β) (g : β → γ) (x : FreeGroup α) : ↑(FreeGroup.map g) (↑(FreeGroup.map f) x) = ↑(FreeGroup.map (g ∘ f)) x

ink

@[simp]

theorem FreeAddGroup.map.of {α : Type u} {β : Type v} {f : α → β} {x : α} : ↑(FreeAddGroup.map f) (FreeAddGroup.of x) = FreeAddGroup.of (f x)

ink

@[simp]

theorem FreeGroup.map.of {α : Type u} {β : Type v} {f : α → β} {x : α} : ↑(FreeGroup.map f) (FreeGroup.of x) = FreeGroup.of (f x)

ink

theorem FreeAddGroup.map.unique {α : Type u} {β : Type v} {f : α → β} (g : FreeAddGroup α →+ FreeAddGroup β) (hg : ∀ (x : α), ↑g (FreeAddGroup.of x) = FreeAddGroup.of (f x)) {x : FreeAddGroup α} : ↑g x = ↑(FreeAddGroup.map f) x

ink

theorem FreeGroup.map.unique {α : Type u} {β : Type v} {f : α → β} (g : FreeGroup α →* FreeGroup β) (hg : ∀ (x : α), ↑g (FreeGroup.of x) = FreeGroup.of (f x)) {x : FreeGroup α} : ↑g x = ↑(FreeGroup.map f) x

ink

theorem FreeAddGroup.map_eq_lift {α : Type u} {β : Type v} {f : α → β} {x : FreeAddGroup α} : ↑(FreeAddGroup.map f) x = ↑(↑FreeAddGroup.lift (FreeAddGroup.of ∘ f)) x

ink

theorem FreeGroup.map_eq_lift {α : Type u} {β : Type v} {f : α → β} {x : FreeGroup α} : ↑(FreeGroup.map f) x = ↑(↑FreeGroup.lift (FreeGroup.of ∘ f)) x

ink

def FreeAddGroup.freeAddGroupCongr.proof_2 {α : Type u_2} {β : Type u_1} (e : α ≃ β) (x : FreeAddGroup β) : ↑(FreeAddGroup.map ↑e) (↑(FreeAddGroup.map ↑(Equiv.symm e)) x) = x

Equations

• (_ : ↑(FreeAddGroup.map ↑e) (↑(FreeAddGroup.map ↑(Equiv.symm e)) x) = x) = (_ : ↑(FreeAddGroup.map ↑e) (↑(FreeAddGroup.map ↑(Equiv.symm e)) x) = x)

ink

def FreeAddGroup.freeAddGroupCongr {α : Type u_1} {β : Type u_2} (e : α ≃ β) : FreeAddGroup α ≃+ FreeAddGroup β

Equivalent types give rise to additively equivalent additive free groups.

Equations

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

ink

def FreeAddGroup.freeAddGroupCongr.proof_3 {α : Type u_1} {β : Type u_2} (e : α ≃ β) (a : FreeAddGroup α) (b : FreeAddGroup α) : ↑(FreeAddGroup.map ↑e) (a + b) = ↑(FreeAddGroup.map ↑e) a + ↑(FreeAddGroup.map ↑e) b

Equations

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

ink

def FreeAddGroup.freeAddGroupCongr.proof_1 {α : Type u_1} {β : Type u_2} (e : α ≃ β) (x : FreeAddGroup α) : ↑(FreeAddGroup.map ↑(Equiv.symm e)) (↑(FreeAddGroup.map ↑e) x) = x

Equations

• (_ : ↑(FreeAddGroup.map ↑(Equiv.symm e)) (↑(FreeAddGroup.map ↑e) x) = x) = (_ : ↑(FreeAddGroup.map ↑(Equiv.symm e)) (↑(FreeAddGroup.map ↑e) x) = x)

ink

@[simp]

theorem FreeAddGroup.freeAddGroupCongr_apply {α : Type u_1} {β : Type u_2} (e : α ≃ β) (a : FreeAddGroup α) : ↑(FreeAddGroup.freeAddGroupCongr e) a = ↑(FreeAddGroup.map ↑e) a

ink

@[simp]

theorem FreeGroup.freeGroupCongr_apply {α : Type u_1} {β : Type u_2} (e : α ≃ β) (a : FreeGroup α) : ↑(FreeGroup.freeGroupCongr e) a = ↑(FreeGroup.map ↑e) a

ink

def FreeGroup.freeGroupCongr {α : Type u_1} {β : Type u_2} (e : α ≃ β) : FreeGroup α ≃* FreeGroup β

Equivalent types give rise to multiplicatively equivalent free groups.

The converse can be found in GroupTheory.FreeAbelianGroupFinsupp, as Equiv.of_freeGroupEquiv

Equations

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

ink

@[simp]

theorem FreeAddGroup.freeAddGroupCongr_refl {α : Type u} : FreeAddGroup.freeAddGroupCongr (Equiv.refl α) = AddEquiv.refl (FreeAddGroup α)

ink

@[simp]

theorem FreeGroup.freeGroupCongr_refl {α : Type u} : FreeGroup.freeGroupCongr (Equiv.refl α) = MulEquiv.refl (FreeGroup α)

ink

@[simp]

theorem FreeAddGroup.freeAddGroupCongr_symm {α : Type u_1} {β : Type u_2} (e : α ≃ β) : AddEquiv.symm (FreeAddGroup.freeAddGroupCongr e) = FreeAddGroup.freeAddGroupCongr (Equiv.symm e)

ink

@[simp]

theorem FreeGroup.freeGroupCongr_symm {α : Type u_1} {β : Type u_2} (e : α ≃ β) : MulEquiv.symm (FreeGroup.freeGroupCongr e) = FreeGroup.freeGroupCongr (Equiv.symm e)

ink

theorem FreeAddGroup.freeAddGroupCongr_trans {α : Type u_1} {β : Type u_2} {γ : Type u_3} (e : α ≃ β) (f : β ≃ γ) : AddEquiv.trans (FreeAddGroup.freeAddGroupCongr e) (FreeAddGroup.freeAddGroupCongr f) = FreeAddGroup.freeAddGroupCongr (Equiv.trans e f)

ink

theorem FreeGroup.freeGroupCongr_trans {α : Type u_1} {β : Type u_2} {γ : Type u_3} (e : α ≃ β) (f : β ≃ γ) : MulEquiv.trans (FreeGroup.freeGroupCongr e) (FreeGroup.freeGroupCongr f) = FreeGroup.freeGroupCongr (Equiv.trans e f)

ink

def FreeAddGroup.sum {α : Type u} [inst : AddGroup α] : FreeAddGroup α →+ α

If α is an additive group, then any function from α to α extends uniquely to an additive homomorphism from the additive free group over α to α.

Equations

• FreeAddGroup.sum = ↑FreeAddGroup.lift id

ink

def FreeGroup.prod {α : Type u} [inst : Group α] : FreeGroup α →* α

If α is a group, then any function from α to α extends uniquely to a homomorphism from the free group over α to α. This is the multiplicative version of FreeGroup.sum.

Equations

• FreeGroup.prod = ↑FreeGroup.lift id

ink

@[simp]

theorem FreeAddGroup.sum_mk {α : Type u} {L : List (α × Bool)} [inst : AddGroup α] : ↑FreeAddGroup.sum (FreeAddGroup.mk L) = List.sum (List.map (fun x => bif x.snd then x.fst else -x.fst) L)

ink

@[simp]

theorem FreeGroup.prod_mk {α : Type u} {L : List (α × Bool)} [inst : Group α] : ↑FreeGroup.prod (FreeGroup.mk L) = List.prod (List.map (fun x => bif x.snd then x.fst else x.fst⁻¹) L)

ink

@[simp]

theorem FreeAddGroup.sum.of {α : Type u} [inst : AddGroup α] {x : α} : ↑FreeAddGroup.sum (FreeAddGroup.of x) = x

ink

@[simp]

theorem FreeGroup.prod.of {α : Type u} [inst : Group α] {x : α} : ↑FreeGroup.prod (FreeGroup.of x) = x

ink

theorem FreeAddGroup.sum.unique {α : Type u} [inst : AddGroup α] (g : FreeAddGroup α →+ α) (hg : ∀ (x : α), ↑g (FreeAddGroup.of x) = x) {x : FreeAddGroup α} : ↑g x = ↑FreeAddGroup.sum x

ink

theorem FreeGroup.prod.unique {α : Type u} [inst : Group α] (g : FreeGroup α →* α) (hg : ∀ (x : α), ↑g (FreeGroup.of x) = x) {x : FreeGroup α} : ↑g x = ↑FreeGroup.prod x

ink

theorem FreeAddGroup.lift_eq_sum_map {α : Type u} {β : Type v} [inst : AddGroup β] {f : α → β} {x : FreeAddGroup α} : ↑(↑FreeAddGroup.lift f) x = ↑FreeAddGroup.sum (↑(FreeAddGroup.map f) x)

ink

theorem FreeGroup.lift_eq_prod_map {α : Type u} {β : Type v} [inst : Group β] {f : α → β} {x : FreeGroup α} : ↑(↑FreeGroup.lift f) x = ↑FreeGroup.prod (↑(FreeGroup.map f) x)

ink

def FreeGroup.sum {α : Type u} [inst : AddGroup α] (x : FreeGroup α) : α

If α is a group, then any function from α to α extends uniquely to a homomorphism from the free group over α to α. This is the additive version of prod.

Equations

• FreeGroup.sum x = ↑FreeGroup.prod x

ink

@[simp]

theorem FreeGroup.sum_mk {α : Type u} {L : List (α × Bool)} [inst : AddGroup α] : FreeGroup.sum (FreeGroup.mk L) = List.sum (List.map (fun x => bif x.snd then x.fst else -x.fst) L)

ink

@[simp]

theorem FreeGroup.sum.of {α : Type u} [inst : AddGroup α] {x : α} : FreeGroup.sum (FreeGroup.of x) = x

ink

@[simp]

theorem FreeGroup.sum.map_mul {α : Type u} [inst : AddGroup α] {x : FreeGroup α} {y : FreeGroup α} : FreeGroup.sum (x * y) = FreeGroup.sum x + FreeGroup.sum y

ink

@[simp]

theorem FreeGroup.sum.map_one {α : Type u} [inst : AddGroup α] : FreeGroup.sum 1 = 0

ink

@[simp]

theorem FreeGroup.sum.map_inv {α : Type u} [inst : AddGroup α] {x : FreeGroup α} : FreeGroup.sum x⁻¹ = -FreeGroup.sum x

ink

def FreeAddGroup.freeAddGroupEmptyEquivAddUnit : FreeAddGroup Empty ≃ Unit

The bijection between the additive free group on the empty type, and a type with one element.

Equations

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

ink

abbrev FreeAddGroup.freeAddGroupEmptyEquivAddUnit.match_1 (motive : Unit → Prop) : (x : Unit) → (Unit → motive PUnit.unit) → motive x

Equations

• FreeAddGroup.freeAddGroupEmptyEquivAddUnit.match_1 motive x h_1 = PUnit.casesOn x (h_1 ())

ink

def FreeAddGroup.freeAddGroupEmptyEquivAddUnit.proof_2 : ∀ (x : Unit), (fun x => ()) ((fun x => 0) x) = x

Equations

• (_ : (fun x => ()) ((fun x => 0) x) = x) = (_ : (fun x => ()) ((fun x => 0) x) = x)

ink

def FreeAddGroup.freeAddGroupEmptyEquivAddUnit.proof_1 : ∀ (x : FreeAddGroup Empty), (fun x => 0) ((fun x => ()) x) = x

Equations

• (_ : (fun x => 0) ((fun x => ()) x) = x) = (_ : (fun x => 0) ((fun x => ()) x) = x)

ink

def FreeGroup.freeGroupEmptyEquivUnit : FreeGroup Empty ≃ Unit

The bijection between the free group on the empty type, and a type with one element.

Equations

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

ink

def FreeGroup.freeGroupUnitEquivInt : FreeGroup Unit ≃ ℤ

The bijection between the free group on a singleton, and the integers.

Equations

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

ink

instance FreeAddGroup.instMonadFreeAddGroup : Monad FreeAddGroup

Equations

• FreeAddGroup.instMonadFreeAddGroup = Monad.mk

ink

instance FreeGroup.instMonadFreeGroup : Monad FreeGroup

Equations

• FreeGroup.instMonadFreeGroup = Monad.mk

ink

theorem FreeAddGroup.induction_on {α : Type u} {C : FreeAddGroup α → Prop} (z : FreeAddGroup α) (C1 : C 0) (Cp : (x : α) → C (pure x)) (Ci : (x : α) → C (pure x) → C (-pure x)) (Cm : (x y : FreeAddGroup α) → C x → C y → C (x + y)) : C z

ink

theorem FreeGroup.induction_on {α : Type u} {C : FreeGroup α → Prop} (z : FreeGroup α) (C1 : C 1) (Cp : (x : α) → C (pure x)) (Ci : (x : α) → C (pure x) → C (pure x)⁻¹) (Cm : (x y : FreeGroup α) → C x → C y → C (x * y)) : C z

ink

theorem FreeAddGroup.map_pure {α : Type u} {β : Type u} (f : α → β) (x : α) : f <$> pure x = pure (f x)

ink

theorem FreeGroup.map_pure {α : Type u} {β : Type u} (f : α → β) (x : α) : f <$> pure x = pure (f x)

ink

@[simp]

theorem FreeAddGroup.map_zero {α : Type u} {β : Type u} (f : α → β) : f <$> 0 = 0

ink

@[simp]

theorem FreeGroup.map_one {α : Type u} {β : Type u} (f : α → β) : f <$> 1 = 1

ink

@[simp]

theorem FreeAddGroup.map_add {α : Type u} {β : Type u} (f : α → β) (x : FreeAddGroup α) (y : FreeAddGroup α) : f <$> (x + y) = f <$> x + f <$> y

ink

@[simp]

theorem FreeGroup.map_mul {α : Type u} {β : Type u} (f : α → β) (x : FreeGroup α) (y : FreeGroup α) : f <$> (x * y) = f <$> x * f <$> y

ink

@[simp]

theorem FreeAddGroup.map_neg {α : Type u} {β : Type u} (f : α → β) (x : FreeAddGroup α) : f <$> (-x) = -f <$> x

ink

@[simp]

theorem FreeGroup.map_inv {α : Type u} {β : Type u} (f : α → β) (x : FreeGroup α) : f <$> x⁻¹ = (f <$> x)⁻¹

ink

theorem FreeAddGroup.pure_bind {α : Type u} {β : Type u} (f : α → FreeAddGroup β) (x : α) : pure x >>= f = f x

ink

theorem FreeGroup.pure_bind {α : Type u} {β : Type u} (f : α → FreeGroup β) (x : α) : pure x >>= f = f x

ink

@[simp]

theorem FreeAddGroup.zero_bind {α : Type u} {β : Type u} (f : α → FreeAddGroup β) : 0 >>= f = 0

ink

@[simp]

theorem FreeGroup.one_bind {α : Type u} {β : Type u} (f : α → FreeGroup β) : 1 >>= f = 1

ink

@[simp]

theorem FreeAddGroup.add_bind {α : Type u} {β : Type u} (f : α → FreeAddGroup β) (x : FreeAddGroup α) (y : FreeAddGroup α) : x + y >>= f = (x >>= f) + (y >>= f)

ink

@[simp]

theorem FreeGroup.mul_bind {α : Type u} {β : Type u} (f : α → FreeGroup β) (x : FreeGroup α) (y : FreeGroup α) : x * y >>= f = (x >>= f) * (y >>= f)

ink

@[simp]

theorem FreeAddGroup.neg_bind {α : Type u} {β : Type u} (f : α → FreeAddGroup β) (x : FreeAddGroup α) : -x >>= f = -(x >>= f)

ink

@[simp]

theorem FreeGroup.inv_bind {α : Type u} {β : Type u} (f : α → FreeGroup β) (x : FreeGroup α) : x⁻¹ >>= f = (x >>= f)⁻¹

ink

instance FreeAddGroup.instLawfulMonadFreeAddGroupInstMonadFreeAddGroup : LawfulMonad FreeAddGroup

Equations

• FreeAddGroup.instLawfulMonadFreeAddGroupInstMonadFreeAddGroup = FreeAddGroup.instLawfulMonadFreeAddGroupInstMonadFreeAddGroup.proof_1

ink

def FreeAddGroup.instLawfulMonadFreeAddGroupInstMonadFreeAddGroup.proof_1 : LawfulMonad FreeAddGroup

Equations

• FreeAddGroup.instLawfulMonadFreeAddGroupInstMonadFreeAddGroup.proof_1 = (_ : LawfulMonad FreeAddGroup)

ink

instance FreeGroup.instLawfulMonadFreeGroupInstMonadFreeGroup : LawfulMonad FreeGroup

Equations

• FreeGroup.instLawfulMonadFreeGroupInstMonadFreeGroup = FreeGroup.instLawfulMonadFreeGroupInstMonadFreeGroup.proof_1

ink

def FreeAddGroup.reduce {α : Type u} [inst : DecidableEq α] (L : List (α × Bool)) : List (α × Bool)

The maximal reduction of a word. It is computable iff α has decidable equality.

Equations

• FreeAddGroup.reduce t = List.rec [] (fun hd1 _tl1 ih => List.casesOn ih [hd1] fun hd2 tl2 => if hd1.fst = hd2.fst ∧ hd1.snd = !hd2.snd then tl2 else hd1 :: hd2 :: tl2) t

ink

def FreeGroup.reduce {α : Type u} [inst : DecidableEq α] (L : List (α × Bool)) : List (α × Bool)

The maximal reduction of a word. It is computable iff α has decidable equality.

Equations

• FreeGroup.reduce t = List.rec [] (fun hd1 _tl1 ih => List.casesOn ih [hd1] fun hd2 tl2 => if hd1.fst = hd2.fst ∧ hd1.snd = !hd2.snd then tl2 else hd1 :: hd2 :: tl2) t

ink

@[simp]

theorem FreeAddGroup.reduce.cons {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] (x : α × Bool) : FreeAddGroup.reduce (x :: L) = List.casesOn (FreeAddGroup.reduce L) [x] fun hd tl => if x.fst = hd.fst ∧ x.snd = !hd.snd then tl else x :: hd :: tl

ink

@[simp]

theorem FreeGroup.reduce.cons {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] (x : α × Bool) : FreeGroup.reduce (x :: L) = List.casesOn (FreeGroup.reduce L) [x] fun hd tl => if x.fst = hd.fst ∧ x.snd = !hd.snd then tl else x :: hd :: tl

ink

theorem FreeAddGroup.reduce.red {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeAddGroup.Red L (FreeAddGroup.reduce L)

The first theorem that characterises the function reduce: a word reduces to its maximal reduction.

ink

theorem FreeGroup.reduce.red {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeGroup.Red L (FreeGroup.reduce L)

The first theorem that characterises the function reduce: a word reduces to its maximal reduction.

ink

abbrev FreeAddGroup.reduce.not.match_1 {α : Type u_1} (motive : List (α × Bool) → List (α × Bool) → List (α × Bool) → α → Bool → Prop) : (x x_1 x_2 : List (α × Bool)) → (x_3 : α) → (x_4 : Bool) → ((L2 L3 : List (α × Bool)) → (x : α) → (x_5 : Bool) → motive [] L2 L3 x x_5) → ((x : α) → (b : Bool) → (L1 L2 L3 : List (α × Bool)) → (x' : α) → (b' : Bool) → motive ((x, b) :: L1) L2 L3 x' b') → motive x x_1 x_2 x_3 x_4

Equations

• FreeAddGroup.reduce.not.match_1 motive x x x x x h_1 h_2 = List.casesOn x (h_1 x x x x) fun head tail => Prod.casesOn head fun fst snd => h_2 fst snd tail x x x x

ink

theorem FreeAddGroup.reduce.not {α : Type u} [inst : DecidableEq α] {p : Prop} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {x : α} {b : Bool} : FreeAddGroup.reduce L₁ = L₂ ++ (x, b) :: (x, !b) :: L₃ → p

ink

theorem FreeGroup.reduce.not {α : Type u} [inst : DecidableEq α] {p : Prop} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} {x : α} {b : Bool} : FreeGroup.reduce L₁ = L₂ ++ (x, b) :: (x, !b) :: L₃ → p

ink

theorem FreeAddGroup.reduce.min {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.Red (FreeAddGroup.reduce L₁) L₂) : FreeAddGroup.reduce L₁ = L₂

The second theorem that characterises the function reduce: the maximal reduction of a word only reduces to itself.

ink

theorem FreeGroup.reduce.min {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red (FreeGroup.reduce L₁) L₂) : FreeGroup.reduce L₁ = L₂

The second theorem that characterises the function reduce: the maximal reduction of a word only reduces to itself.

ink

@[simp]

theorem FreeAddGroup.reduce.idem {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeAddGroup.reduce (FreeAddGroup.reduce L) = FreeAddGroup.reduce L

reduce is idempotent, i.e. the maximal reduction of the maximal reduction of a word is the maximal reduction of the word.

ink

@[simp]

theorem FreeGroup.reduce.idem {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeGroup.reduce (FreeGroup.reduce L) = FreeGroup.reduce L

reduce is idempotent, i.e. the maximal reduction of the maximal reduction of a word is the maximal reduction of the word.

ink

abbrev FreeAddGroup.reduce.Step.eq.match_1 {α : Type u_1} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (motive : Relation.Join FreeAddGroup.Red (FreeAddGroup.reduce L₁) (FreeAddGroup.reduce L₂) → Prop) : (x : Relation.Join FreeAddGroup.Red (FreeAddGroup.reduce L₁) (FreeAddGroup.reduce L₂)) → ((_L₃ : List (α × Bool)) → (HR13 : FreeAddGroup.Red (FreeAddGroup.reduce L₁) _L₃) → (HR23 : FreeAddGroup.Red (FreeAddGroup.reduce L₂) _L₃) → motive (_ : ∃ c, FreeAddGroup.Red (FreeAddGroup.reduce L₁) c ∧ FreeAddGroup.Red (FreeAddGroup.reduce L₂) c)) → motive x

Equations

• FreeAddGroup.reduce.Step.eq.match_1 motive x h_1 = Exists.casesOn x fun w h => And.casesOn h fun left right => h_1 w left right

ink

theorem FreeAddGroup.reduce.Step.eq {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.Red.Step L₁ L₂) : FreeAddGroup.reduce L₁ = FreeAddGroup.reduce L₂

ink

theorem FreeGroup.reduce.Step.eq {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red.Step L₁ L₂) : FreeGroup.reduce L₁ = FreeGroup.reduce L₂

ink

theorem FreeAddGroup.reduce.eq_of_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.reduce L₁ = FreeAddGroup.reduce L₂

If a word reduces to another word, then they have a common maximal reduction.

ink

theorem FreeGroup.reduce.eq_of_red {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red L₁ L₂) : FreeGroup.reduce L₁ = FreeGroup.reduce L₂

If a word reduces to another word, then they have a common maximal reduction.

ink

theorem FreeGroup.red.reduce_eq {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red L₁ L₂) : FreeGroup.reduce L₁ = FreeGroup.reduce L₂

Alias of FreeGroup.reduce.eq_of_red.

ink

theorem FreeGroup.freeAddGroup.red.reduce_eq {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.reduce L₁ = FreeAddGroup.reduce L₂

Alias of FreeAddGroup.reduce.eq_of_red.

ink

theorem FreeAddGroup.Red.reduce_right {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (h : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.Red L₁ (FreeAddGroup.reduce L₂)

ink

theorem FreeGroup.Red.reduce_right {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (h : FreeGroup.Red L₁ L₂) : FreeGroup.Red L₁ (FreeGroup.reduce L₂)

ink

theorem FreeAddGroup.Red.reduce_left {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (h : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁)

ink

theorem FreeGroup.Red.reduce_left {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (h : FreeGroup.Red L₁ L₂) : FreeGroup.Red L₂ (FreeGroup.reduce L₁)

ink

abbrev FreeAddGroup.reduce.sound.match_1 {α : Type u_1} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} (motive : Relation.Join FreeAddGroup.Red L₁ L₂ → Prop) : (x : Relation.Join FreeAddGroup.Red L₁ L₂) → ((_L₃ : List (α × Bool)) → (H13 : FreeAddGroup.Red L₁ _L₃) → (H23 : FreeAddGroup.Red L₂ _L₃) → motive (_ : ∃ c, FreeAddGroup.Red L₁ c ∧ FreeAddGroup.Red L₂ c)) → motive x

Equations

• FreeAddGroup.reduce.sound.match_1 motive x h_1 = Exists.casesOn x fun w h => And.casesOn h fun left right => h_1 w left right

ink

theorem FreeAddGroup.reduce.sound {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.mk L₁ = FreeAddGroup.mk L₂) : FreeAddGroup.reduce L₁ = FreeAddGroup.reduce L₂

If two words correspond to the same element in the additive free group, then they have a common maximal reduction. This is the proof that the function that sends an element of the free group to its maximal reduction is well-defined.

ink

theorem FreeGroup.reduce.sound {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.mk L₁ = FreeGroup.mk L₂) : FreeGroup.reduce L₁ = FreeGroup.reduce L₂

If two words correspond to the same element in the free group, then they have a common maximal reduction. This is the proof that the function that sends an element of the free group to its maximal reduction is well-defined.

ink

theorem FreeAddGroup.reduce.exact {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.reduce L₁ = FreeAddGroup.reduce L₂) : FreeAddGroup.mk L₁ = FreeAddGroup.mk L₂

If two words have a common maximal reduction, then they correspond to the same element in the additive free group.

ink

theorem FreeGroup.reduce.exact {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.reduce L₁ = FreeGroup.reduce L₂) : FreeGroup.mk L₁ = FreeGroup.mk L₂

If two words have a common maximal reduction, then they correspond to the same element in the free group.

ink

theorem FreeAddGroup.reduce.self {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeAddGroup.mk (FreeAddGroup.reduce L) = FreeAddGroup.mk L

A word and its maximal reduction correspond to the same element of the additive free group.

ink

theorem FreeGroup.reduce.self {α : Type u} {L : List (α × Bool)} [inst : DecidableEq α] : FreeGroup.mk (FreeGroup.reduce L) = FreeGroup.mk L

A word and its maximal reduction correspond to the same element of the free group.

ink

theorem FreeAddGroup.reduce.rev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeAddGroup.Red L₁ L₂) : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁)

If words w₁ w₂ are such that w₁ reduces to w₂, then w₂ reduces to the maximal reduction of w₁.

ink

theorem FreeGroup.reduce.rev {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red L₁ L₂) : FreeGroup.Red L₂ (FreeGroup.reduce L₁)

If words w₁ w₂ are such that w₁ reduces to w₂, then w₂ reduces to the maximal reduction of w₁.

ink

def FreeAddGroup.toWord {α : Type u} [inst : DecidableEq α] : FreeAddGroup α → List (α × Bool)

The function that sends an element of the additive free group to its maximal reduction.

Equations

• FreeAddGroup.toWord = Quot.lift FreeAddGroup.reduce (_ : ∀ (_L₁ _L₂ : List (α × Bool)), FreeAddGroup.Red.Step _L₁ _L₂ → FreeAddGroup.reduce _L₁ = FreeAddGroup.reduce _L₂)

ink

def FreeAddGroup.toWord.proof_1 {α : Type u_1} [inst : DecidableEq α] (_L₁ : List (α × Bool)) (_L₂ : List (α × Bool)) (H : FreeAddGroup.Red.Step _L₁ _L₂) : FreeAddGroup.reduce _L₁ = FreeAddGroup.reduce _L₂

Equations

• (_ : FreeAddGroup.reduce _L₁ = FreeAddGroup.reduce _L₂) = (_ : FreeAddGroup.reduce _L₁ = FreeAddGroup.reduce _L₂)

ink

def FreeGroup.toWord {α : Type u} [inst : DecidableEq α] : FreeGroup α → List (α × Bool)

The function that sends an element of the free group to its maximal reduction.

Equations

• FreeGroup.toWord = Quot.lift FreeGroup.reduce (_ : ∀ (_L₁ _L₂ : List (α × Bool)), FreeGroup.Red.Step _L₁ _L₂ → FreeGroup.reduce _L₁ = FreeGroup.reduce _L₂)

ink

theorem FreeAddGroup.mk_toWord {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} : FreeAddGroup.mk (FreeAddGroup.toWord x) = x

ink

theorem FreeGroup.mk_toWord {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} : FreeGroup.mk (FreeGroup.toWord x) = x

ink

theorem FreeAddGroup.toWord_injective {α : Type u} [inst : DecidableEq α] : Function.Injective FreeAddGroup.toWord

ink

theorem FreeGroup.toWord_injective {α : Type u} [inst : DecidableEq α] : Function.Injective FreeGroup.toWord

ink

@[simp]

theorem FreeAddGroup.toWord_inj {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} {y : FreeAddGroup α} : FreeAddGroup.toWord x = FreeAddGroup.toWord y ↔ x = y

ink

@[simp]

theorem FreeGroup.toWord_inj {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} {y : FreeGroup α} : FreeGroup.toWord x = FreeGroup.toWord y ↔ x = y

ink

@[simp]

theorem FreeAddGroup.toWord_mk {α : Type u} {L₁ : List (α × Bool)} [inst : DecidableEq α] : FreeAddGroup.toWord (FreeAddGroup.mk L₁) = FreeAddGroup.reduce L₁

ink

@[simp]

theorem FreeGroup.toWord_mk {α : Type u} {L₁ : List (α × Bool)} [inst : DecidableEq α] : FreeGroup.toWord (FreeGroup.mk L₁) = FreeGroup.reduce L₁

ink

@[simp]

theorem FreeAddGroup.reduce_toWord {α : Type u} [inst : DecidableEq α] (x : FreeAddGroup α) : FreeAddGroup.reduce (FreeAddGroup.toWord x) = FreeAddGroup.toWord x

ink

@[simp]

theorem FreeGroup.reduce_toWord {α : Type u} [inst : DecidableEq α] (x : FreeGroup α) : FreeGroup.reduce (FreeGroup.toWord x) = FreeGroup.toWord x

ink

@[simp]

theorem FreeAddGroup.toWord_zero {α : Type u} [inst : DecidableEq α] : FreeAddGroup.toWord 0 = []

ink

@[simp]

theorem FreeGroup.toWord_one {α : Type u} [inst : DecidableEq α] : FreeGroup.toWord 1 = []

ink

@[simp]

theorem FreeAddGroup.toWord_eq_nil_iff {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} : FreeAddGroup.toWord x = [] ↔ x = 0

ink

@[simp]

theorem FreeGroup.toWord_eq_nil_iff {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} : FreeGroup.toWord x = [] ↔ x = 1

ink

theorem FreeAddGroup.reduce_negRev {α : Type u} [inst : DecidableEq α] {w : List (α × Bool)} : FreeAddGroup.reduce (FreeAddGroup.negRev w) = FreeAddGroup.negRev (FreeAddGroup.reduce w)

ink

theorem FreeGroup.reduce_invRev {α : Type u} [inst : DecidableEq α] {w : List (α × Bool)} : FreeGroup.reduce (FreeGroup.invRev w) = FreeGroup.invRev (FreeGroup.reduce w)

ink

theorem FreeAddGroup.toWord_neg {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} : FreeAddGroup.toWord (-x) = FreeAddGroup.negRev (FreeAddGroup.toWord x)

ink

theorem FreeGroup.toWord_inv {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} : FreeGroup.toWord x⁻¹ = FreeGroup.invRev (FreeGroup.toWord x)

ink

def FreeAddGroup.reduce.churchRosser {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} [inst : DecidableEq α] (H12 : FreeAddGroup.Red L₁ L₂) (H13 : FreeAddGroup.Red L₁ L₃) : { L₄ // FreeAddGroup.Red L₂ L₄ ∧ FreeAddGroup.Red L₃ L₄ }

Constructive Church-Rosser theorem (compare church_rosser).

Equations

• FreeAddGroup.reduce.churchRosser H12 H13 = { val := FreeAddGroup.reduce L₁, property := (_ : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁) ∧ FreeAddGroup.Red L₃ (FreeAddGroup.reduce L₁)) }

ink

def FreeAddGroup.reduce.churchRosser.proof_1 {α : Type u_1} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} [inst : DecidableEq α] (H12 : FreeAddGroup.Red L₁ L₂) (H13 : FreeAddGroup.Red L₁ L₃) : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁) ∧ FreeAddGroup.Red L₃ (FreeAddGroup.reduce L₁)

Equations

• (_ : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁) ∧ FreeAddGroup.Red L₃ (FreeAddGroup.reduce L₁)) = (_ : FreeAddGroup.Red L₂ (FreeAddGroup.reduce L₁) ∧ FreeAddGroup.Red L₃ (FreeAddGroup.reduce L₁))

ink

def FreeGroup.reduce.churchRosser {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} {L₃ : List (α × Bool)} [inst : DecidableEq α] (H12 : FreeGroup.Red L₁ L₂) (H13 : FreeGroup.Red L₁ L₃) : { L₄ // FreeGroup.Red L₂ L₄ ∧ FreeGroup.Red L₃ L₄ }

Constructive Church-Rosser theorem (compare church_rosser).

Equations

• FreeGroup.reduce.churchRosser H12 H13 = { val := FreeGroup.reduce L₁, property := (_ : FreeGroup.Red L₂ (FreeGroup.reduce L₁) ∧ FreeGroup.Red L₃ (FreeGroup.reduce L₁)) }

ink

instance FreeAddGroup.instDecidableEqFreeAddGroup {α : Type u} [inst : DecidableEq α] : DecidableEq (FreeAddGroup α)

Equations

• FreeAddGroup.instDecidableEqFreeAddGroup = Function.Injective.decidableEq (_ : Function.Injective FreeAddGroup.toWord)

ink

def FreeAddGroup.instDecidableEqFreeAddGroup.proof_1 {α : Type u_1} [inst : DecidableEq α] : Function.Injective FreeAddGroup.toWord

Equations

• (_ : Function.Injective FreeAddGroup.toWord) = (_ : Function.Injective FreeAddGroup.toWord)

ink

instance FreeGroup.instDecidableEqFreeGroup {α : Type u} [inst : DecidableEq α] : DecidableEq (FreeGroup α)

Equations

• FreeGroup.instDecidableEqFreeGroup = Function.Injective.decidableEq (_ : Function.Injective FreeGroup.toWord)

ink

instance FreeGroup.Red.decidableRel {α : Type u} [inst : DecidableEq α] : DecidableRel FreeGroup.Red

Equations

• One or more equations did not get rendered due to their size.
• FreeGroup.Red.decidableRel [] [] = isTrue (_ : FreeGroup.Red [] [])
• FreeGroup.Red.decidableRel [] (_hd2 :: _tl2) = isFalse (_ : FreeGroup.Red [] (_hd2 :: _tl2) → List.noConfusionType False (_hd2 :: _tl2) [])

ink

def FreeGroup.Red.enum {α : Type u} [inst : DecidableEq α] (L₁ : List (α × Bool)) : List (List (α × Bool))

A list containing every word that w₁ reduces to.

Equations

• FreeGroup.Red.enum L₁ = List.filter (fun b => decide (FreeGroup.Red L₁ b)) (List.sublists L₁)

ink

theorem FreeGroup.Red.enum.sound {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : L₂ ∈ List.filter (fun b => decide (FreeGroup.Red L₁ b)) (List.sublists L₁)) : FreeGroup.Red L₁ L₂

ink

theorem FreeGroup.Red.enum.complete {α : Type u} {L₁ : List (α × Bool)} {L₂ : List (α × Bool)} [inst : DecidableEq α] (H : FreeGroup.Red L₁ L₂) : L₂ ∈ FreeGroup.Red.enum L₁

ink

instance FreeGroup.instFintypeSubtypeListProdBoolRed {α : Type u} {L₁ : List (α × Bool)} [inst : DecidableEq α] : Fintype { L₂ // FreeGroup.Red L₁ L₂ }

Equations

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

ink

def FreeAddGroup.norm {α : Type u} [inst : DecidableEq α] (x : FreeAddGroup α) : ℕ

The length of reduced words provides a norm on an additive free group.

Equations

• FreeAddGroup.norm x = List.length (FreeAddGroup.toWord x)

ink

def FreeGroup.norm {α : Type u} [inst : DecidableEq α] (x : FreeGroup α) : ℕ

The length of reduced words provides a norm on a free group.

Equations

• FreeGroup.norm x = List.length (FreeGroup.toWord x)

ink

@[simp]

theorem FreeAddGroup.norm_neg_eq {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} : FreeAddGroup.norm (-x) = FreeAddGroup.norm x

ink

@[simp]

theorem FreeGroup.norm_inv_eq {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} : FreeGroup.norm x⁻¹ = FreeGroup.norm x

ink

@[simp]

theorem FreeAddGroup.norm_eq_zero {α : Type u} [inst : DecidableEq α] {x : FreeAddGroup α} : FreeAddGroup.norm x = 0 ↔ x = 0

ink

@[simp]

theorem FreeGroup.norm_eq_zero {α : Type u} [inst : DecidableEq α] {x : FreeGroup α} : FreeGroup.norm x = 0 ↔ x = 1

ink

@[simp]

theorem FreeAddGroup.norm_zero {α : Type u} [inst : DecidableEq α] : FreeAddGroup.norm 0 = 0

ink

@[simp]

theorem FreeGroup.norm_one {α : Type u} [inst : DecidableEq α] : FreeGroup.norm 1 = 0

ink

theorem FreeAddGroup.norm_mk_le {α : Type u} {L₁ : List (α × Bool)} [inst : DecidableEq α] : FreeAddGroup.norm (FreeAddGroup.mk L₁) ≤ List.length L₁

ink

theorem FreeGroup.norm_mk_le {α : Type u} {L₁ : List (α × Bool)} [inst : DecidableEq α] : FreeGroup.norm (FreeGroup.mk L₁) ≤ List.length L₁

ink

theorem FreeAddGroup.norm_add_le {α : Type u} [inst : DecidableEq α] (x : FreeAddGroup α) (y : FreeAddGroup α) : FreeAddGroup.norm (x + y) ≤ FreeAddGroup.norm x + FreeAddGroup.norm y

ink

theorem FreeGroup.norm_mul_le {α : Type u} [inst : DecidableEq α] (x : FreeGroup α) (y : FreeGroup α) : FreeGroup.norm (x * y) ≤ FreeGroup.norm x + FreeGroup.norm y