Theorem frgpnabllem1 19651

Description: Lemma for frgpnabl 19653. (Contributed by Mario Carneiro, 21-Apr-2016.) (Revised by AV, 25-Apr-2024.)

Hypotheses

Ref	Expression
frgpnabl.g	⊢ 𝐺 = (freeGrp‘𝐼)
frgpnabl.w	⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
frgpnabl.r	⊢ ∼ = ( ~FG ‘𝐼)
frgpnabl.p	⊢ + = (+g‘𝐺)
frgpnabl.m	⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
frgpnabl.t	⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)))
frgpnabl.d	⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
frgpnabl.u	⊢ 𝑈 = (varFGrp‘𝐼)
frgpnabl.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
frgpnabl.a	⊢ (𝜑 → 𝐴 ∈ 𝐼)
frgpnabl.b	⊢ (𝜑 → 𝐵 ∈ 𝐼)

Assertion

Ref	Expression
frgpnabllem1	⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝐷 ∩ ((𝑈‘𝐴) + (𝑈‘𝐵))))

Distinct variable groups:   𝑥,𝐴   𝑣,𝑛,𝑤,𝑥,𝑦,𝑧,𝐼   𝜑,𝑥   𝑥, ∼ ,𝑦,𝑧   𝑥,𝐵   𝑛,𝑊,𝑣,𝑤,𝑥,𝑦,𝑧   𝑥,𝐺   𝑛,𝑀,𝑣,𝑤,𝑥   𝑥,𝑇

Allowed substitution hints:   𝜑(𝑦,𝑧,𝑤,𝑣,𝑛)   𝐴(𝑦,𝑧,𝑤,𝑣,𝑛)   𝐵(𝑦,𝑧,𝑤,𝑣,𝑛)   𝐷(𝑥,𝑦,𝑧,𝑤,𝑣,𝑛)   + (𝑥,𝑦,𝑧,𝑤,𝑣,𝑛)   ∼ (𝑤,𝑣,𝑛)   𝑇(𝑦,𝑧,𝑤,𝑣,𝑛)   𝑈(𝑥,𝑦,𝑧,𝑤,𝑣,𝑛)   𝐺(𝑦,𝑧,𝑤,𝑣,𝑛)   𝑀(𝑦,𝑧)   𝑉(𝑥,𝑦,𝑧,𝑤,𝑣,𝑛)

