Theorem frgpnabllem1 19859

Description: Lemma for frgpnabl 19861. (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 5282	. . . . . . . . 9 ⊢ ∅ ∈ V
3	2	prid1 4743	. . . . . . . 8 ⊢ ∅ ∈ {∅, 1o}
4		df2o3 8493	. . . . . . . 8 ⊢ 2o = {∅, 1o}
5	3, 4	eleqtrri 2834	. . . . . . 7 ⊢ ∅ ∈ 2o
6		opelxpi 5696	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
7	1, 5, 6	sylancl 586	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
8		frgpnabl.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝐼)
9		opelxpi 5696	. . . . . . 7 ⊢ ((𝐵 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
10	8, 5, 9	sylancl 586	. . . . . 6 ⊢ (𝜑 → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
11	7, 10	s2cld 14895	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
12		frgpnabl.w	. . . . . 6 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
13		frgpnabl.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
14		2on 8499	. . . . . . . 8 ⊢ 2o ∈ On
15		xpexg 7749	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
16	13, 14, 15	sylancl 586	. . . . . . 7 ⊢ (𝜑 → (𝐼 × 2o) ∈ V)
17		wrdexg 14547	. . . . . . 7 ⊢ ((𝐼 × 2o) ∈ V → Word (𝐼 × 2o) ∈ V)
18		fvi 6960	. . . . . . 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 2783	. . . . 5 ⊢ (𝜑 → 𝑊 = Word (𝐼 × 2o))
21	11, 20	eleqtrrd 2838	. . . 4 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
22		1n0 8505	. . . . . . 7 ⊢ 1o ≠ ∅
23		2cn 12320	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
24	23	addlidi 11428	. . . . . . . . . . . . 13 ⊢ (0 + 2) = 2
25		s2len 14913	. . . . . . . . . . . . 13 ⊢ (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = 2
26	24, 25	eqtr4i 2762	. . . . . . . . . . . 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 19712	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
31	30	adantll 714	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
32	26, 31	eqtrid 2783	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 + 2) = ((♯‘𝑥) + 2))
33	32	ex 412	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 + 2) = ((♯‘𝑥) + 2)))
34		0cnd 11233	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 0 ∈ ℂ)
35		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ 𝑊)
36	12	efgrcl 19701	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
37	36	simprd 495	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝑊 → 𝑊 = Word (𝐼 × 2o))
38	37	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑊 = Word (𝐼 × 2o))
39	35, 38	eleqtrd 2837	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ Word (𝐼 × 2o))
40		lencl 14556	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (♯‘𝑥) ∈ ℕ0)
41	39, 40	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℕ0)
42	41	nn0cnd 12569	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℂ)
43		2cnd 12323	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 2 ∈ ℂ)
44	34, 42, 43	addcan2d 11444	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ((0 + 2) = ((♯‘𝑥) + 2) ↔ 0 = (♯‘𝑥)))
45	33, 44	sylibd 239	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 0 = (♯‘𝑥)))
46	12, 27, 28, 29	efgtf 19708	. . . . . . . . . . . . . . . . . 18 ⊢ (∅ ∈ 𝑊 → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
47	46	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
48	47	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
49	48	rneqd 5923	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ran (𝑇‘∅) = ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
50	49	eleq2d 2821	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))))
51		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
52		ovex 7443	. . . . . . . . . . . . . . . 16 ⊢ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ V
53	51, 52	elrnmpo 7548	. . . . . . . . . . . . . . 15 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ↔ ∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
54		wrd0 14562	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ ∈ Word (𝐼 × 2o)
55	54	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ ∈ Word (𝐼 × 2o))
56		simprr 772	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
57	28	efgmf 19699	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
58	57	ffvelcdmi 7078	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (𝐼 × 2o) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
59	56, 58	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
60	56, 59	s2cld 14895	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o))
61		ccatidid 14613	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (∅ ++ ∅) = ∅
62	61	oveq1i 7420	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((∅ ++ ∅) ++ ∅) = (∅ ++ ∅)
63	62, 61	eqtr2i 2760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ = ((∅ ++ ∅) ++ ∅)
64	63	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ = ((∅ ++ ∅) ++ ∅))
65		simprl 770	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...(♯‘∅)))
66		hash0 14390	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (♯‘∅) = 0
67	66	oveq2i 7421	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0...(♯‘∅)) = (0...0)
68	65, 67	eleqtrdi 2845	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...0))
69		elfz1eq 13557	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 ∈ (0...0) → 𝑎 = 0)
70	68, 69	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = 0)
71	70, 66	eqtr4di 2789	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (♯‘∅))
72	66	oveq2i 7421	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 + (♯‘∅)) = (𝑎 + 0)
73		0cn 11232	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 ∈ ℂ
74	70, 73	eqeltrdi 2843	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ ℂ)
75	74	addridd 11440	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 + 0) = 𝑎)
76	72, 75	eqtr2id 2784	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (𝑎 + (♯‘∅)))
77	55, 55, 55, 60, 64, 71, 76	splval2 14780	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅))
78		ccatlid 14609	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
79	78	oveq1d 7425	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅))
80		ccatrid 14610	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
81	79, 80	eqtrd 2771	. . . . . . . . . . . . . . . . . . . 20 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
82	60, 81	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
83	77, 82	eqtrd 2771	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
84	83	eqeq2d 2747	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩))
85	1	ad3antrrr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 𝐴 ∈ 𝐼)
86		1on 8497	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1o ∈ On
87	86	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o ∈ On)
88		simpr 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩)
89	88	fveq1d 6883	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = (⟨“𝑏(𝑀‘𝑏)”⟩‘1))
90		opex 5444	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ⟨𝐵, ∅⟩ ∈ V
91		s2fv1 14912	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨𝐵, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩)
92	90, 91	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩
93		fvex 6894	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀‘𝑏) ∈ V
94		s2fv1 14912	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀‘𝑏) ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏))
95	93, 94	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏)
96	89, 92, 95	3eqtr3g 2794	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐵, ∅⟩ = (𝑀‘𝑏))
97	88	fveq1d 6883	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = (⟨“𝑏(𝑀‘𝑏)”⟩‘0))
98		opex 5444	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ⟨𝐴, ∅⟩ ∈ V
99		s2fv0 14911	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (⟨𝐴, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩)
100	98, 99	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩
101		s2fv0 14911	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏)
102	101	elv 3469	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏
103	97, 100, 102	3eqtr3g 2794	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, ∅⟩ = 𝑏)
104	103	fveq2d 6885	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = (𝑀‘𝑏))
105	28	efgmval 19698	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
106	85, 5, 105	sylancl 586	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
107		df-ov 7413	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴𝑀∅) = (𝑀‘⟨𝐴, ∅⟩)
108		dif0 4358	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1o ∖ ∅) = 1o
109	108	opeq2i 4858	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ⟨𝐴, (1o ∖ ∅)⟩ = ⟨𝐴, 1o⟩
110	106, 107, 109	3eqtr3g 2794	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = ⟨𝐴, 1o⟩)
111	96, 104, 110	3eqtr2rd 2778	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩)
112		opthg 5457	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ 𝐼 ∧ 1o ∈ On) → (⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩ ↔ (𝐴 = 𝐵 ∧ 1o = ∅)))
113	112	simplbda 499	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ 𝐼 ∧ 1o ∈ On) ∧ ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩) → 1o = ∅)
114	85, 87, 111, 113	syl21anc 837	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o = ∅)
115	114	ex 412	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩ → 1o = ∅))
116	84, 115	sylbid 240	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
117	116	rexlimdvva 3202	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
118	53, 117	biimtrid 242	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) → 1o = ∅))
119	50, 118	sylbid 240	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) → 1o = ∅))
120	119	expimpd 453	. . . . . . . . . . . 12 ⊢ (𝜑 → ((∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)) → 1o = ∅))
121		hasheq0 14386	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ V → ((♯‘𝑥) = 0 ↔ 𝑥 = ∅))
122	121	elv 3469	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑥) = 0 ↔ 𝑥 = ∅)
123		eleq1 2823	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (𝑥 ∈ 𝑊 ↔ ∅ ∈ 𝑊))
124		fveq2 6881	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ∅ → (𝑇‘𝑥) = (𝑇‘∅))
125	124	rneqd 5923	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ∅ → ran (𝑇‘𝑥) = ran (𝑇‘∅))
126	125	eleq2d 2821	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)))
127	123, 126	anbi12d 632	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = ∅ → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
128	122, 127	sylbi 217	. . . . . . . . . . . . . 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 247	. . . . . . . . . . 11 ⊢ (𝜑 → (0 = (♯‘𝑥) → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → 1o = ∅)))
132	131	com23 86	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 = (♯‘𝑥) → 1o = ∅)))
133	132	expdimp 452	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 = (♯‘𝑥) → 1o = ∅)))
134	45, 133	mpdd 43	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 1o = ∅))
135	134	necon3ad 2946	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (1o ≠ ∅ → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)))
136	22, 135	mpi 20	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
137	136	nrexdv 3136	. . . . 5 ⊢ (𝜑 → ¬ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
138		eliun 4976	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ↔ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
139	137, 138	sylnibr 329	. . . 4 ⊢ (𝜑 → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
140	21, 139	eldifd 3942	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥)))
141		frgpnabl.d	. . 3 ⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
142	140, 141	eleqtrrdi 2846	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝐷)
143		df-s2 14872	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)
144	12, 27	efger 19704	. . . . . . 7 ⊢ ∼ Er 𝑊
145	144	a1i 11	. . . . . 6 ⊢ (𝜑 → ∼ Er 𝑊)
146	145, 21	erref 8744	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
147	143, 146	eqbrtrrid 5160	. . . 4 ⊢ (𝜑 → (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
148	143	ovexi 7444	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ V
149		ovex 7443	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∈ V
150	148, 149	elec 8770	. . . 4 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ ↔ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
151	147, 150	sylibr 234	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
152		frgpnabl.u	. . . . . . 7 ⊢ 𝑈 = (varFGrp‘𝐼)
153	27, 152	vrgpval 19753	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐴 ∈ 𝐼) → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
154	13, 1, 153	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
155	27, 152	vrgpval 19753	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐵 ∈ 𝐼) → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
156	13, 8, 155	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
157	154, 156	oveq12d 7428	. . . 4 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ))
158	7	s1cld 14626	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
159	158, 20	eleqtrrd 2838	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊)
160	10	s1cld 14626	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
161	160, 20	eleqtrrd 2838	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
162		frgpnabl.g	. . . . . 6 ⊢ 𝐺 = (freeGrp‘𝐼)
163		frgpnabl.p	. . . . . 6 ⊢ + = (+g‘𝐺)
164	12, 162, 27, 163	frgpadd 19749	. . . . 5 ⊢ ((⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊 ∧ ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊) → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
165	159, 161, 164	syl2anc 584	. . . 4 ⊢ (𝜑 → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
166	157, 165	eqtrd 2771	. . 3 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
167	151, 166	eleqtrrd 2838	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ((𝑈‘𝐴) + (𝑈‘𝐵)))
168	142, 167	elind 4180	1 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝐷 ∩ ((𝑈‘𝐴) + (𝑈‘𝐵))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2933  ∃wrex 3061  Vcvv 3464   ∖ cdif 3928   ∩ cin 3930  ∅c0 4313  {cpr 4608  ⟨cop 4612  ⟨cotp 4614  ∪ ciun 4972   class class class wbr 5124   ↦ cmpt 5206   I cid 5552   × cxp 5657  ran crn 5660  Oncon0 6357  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410   ∈ cmpo 7412  1_oc1o 8478  2_oc2o 8479   Er wer 8721  [cec 8722  ℂcc 11132  0cc0 11134  1c1 11135   + caddc 11137  2c2 12300  ℕ₀cn0 12506  ...cfz 13529  ♯chash 14353  Word cword 14536   ++ cconcat 14593  ⟨“cs1 14618   splice csplice 14772  ⟨“cs2 14865  +_gcplusg 17276   ~_FG cefg 19692  freeGrpcfrgp 19693  var_FGrpcvrgp 19694

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2708  ax-rep 5254  ax-sep 5271  ax-nul 5281  ax-pow 5340  ax-pr 5407  ax-un 7734  ax-cnex 11190  ax-resscn 11191  ax-1cn 11192  ax-icn 11193  ax-addcl 11194  ax-addrcl 11195  ax-mulcl 11196  ax-mulrcl 11197  ax-mulcom 11198  ax-addass 11199  ax-mulass 11200  ax-distr 11201  ax-i2m1 11202  ax-1ne0 11203  ax-1rid 11204  ax-rnegex 11205  ax-rrecex 11206  ax-cnre 11207  ax-pre-lttri 11208  ax-pre-lttrn 11209  ax-pre-ltadd 11210  ax-pre-mulgt0 11211

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2810  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-ot 4615  df-uni 4889  df-int 4928  df-iun 4974  df-iin 4975  df-br 5125  df-opab 5187  df-mpt 5207  df-tr 5235  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6295  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7867  df-1st 7993  df-2nd 7994  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-er 8724  df-ec 8726  df-qs 8730  df-map 8847  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-sup 9459  df-inf 9460  df-card 9958  df-pnf 11276  df-mnf 11277  df-xr 11278  df-ltxr 11279  df-le 11280  df-sub 11473  df-neg 11474  df-nn 12246  df-2 12308  df-3 12309  df-4 12310  df-5 12311  df-6 12312  df-7 12313  df-8 12314  df-9 12315  df-n0 12507  df-z 12594  df-dec 12714  df-uz 12858  df-fz 13530  df-fzo 13677  df-hash 14354  df-word 14537  df-concat 14594  df-s1 14619  df-substr 14664  df-pfx 14694  df-splice 14773  df-s2 14872  df-struct 17171  df-slot 17206  df-ndx 17218  df-base 17234  df-plusg 17289  df-mulr 17290  df-sca 17292  df-vsca 17293  df-ip 17294  df-tset 17295  df-ple 17296  df-ds 17298  df-imas 17527  df-qus 17528  df-mgm 18623  df-sgrp 18702  df-mnd 18718  df-frmd 18832  df-efg 19695  df-frgp 19696  df-vrgp 19697

This theorem is referenced by:  frgpnabllem2  19860