Theorem frgp0 19989

Description: The free group is a group. (Contributed by Mario Carneiro, 1-Oct-2015.) (Revised by Mario Carneiro, 27-Feb-2016.)

Hypotheses

Ref	Expression
frgp0.m	⊢ 𝐺 = (freeGrp‘𝐼)
frgp0.r	⊢ ∼ = ( ~FG ‘𝐼)

Assertion

Ref	Expression
frgp0	⊢ (𝐼 ∈ 𝑉 → (𝐺 ∈ Grp ∧ [∅] ∼ = (0g‘𝐺)))

Proof of Theorem frgp0

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑥 𝑦 𝑧 𝑛 𝑣 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frgp0.m	. . 3 ⊢ 𝐺 = (freeGrp‘𝐼)
2		eqid 2763	. . 3 ⊢ (freeMnd‘(𝐼 × 2o)) = (freeMnd‘(𝐼 × 2o))
3		frgp0.r	. . 3 ⊢ ∼ = ( ~FG ‘𝐼)
4	1, 2, 3	frgpval 19987	. 2 ⊢ (𝐼 ∈ 𝑉 → 𝐺 = ((freeMnd‘(𝐼 × 2o)) /s ∼ ))
5		2on 8504	. . . . 5 ⊢ 2o ∈ On
6		xpexg 7774	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
7	5, 6	mpan2 704	. . . 4 ⊢ (𝐼 ∈ 𝑉 → (𝐼 × 2o) ∈ V)
8		eqid 2763	. . . . 5 ⊢ (Base‘(freeMnd‘(𝐼 × 2o))) = (Base‘(freeMnd‘(𝐼 × 2o)))
9	2, 8	frmdbas 19063	. . . 4 ⊢ ((𝐼 × 2o) ∈ V → (Base‘(freeMnd‘(𝐼 × 2o))) = Word (𝐼 × 2o))
10	7, 9	syl 18	. . 3 ⊢ (𝐼 ∈ 𝑉 → (Base‘(freeMnd‘(𝐼 × 2o))) = Word (𝐼 × 2o))
11	10	eqcomd 2769	. 2 ⊢ (𝐼 ∈ 𝑉 → Word (𝐼 × 2o) = (Base‘(freeMnd‘(𝐼 × 2o))))
12		eqidd 2764	. 2 ⊢ (𝐼 ∈ 𝑉 → (+g‘(freeMnd‘(𝐼 × 2o))) = (+g‘(freeMnd‘(𝐼 × 2o))))
13		eqid 2763	. . . 4 ⊢ ( I ‘Word (𝐼 × 2o)) = ( I ‘Word (𝐼 × 2o))
14	13, 3	efger 19947	. . 3 ⊢ ∼ Er ( I ‘Word (𝐼 × 2o))
15		wrdexg 14682	. . . . 5 ⊢ ((𝐼 × 2o) ∈ V → Word (𝐼 × 2o) ∈ V)
16		fvi 6972	. . . . 5 ⊢ (Word (𝐼 × 2o) ∈ V → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
17	7, 15, 16	3syl 19	. . . 4 ⊢ (𝐼 ∈ 𝑉 → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
18		ereq2 8740	. . . 4 ⊢ (( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o) → ( ∼ Er ( I ‘Word (𝐼 × 2o)) ↔ ∼ Er Word (𝐼 × 2o)))
19	17, 18	syl 18	. . 3 ⊢ (𝐼 ∈ 𝑉 → ( ∼ Er ( I ‘Word (𝐼 × 2o)) ↔ ∼ Er Word (𝐼 × 2o)))
20	14, 19	mpbii 236	. 2 ⊢ (𝐼 ∈ 𝑉 → ∼ Er Word (𝐼 × 2o))
21		fvexd 6911	. 2 ⊢ (𝐼 ∈ 𝑉 → (freeMnd‘(𝐼 × 2o)) ∈ V)
22		eqid 2763	. . . 4 ⊢ (+g‘(freeMnd‘(𝐼 × 2o))) = (+g‘(freeMnd‘(𝐼 × 2o)))
23	1, 2, 3, 22	frgpcpbl 19988	. . 3 ⊢ ((𝑎 ∼ 𝑏 ∧ 𝑐 ∼ 𝑑) → (𝑎(+g‘(freeMnd‘(𝐼 × 2o)))𝑐) ∼ (𝑏(+g‘(freeMnd‘(𝐼 × 2o)))𝑑))
24	23	a1i 11	. 2 ⊢ (𝐼 ∈ 𝑉 → ((𝑎 ∼ 𝑏 ∧ 𝑐 ∼ 𝑑) → (𝑎(+g‘(freeMnd‘(𝐼 × 2o)))𝑐) ∼ (𝑏(+g‘(freeMnd‘(𝐼 × 2o)))𝑑)))
25	2	frmdmnd 19070	. . . . . 6 ⊢ ((𝐼 × 2o) ∈ V → (freeMnd‘(𝐼 × 2o)) ∈ Mnd)
26	7, 25	syl 18	. . . . 5 ⊢ (𝐼 ∈ 𝑉 → (freeMnd‘(𝐼 × 2o)) ∈ Mnd)
27	26	3ad2ant1 1151	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → (freeMnd‘(𝐼 × 2o)) ∈ Mnd)
28		simp2 1155	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → 𝑥 ∈ Word (𝐼 × 2o))
29	11	3ad2ant1 1151	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → Word (𝐼 × 2o) = (Base‘(freeMnd‘(𝐼 × 2o))))
30	28, 29	eleqtrd 2866	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
31		simp3 1156	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → 𝑦 ∈ Word (𝐼 × 2o))
32	31, 29	eleqtrd 2866	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → 𝑦 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
33	8, 22	mndcl 18946	. . . 4 ⊢ (((freeMnd‘(𝐼 × 2o)) ∈ Mnd ∧ 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑦 ∈ (Base‘(freeMnd‘(𝐼 × 2o)))) → (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
34	27, 30, 32, 33	syl3anc 1398	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
35	34, 29	eleqtrrd 2867	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o)) → (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦) ∈ Word (𝐼 × 2o))
36	20	adantr 486	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ∼ Er Word (𝐼 × 2o))
37	26	adantr 486	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → (freeMnd‘(𝐼 × 2o)) ∈ Mnd)
38	34	3adant3r3 1203	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
39		simpr3 1215	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → 𝑧 ∈ Word (𝐼 × 2o))
40	11	adantr 486	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → Word (𝐼 × 2o) = (Base‘(freeMnd‘(𝐼 × 2o))))
41	39, 40	eleqtrd 2866	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → 𝑧 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
42	8, 22	mndcl 18946	. . . . . 6 ⊢ (((freeMnd‘(𝐼 × 2o)) ∈ Mnd ∧ (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦) ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑧 ∈ (Base‘(freeMnd‘(𝐼 × 2o)))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
43	37, 38, 41, 42	syl3anc 1398	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
44	43, 40	eleqtrrd 2867	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) ∈ Word (𝐼 × 2o))
45	36, 44	erref 8752	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) ∼ ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧))
46	30	3adant3r3 1203	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
47	32	3adant3r3 1203	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → 𝑦 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
48	8, 22	mndass 18947	. . . 4 ⊢ (((freeMnd‘(𝐼 × 2o)) ∈ Mnd ∧ (𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑦 ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑧 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) = (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))(𝑦(+g‘(freeMnd‘(𝐼 × 2o)))𝑧)))
49	37, 46, 47, 41, 48	syl13anc 1399	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) = (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))(𝑦(+g‘(freeMnd‘(𝐼 × 2o)))𝑧)))
50	45, 49	breqtrd 5134	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑦 ∈ Word (𝐼 × 2o) ∧ 𝑧 ∈ Word (𝐼 × 2o))) → ((𝑥(+g‘(freeMnd‘(𝐼 × 2o)))𝑦)(+g‘(freeMnd‘(𝐼 × 2o)))𝑧) ∼ (𝑥(+g‘(freeMnd‘(𝐼 × 2o)))(𝑦(+g‘(freeMnd‘(𝐼 × 2o)))𝑧)))
51		wrd0 14697	. . 3 ⊢ ∅ ∈ Word (𝐼 × 2o)
52	51	a1i 11	. 2 ⊢ (𝐼 ∈ 𝑉 → ∅ ∈ Word (𝐼 × 2o))
53	51, 11	eleqtrid 2870	. . . . . 6 ⊢ (𝐼 ∈ 𝑉 → ∅ ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
54	53	adantr 486	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → ∅ ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
55	11	eleq2d 2850	. . . . . 6 ⊢ (𝐼 ∈ 𝑉 → (𝑥 ∈ Word (𝐼 × 2o) ↔ 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o)))))
56	55	biimpa 482	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
57	2, 8, 22	frmdadd 19066	. . . . 5 ⊢ ((∅ ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o)))) → (∅(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) = (∅ ++ 𝑥))
58	54, 56, 57	syl2anc 596	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (∅(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) = (∅ ++ 𝑥))
59		ccatlid 14745	. . . . 5 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (∅ ++ 𝑥) = 𝑥)
60	59	adantl 487	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (∅ ++ 𝑥) = 𝑥)
61	58, 60	eqtrd 2798	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (∅(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) = 𝑥)
62	20	adantr 486	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → ∼ Er Word (𝐼 × 2o))
63		simpr 490	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → 𝑥 ∈ Word (𝐼 × 2o))
64	62, 63	erref 8752	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → 𝑥 ∼ 𝑥)
65	61, 64	eqbrtrd 5130	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (∅(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) ∼ 𝑥)
66		revcl 14924	. . . 4 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (reverse‘𝑥) ∈ Word (𝐼 × 2o))
67	66	adantl 487	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (reverse‘𝑥) ∈ Word (𝐼 × 2o))
68		eqid 2763	. . . . 5 ⊢ (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
69	68	efgmf 19942	. . . 4 ⊢ (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩):(𝐼 × 2o)⟶(𝐼 × 2o)
70	69	a1i 11	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩):(𝐼 × 2o)⟶(𝐼 × 2o))
71		wrdco 14996	. . 3 ⊢ (((reverse‘𝑥) ∈ Word (𝐼 × 2o) ∧ (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩):(𝐼 × 2o)⟶(𝐼 × 2o)) → ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ∈ Word (𝐼 × 2o))
72	67, 70, 71	syl2anc 596	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ∈ Word (𝐼 × 2o))
73	11	adantr 486	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → Word (𝐼 × 2o) = (Base‘(freeMnd‘(𝐼 × 2o))))
74	72, 73	eleqtrd 2866	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ∈ (Base‘(freeMnd‘(𝐼 × 2o))))
75	2, 8, 22	frmdadd 19066	. . . 4 ⊢ ((((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ∈ (Base‘(freeMnd‘(𝐼 × 2o))) ∧ 𝑥 ∈ (Base‘(freeMnd‘(𝐼 × 2o)))) → (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥))(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) = (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ++ 𝑥))
76	74, 56, 75	syl2anc 596	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥))(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) = (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ++ 𝑥))
77	17	eleq2d 2850	. . . . 5 ⊢ (𝐼 ∈ 𝑉 → (𝑥 ∈ ( I ‘Word (𝐼 × 2o)) ↔ 𝑥 ∈ Word (𝐼 × 2o)))
78	77	biimpar 483	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → 𝑥 ∈ ( I ‘Word (𝐼 × 2o)))
79		eqid 2763	. . . . 5 ⊢ (𝑣 ∈ ( I ‘Word (𝐼 × 2o)) ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘𝑤)”⟩⟩))) = (𝑣 ∈ ( I ‘Word (𝐼 × 2o)) ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘𝑤)”⟩⟩)))
80	13, 3, 68, 79	efginvrel1 19957	. . . 4 ⊢ (𝑥 ∈ ( I ‘Word (𝐼 × 2o)) → (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ++ 𝑥) ∼ ∅)
81	78, 80	syl 18	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥)) ++ 𝑥) ∼ ∅)
82	76, 81	eqbrtrd 5130	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ Word (𝐼 × 2o)) → (((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) ∘ (reverse‘𝑥))(+g‘(freeMnd‘(𝐼 × 2o)))𝑥) ∼ ∅)
83	4, 11, 12, 20, 21, 24, 35, 50, 52, 65, 72, 82	qusgrp2 19283	1 ⊢ (𝐼 ∈ 𝑉 → (𝐺 ∈ Grp ∧ [∅] ∼ = (0g‘𝐺)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2146  Vcvv 3454   ∖ cdif 4048  ∅c0 4281  ⟨cop 4838  ⟨cotp 4861   class class class wbr 5106   ↦ cmpt 5189   I cid 5549   × cxp 5653   ∘ ccom 5659  Oncon0 6369  ⟶wf 6543  ‘cfv 6547  (class class class)co 7430   ∈ cmpo 7432  1_oc1o 8483  2_oc2o 8484   Er wer 8728  [cec 8729  0cc0 11213  ...cfz 13652  ♯chash 14487  Word cword 14671   ++ cconcat 14728   splice csplice 14912  reversecreverse 14921  ⟨“cs2 15006  Basecbs 17402  +_gcplusg 17443  0_gc0g 17625  Mndcmnd 18938  freeMndcfrmd 19058  Grpcgrp 19159   ~_FG cefg 19935  freeGrpcfrgp 19936

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7761  ax-cnex 11269  ax-resscn 11270  ax-1cn 11271  ax-icn 11272  ax-addcl 11273  ax-addrcl 11274  ax-mulcl 11275  ax-mulrcl 11276  ax-mulcom 11277  ax-addass 11278  ax-mulass 11279  ax-distr 11280  ax-i2m1 11281  ax-1ne0 11282  ax-1rid 11283  ax-rnegex 11284  ax-rrecex 11285  ax-cnre 11286  ax-pre-lttri 11287  ax-pre-lttrn 11288  ax-pre-ltadd 11289  ax-pre-mulgt0 11290

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-ot 4862  df-uni 4871  df-int 4911  df-iun 4956  df-iin 4957  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6311  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6501  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7888  df-1st 8011  df-2nd 8012  df-frecs 8313  df-wrecs 8344  df-recs 8393  df-rdg 8432  df-1o 8490  df-2o 8491  df-er 8731  df-ec 8733  df-qs 8737  df-map 8863  df-en 8988  df-dom 8989  df-sdom 8990  df-fin 8991  df-sup 9447  df-inf 9448  df-card 10033  df-pnf 11358  df-mnf 11359  df-xr 11360  df-ltxr 11361  df-le 11362  df-sub 11556  df-neg 11557  df-nn 12349  df-2 12418  df-3 12419  df-4 12420  df-5 12421  df-6 12422  df-7 12423  df-8 12424  df-9 12425  df-n0 12620  df-xnn0 12693  df-z 12707  df-dec 12828  df-uz 12979  df-fz 13653  df-fzo 13802  df-hash 14488  df-word 14672  df-lsw 14721  df-concat 14729  df-s1 14756  df-substr 14803  df-pfx 14835  df-splice 14913  df-reverse 14922  df-s2 15013  df-struct 17340  df-slot 17375  df-ndx 17387  df-base 17403  df-plusg 17456  df-mulr 17457  df-sca 17459  df-vsca 17460  df-ip 17461  df-tset 17462  df-ple 17463  df-ds 17465  df-0g 17627  df-imas 17695  df-qus 17696  df-mgm 18831  df-sgrp 18923  df-mnd 18939  df-frmd 19060  df-grp 19162  df-efg 19938  df-frgp 19939

This theorem is used by:  frgpgrp  19991  frgpinv  19993  frgpmhm  19994