Proof of Theorem frgpnabllem1

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frgpnabl.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝐼)
2		0ex 5264	. . . . . . . . 9 ⊢ ∅ ∈ V
3	2	prid1 4723	. . . . . . . 8 ⊢ ∅ ∈ {∅, 1o}
4		df2o3 8420	. . . . . . . 8 ⊢ 2o = {∅, 1o}
5	3, 4	eleqtrri 2837	. . . . . . 7 ⊢ ∅ ∈ 2o
6		opelxpi 5670	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
7	1, 5, 6	sylancl 586	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
8		frgpnabl.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝐼)
9		opelxpi 5670	. . . . . . 7 ⊢ ((𝐵 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
10	8, 5, 9	sylancl 586	. . . . . 6 ⊢ (𝜑 → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
11	7, 10	s2cld 14760	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
12		frgpnabl.w	. . . . . 6 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
13		frgpnabl.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
14		2on 8426	. . . . . . . 8 ⊢ 2o ∈ On
15		xpexg 7684	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
16	13, 14, 15	sylancl 586	. . . . . . 7 ⊢ (𝜑 → (𝐼 × 2o) ∈ V)
17		wrdexg 14412	. . . . . . 7 ⊢ ((𝐼 × 2o) ∈ V → Word (𝐼 × 2o) ∈ V)
18		fvi 6917	. . . . . . 7 ⊢ (Word (𝐼 × 2o) ∈ V → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
19	16, 17, 18	3syl 18	. . . . . 6 ⊢ (𝜑 → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
20	12, 19	eqtrid 2788	. . . . 5 ⊢ (𝜑 → 𝑊 = Word (𝐼 × 2o))
21	11, 20	eleqtrrd 2841	. . . 4 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
22		1n0 8434	. . . . . . 7 ⊢ 1o ≠ ∅
23		2cn 12228	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
24	23	addid2i 11343	. . . . . . . . . . . . 13 ⊢ (0 + 2) = 2
25		s2len 14778	. . . . . . . . . . . . 13 ⊢ (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = 2
26	24, 25	eqtr4i 2767	. . . . . . . . . . . 12 ⊢ (0 + 2) = (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
27		frgpnabl.r	. . . . . . . . . . . . . 14 ⊢ ∼ = ( ~FG ‘𝐼)
28		frgpnabl.m	. . . . . . . . . . . . . 14 ⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
29		frgpnabl.t	. . . . . . . . . . . . . 14 ⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)))
30	12, 27, 28, 29	efgtlen 19508	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
31	30	adantll 712	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
32	26, 31	eqtrid 2788	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 + 2) = ((♯‘𝑥) + 2))
33	32	ex 413	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 + 2) = ((♯‘𝑥) + 2)))
34		0cnd 11148	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 0 ∈ ℂ)
35		simpr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ 𝑊)
36	12	efgrcl 19497	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
37	36	simprd 496	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝑊 → 𝑊 = Word (𝐼 × 2o))
38	37	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑊 = Word (𝐼 × 2o))
39	35, 38	eleqtrd 2840	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ Word (𝐼 × 2o))
40		lencl 14421	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (♯‘𝑥) ∈ ℕ0)
41	39, 40	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℕ0)
42	41	nn0cnd 12475	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℂ)
43		2cnd 12231	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 2 ∈ ℂ)
44	34, 42, 43	addcan2d 11359	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ((0 + 2) = ((♯‘𝑥) + 2) ↔ 0 = (♯‘𝑥)))
45	33, 44	sylibd 238	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 0 = (♯‘𝑥)))
46	12, 27, 28, 29	efgtf 19504	. . . . . . . . . . . . . . . . . 18 ⊢ (∅ ∈ 𝑊 → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
47	46	adantl 482	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
48	47	simpld 495	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
49	48	rneqd 5893	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ran (𝑇‘∅) = ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
50	49	eleq2d 2823	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))))
51		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
52		ovex 7390	. . . . . . . . . . . . . . . 16 ⊢ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ V
53	51, 52	elrnmpo 7492	. . . . . . . . . . . . . . 15 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ↔ ∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
54		wrd0 14427	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ ∈ Word (𝐼 × 2o)
55	54	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ ∈ Word (𝐼 × 2o))
56		simprr 771	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
57	28	efgmf 19495	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
58	57	ffvelcdmi 7034	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (𝐼 × 2o) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
59	56, 58	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
60	56, 59	s2cld 14760	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o))
61		ccatidid 14478	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (∅ ++ ∅) = ∅
62	61	oveq1i 7367	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((∅ ++ ∅) ++ ∅) = (∅ ++ ∅)
63	62, 61	eqtr2i 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ = ((∅ ++ ∅) ++ ∅)
64	63	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ = ((∅ ++ ∅) ++ ∅))
65		simprl 769	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...(♯‘∅)))
66		hash0 14267	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (♯‘∅) = 0
67	66	oveq2i 7368	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0...(♯‘∅)) = (0...0)
68	65, 67	eleqtrdi 2848	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...0))
69		elfz1eq 13452	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 ∈ (0...0) → 𝑎 = 0)
70	68, 69	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = 0)
71	70, 66	eqtr4di 2794	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (♯‘∅))
72	66	oveq2i 7368	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 + (♯‘∅)) = (𝑎 + 0)
73		0cn 11147	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 ∈ ℂ
74	70, 73	eqeltrdi 2846	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ ℂ)
75	74	addid1d 11355	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 + 0) = 𝑎)
76	72, 75	eqtr2id 2789	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (𝑎 + (♯‘∅)))
77	55, 55, 55, 60, 64, 71, 76	splval2 14645	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅))
78		ccatlid 14474	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
79	78	oveq1d 7372	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅))
80		ccatrid 14475	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
81	79, 80	eqtrd 2776	. . . . . . . . . . . . . . . . . . . 20 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
82	60, 81	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
83	77, 82	eqtrd 2776	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
84	83	eqeq2d 2747	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩))
85	1	ad3antrrr 728	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 𝐴 ∈ 𝐼)
86		1on 8424	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1o ∈ On
87	86	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o ∈ On)
88		simpr 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩)
89	88	fveq1d 6844	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = (⟨“𝑏(𝑀‘𝑏)”⟩‘1))
90		opex 5421	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ⟨𝐵, ∅⟩ ∈ V
91		s2fv1 14777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨𝐵, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩)
92	90, 91	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩
93		fvex 6855	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀‘𝑏) ∈ V
94		s2fv1 14777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀‘𝑏) ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏))
95	93, 94	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏)
96	89, 92, 95	3eqtr3g 2799	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐵, ∅⟩ = (𝑀‘𝑏))
97	88	fveq1d 6844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = (⟨“𝑏(𝑀‘𝑏)”⟩‘0))
98		opex 5421	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ⟨𝐴, ∅⟩ ∈ V
99		s2fv0 14776	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (⟨𝐴, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩)
100	98, 99	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩
101		s2fv0 14776	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏)
102	101	elv 3451	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏
103	97, 100, 102	3eqtr3g 2799	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, ∅⟩ = 𝑏)
104	103	fveq2d 6846	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = (𝑀‘𝑏))
105	28	efgmval 19494	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
106	85, 5, 105	sylancl 586	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
107		df-ov 7360	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴𝑀∅) = (𝑀‘⟨𝐴, ∅⟩)
108		dif0 4332	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1o ∖ ∅) = 1o
109	108	opeq2i 4834	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ⟨𝐴, (1o ∖ ∅)⟩ = ⟨𝐴, 1o⟩
110	106, 107, 109	3eqtr3g 2799	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = ⟨𝐴, 1o⟩)
111	96, 104, 110	3eqtr2rd 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩)
112		opthg 5434	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ 𝐼 ∧ 1o ∈ On) → (⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩ ↔ (𝐴 = 𝐵 ∧ 1o = ∅)))
113	112	simplbda 500	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ 𝐼 ∧ 1o ∈ On) ∧ ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩) → 1o = ∅)
114	85, 87, 111, 113	syl21anc 836	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o = ∅)
115	114	ex 413	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩ → 1o = ∅))
116	84, 115	sylbid 239	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
117	116	rexlimdvva 3205	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
118	53, 117	biimtrid 241	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) → 1o = ∅))
119	50, 118	sylbid 239	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) → 1o = ∅))
120	119	expimpd 454	. . . . . . . . . . . 12 ⊢ (𝜑 → ((∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)) → 1o = ∅))
121		hasheq0 14263	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ V → ((♯‘𝑥) = 0 ↔ 𝑥 = ∅))
122	121	elv 3451	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑥) = 0 ↔ 𝑥 = ∅)
123		eleq1 2825	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (𝑥 ∈ 𝑊 ↔ ∅ ∈ 𝑊))
124		fveq2 6842	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ∅ → (𝑇‘𝑥) = (𝑇‘∅))
125	124	rneqd 5893	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ∅ → ran (𝑇‘𝑥) = ran (𝑇‘∅))
126	125	eleq2d 2823	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)))
127	123, 126	anbi12d 631	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = ∅ → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
128	122, 127	sylbi 216	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑥) = 0 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
129	128	eqcoms 2744	. . . . . . . . . . . . 13 ⊢ (0 = (♯‘𝑥) → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
130	129	imbi1d 341	. . . . . . . . . . . 12 ⊢ (0 = (♯‘𝑥) → (((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → 1o = ∅) ↔ ((∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)) → 1o = ∅)))
131	120, 130	syl5ibrcom 246	. . . . . . . . . . 11 ⊢ (𝜑 → (0 = (♯‘𝑥) → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → 1o = ∅)))
132	131	com23 86	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 = (♯‘𝑥) → 1o = ∅)))
133	132	expdimp 453	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 = (♯‘𝑥) → 1o = ∅)))
134	45, 133	mpdd 43	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 1o = ∅))
135	134	necon3ad 2956	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (1o ≠ ∅ → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)))
136	22, 135	mpi 20	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
137	136	nrexdv 3146	. . . . 5 ⊢ (𝜑 → ¬ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
138		eliun 4958	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ↔ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
139	137, 138	sylnibr 328	. . . 4 ⊢ (𝜑 → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
140	21, 139	eldifd 3921	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥)))
141		frgpnabl.d	. . 3 ⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
142	140, 141	eleqtrrdi 2849	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝐷)
143		df-s2 14737	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)
144	12, 27	efger 19500	. . . . . . 7 ⊢ ∼ Er 𝑊
145	144	a1i 11	. . . . . 6 ⊢ (𝜑 → ∼ Er 𝑊)
146	145, 21	erref 8668	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
147	143, 146	eqbrtrrid 5141	. . . 4 ⊢ (𝜑 → (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
148	143	ovexi 7391	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ V
149		ovex 7390	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∈ V
150	148, 149	elec 8692	. . . 4 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ ↔ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
151	147, 150	sylibr 233	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
152		frgpnabl.u	. . . . . . 7 ⊢ 𝑈 = (varFGrp‘𝐼)
153	27, 152	vrgpval 19549	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐴 ∈ 𝐼) → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
154	13, 1, 153	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
155	27, 152	vrgpval 19549	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐵 ∈ 𝐼) → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
156	13, 8, 155	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
157	154, 156	oveq12d 7375	. . . 4 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ))
158	7	s1cld 14491	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
159	158, 20	eleqtrrd 2841	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊)
160	10	s1cld 14491	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
161	160, 20	eleqtrrd 2841	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
162		frgpnabl.g	. . . . . 6 ⊢ 𝐺 = (freeGrp‘𝐼)
163		frgpnabl.p	. . . . . 6 ⊢ + = (+g‘𝐺)
164	12, 162, 27, 163	frgpadd 19545	. . . . 5 ⊢ ((⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊 ∧ ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊) → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
165	159, 161, 164	syl2anc 584	. . . 4 ⊢ (𝜑 → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
166	157, 165	eqtrd 2776	. . 3 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
167	151, 166	eleqtrrd 2841	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ((𝑈‘𝐴) + (𝑈‘𝐵)))
168	142, 167	elind 4154	1 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝐷 ∩ ((𝑈‘𝐴) + (𝑈‘𝐵))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   ≠ wne 2943  ∃wrex 3073  Vcvv 3445   ∖ cdif 3907   ∩ cin 3909  ∅c0 4282  {cpr 4588  ⟨cop 4592  ⟨cotp 4594  ∪ ciun 4954   class class class wbr 5105   ↦ cmpt 5188   I cid 5530   × cxp 5631  ran crn 5634  Oncon0 6317  ⟶wf 6492  ‘cfv 6496  (class class class)co 7357   ∈ cmpo 7359  1_oc1o 8405  2_oc2o 8406   Er wer 8645  [cec 8646  ℂcc 11049  0cc0 11051  1c1 11052   + caddc 11054  2c2 12208  ℕ₀cn0 12413  ...cfz 13424  ♯chash 14230  Word cword 14402   ++ cconcat 14458  ⟨“cs1 14483   splice csplice 14637  ⟨“cs2 14730  +_gcplusg 17133   ~_FG cefg 19488  freeGrpcfrgp 19489  var_FGrpcvrgp 19490

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-ot 4595  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-ec 8650  df-qs 8654  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9378  df-inf 9379  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-fz 13425  df-fzo 13568  df-hash 14231  df-word 14403  df-concat 14459  df-s1 14484  df-substr 14529  df-pfx 14559  df-splice 14638  df-s2 14737  df-struct 17019  df-slot 17054  df-ndx 17066  df-base 17084  df-plusg 17146  df-mulr 17147  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-imas 17390  df-qus 17391  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-frmd 18659  df-efg 19491  df-frgp 19492  df-vrgp 19493

This theorem is referenced by:  frgpnabllem2  19652