Theorem frgpnabllem1 19949

Description: Lemma for frgpnabl 19951. (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 5269	. . . . . . . . 9 ⊢ ∅ ∈ V
3	2	prid1 4727	. . . . . . . 8 ⊢ ∅ ∈ {∅, 1o}
4		df2o3 8459	. . . . . . . 8 ⊢ 2o = {∅, 1o}
5	3, 4	eleqtrri 2861	. . . . . . 7 ⊢ ∅ ∈ 2o
6		opelxpi 5697	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
7	1, 5, 6	sylancl 597	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
8		frgpnabl.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝐼)
9		opelxpi 5697	. . . . . . 7 ⊢ ((𝐵 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
10	8, 5, 9	sylancl 597	. . . . . 6 ⊢ (𝜑 → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
11	7, 10	s2cld 14915	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
12		frgpnabl.w	. . . . . 6 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
13		frgpnabl.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
14		2on 8465	. . . . . . . 8 ⊢ 2o ∈ On
15		xpexg 7747	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
16	13, 14, 15	sylancl 597	. . . . . . 7 ⊢ (𝜑 → (𝐼 × 2o) ∈ V)
17		wrdexg 14568	. . . . . . 7 ⊢ ((𝐼 × 2o) ∈ V → Word (𝐼 × 2o) ∈ V)
18		fvi 6957	. . . . . . 7 ⊢ (Word (𝐼 × 2o) ∈ V → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
19	16, 17, 18	3syl 19	. . . . . 6 ⊢ (𝜑 → ( I ‘Word (𝐼 × 2o)) = Word (𝐼 × 2o))
20	12, 19	eqtrid 2809	. . . . 5 ⊢ (𝜑 → 𝑊 = Word (𝐼 × 2o))
21	11, 20	eleqtrrd 2865	. . . 4 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
22		1n0 8470	. . . . . . 7 ⊢ 1o ≠ ∅
23		2cn 12322	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
24	23	addlidi 11404	. . . . . . . . . . . . 13 ⊢ (0 + 2) = 2
25		s2len 14933	. . . . . . . . . . . . 13 ⊢ (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = 2
26	24, 25	eqtr4i 2788	. . . . . . . . . . . 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 19802	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
31	30	adantll 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
32	26, 31	eqtrid 2809	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 + 2) = ((♯‘𝑥) + 2))
33	32	ex 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 + 2) = ((♯‘𝑥) + 2)))
34		0cnd 11205	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 0 ∈ ℂ)
35		simpr 489	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ 𝑊)
36	12	efgrcl 19791	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
37	36	simprd 500	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝑊 → 𝑊 = Word (𝐼 × 2o))
38	37	adantl 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑊 = Word (𝐼 × 2o))
39	35, 38	eleqtrd 2864	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ Word (𝐼 × 2o))
40		lencl 14577	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (♯‘𝑥) ∈ ℕ0)
41	39, 40	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℕ0)
42	41	nn0cnd 12573	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℂ)
43		2cnd 12325	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 2 ∈ ℂ)
44	34, 42, 43	addcan2d 11420	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ((0 + 2) = ((♯‘𝑥) + 2) ↔ 0 = (♯‘𝑥)))
45	33, 44	sylibd 242	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 0 = (♯‘𝑥)))
46	12, 27, 28, 29	efgtf 19798	. . . . . . . . . . . . . . . . . 18 ⊢ (∅ ∈ 𝑊 → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
47	46	adantl 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ((𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘∅):((0...(♯‘∅)) × (𝐼 × 2o))⟶𝑊))
48	47	simpld 499	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (𝑇‘∅) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
49	48	rneqd 5927	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ran (𝑇‘∅) = ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
50	49	eleq2d 2848	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))))
51		eqid 2762	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
52		ovex 7445	. . . . . . . . . . . . . . . 16 ⊢ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ V
53	51, 52	elrnmpo 7548	. . . . . . . . . . . . . . 15 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ↔ ∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
54		wrd0 14583	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ ∈ Word (𝐼 × 2o)
55	54	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ ∈ Word (𝐼 × 2o))
56		simprr 784	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
57	28	efgmf 19789	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
58	57	ffvelcdmi 7078	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (𝐼 × 2o) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
59	56, 58	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
60	56, 59	s2cld 14915	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o))
61		ccatidid 14635	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (∅ ++ ∅) = ∅
62	61	oveq1i 7422	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((∅ ++ ∅) ++ ∅) = (∅ ++ ∅)
63	62, 61	eqtr2i 2786	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ = ((∅ ++ ∅) ++ ∅)
64	63	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ = ((∅ ++ ∅) ++ ∅))
65		simprl 782	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...(♯‘∅)))
66		hash0 14410	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (♯‘∅) = 0
67	66	oveq2i 7423	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0...(♯‘∅)) = (0...0)
68	65, 67	eleqtrdi 2872	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...0))
69		elfz1eq 13569	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 ∈ (0...0) → 𝑎 = 0)
70	68, 69	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = 0)
71	70, 66	eqtr4di 2815	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (♯‘∅))
72	66	oveq2i 7423	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 + (♯‘∅)) = (𝑎 + 0)
73		0cn 11204	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 ∈ ℂ
74	70, 73	eqeltrdi 2870	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ ℂ)
75	74	addridd 11416	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 + 0) = 𝑎)
76	72, 75	eqtr2id 2810	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (𝑎 + (♯‘∅)))
77	55, 55, 55, 60, 64, 71, 76	splval2 14801	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅))
78		ccatlid 14631	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
79	78	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅))
80		ccatrid 14632	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
81	79, 80	eqtrd 2797	. . . . . . . . . . . . . . . . . . . 20 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
82	60, 81	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
83	77, 82	eqtrd 2797	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
84	83	eqeq2d 2773	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩))
85	1	ad3antrrr 742	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 𝐴 ∈ 𝐼)
86		1on 8464	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1o ∈ On
87	86	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o ∈ On)
88		simpr 489	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩)
89	88	fveq1d 6883	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = (⟨“𝑏(𝑀‘𝑏)”⟩‘1))
90		opex 5444	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ⟨𝐵, ∅⟩ ∈ V
91		s2fv1 14932	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨𝐵, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩)
92	90, 91	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩
93		fvex 6894	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀‘𝑏) ∈ V
94		s2fv1 14932	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀‘𝑏) ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏))
95	93, 94	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏)
96	89, 92, 95	3eqtr3g 2820	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐵, ∅⟩ = (𝑀‘𝑏))
97	88	fveq1d 6883	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = (⟨“𝑏(𝑀‘𝑏)”⟩‘0))
98		opex 5444	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ⟨𝐴, ∅⟩ ∈ V
99		s2fv0 14931	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (⟨𝐴, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩)
100	98, 99	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩
101		s2fv0 14931	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏)
102	101	elv 3459	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏
103	97, 100, 102	3eqtr3g 2820	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, ∅⟩ = 𝑏)
104	103	fveq2d 6885	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = (𝑀‘𝑏))
105	28	efgmval 19788	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
106	85, 5, 105	sylancl 597	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
107		df-ov 7415	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴𝑀∅) = (𝑀‘⟨𝐴, ∅⟩)
108		dif0 4333	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1o ∖ ∅) = 1o
109	108	opeq2i 4841	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ⟨𝐴, (1o ∖ ∅)⟩ = ⟨𝐴, 1o⟩
110	106, 107, 109	3eqtr3g 2820	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = ⟨𝐴, 1o⟩)
111	96, 104, 110	3eqtr2rd 2804	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩)
112		opthg 5458	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ 𝐼 ∧ 1o ∈ On) → (⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩ ↔ (𝐴 = 𝐵 ∧ 1o = ∅)))
113	112	simplbda 504	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ 𝐼 ∧ 1o ∈ On) ∧ ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩) → 1o = ∅)
114	85, 87, 111, 113	syl21anc 850	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o = ∅)
115	114	ex 417	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩ → 1o = ∅))
116	84, 115	sylbid 243	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
117	116	rexlimdvva 3221	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) → 1o = ∅))
118	53, 117	biimtrid 245	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) → 1o = ∅))
119	50, 118	sylbid 243	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) → 1o = ∅))
120	119	expimpd 458	. . . . . . . . . . . 12 ⊢ (𝜑 → ((∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)) → 1o = ∅))
121		hasheq0 14406	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ V → ((♯‘𝑥) = 0 ↔ 𝑥 = ∅))
122	121	elv 3459	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑥) = 0 ↔ 𝑥 = ∅)
123		eleq1 2850	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (𝑥 ∈ 𝑊 ↔ ∅ ∈ 𝑊))
124		fveq2 6881	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ∅ → (𝑇‘𝑥) = (𝑇‘∅))
125	124	rneqd 5927	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ∅ → ran (𝑇‘𝑥) = ran (𝑇‘∅))
126	125	eleq2d 2848	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)))
127	123, 126	anbi12d 643	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = ∅ → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
128	122, 127	sylbi 220	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑥) = 0 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
129	128	eqcoms 2770	. . . . . . . . . . . . 13 ⊢ (0 = (♯‘𝑥) → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
130	129	imbi1d 344	. . . . . . . . . . . 12 ⊢ (0 = (♯‘𝑥) → (((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → 1o = ∅) ↔ ((∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)) → 1o = ∅)))
131	120, 130	syl5ibrcom 250	. . . . . . . . . . 11 ⊢ (𝜑 → (0 = (♯‘𝑥) → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → 1o = ∅)))
132	131	com23 87	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 = (♯‘𝑥) → 1o = ∅)))
133	132	expdimp 457	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 = (♯‘𝑥) → 1o = ∅)))
134	45, 133	mpdd 44	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 1o = ∅))
135	134	necon3ad 2970	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (1o ≠ ∅ → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)))
136	22, 135	mpi 21	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
137	136	nrexdv 3159	. . . . 5 ⊢ (𝜑 → ¬ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
138		eliun 4959	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ↔ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
139	137, 138	sylnibr 332	. . . 4 ⊢ (𝜑 → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
140	21, 139	eldifd 3915	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥)))
141		frgpnabl.d	. . 3 ⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
142	140, 141	eleqtrrdi 2873	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝐷)
143		df-s2 14892	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)
144	12, 27	efger 19794	. . . . . . 7 ⊢ ∼ Er 𝑊
145	144	a1i 11	. . . . . 6 ⊢ (𝜑 → ∼ Er 𝑊)
146	145, 21	erref 8713	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
147	143, 146	eqbrtrrid 5146	. . . 4 ⊢ (𝜑 → (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
148	143	ovexi 7446	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ V
149		ovex 7445	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∈ V
150	148, 149	elec 8739	. . . 4 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ ↔ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
151	147, 150	sylibr 237	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
152		frgpnabl.u	. . . . . . 7 ⊢ 𝑈 = (varFGrp‘𝐼)
153	27, 152	vrgpval 19843	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐴 ∈ 𝐼) → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
154	13, 1, 153	syl2anc 595	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
155	27, 152	vrgpval 19843	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐵 ∈ 𝐼) → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
156	13, 8, 155	syl2anc 595	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
157	154, 156	oveq12d 7430	. . . 4 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ))
158	7	s1cld 14648	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
159	158, 20	eleqtrrd 2865	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊)
160	10	s1cld 14648	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
161	160, 20	eleqtrrd 2865	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
162		frgpnabl.g	. . . . . 6 ⊢ 𝐺 = (freeGrp‘𝐼)
163		frgpnabl.p	. . . . . 6 ⊢ + = (+g‘𝐺)
164	12, 162, 27, 163	frgpadd 19839	. . . . 5 ⊢ ((⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊 ∧ ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊) → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
165	159, 161, 164	syl2anc 595	. . . 4 ⊢ (𝜑 → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
166	157, 165	eqtrd 2797	. . 3 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
167	151, 166	eleqtrrd 2865	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ((𝑈‘𝐴) + (𝑈‘𝐵)))
168	142, 167	elind 4152	1 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝐷 ∩ ((𝑈‘𝐴) + (𝑈‘𝐵))))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1569   ∈ wcel 2142   ≠ wne 2957  ∃wrex 3088  Vcvv 3454   ∖ cdif 3901   ∩ cin 3903  ∅c0 4285  {cpr 4590  ⟨cop 4594  ⟨cotp 4596  ∪ ciun 4955   class class class wbr 5108   ↦ cmpt 5191   I cid 5554   × cxp 5658  ran crn 5661  Oncon0 6360  ⟶wf 6532  ‘cfv 6536  (class class class)co 7412   ∈ cmpo 7414  1_oc1o 8444  2_oc2o 8445   Er wer 8689  [cec 8690  ℂcc 11104  0cc0 11106  1c1 11107   + caddc 11109  2c2 12301  ℕ₀cn0 12510  ...cfz 13541  ♯chash 14373  Word cword 14557   ++ cconcat 14614  ⟨“cs1 14640   splice csplice 14793  ⟨“cs2 14885  +_gcplusg 17316   ~_FG cefg 19782  freeGrpcfrgp 19783  var_FGrpcvrgp 19784

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1824  ax-4 1838  ax-5 1939  ax-6 1996  ax-7 2037  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5335  ax-pr 5403  ax-un 7734  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1103  df-3an 1104  df-tru 1572  df-fal 1582  df-ex 1809  df-nf 1813  df-sb 2096  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-reu 3369  df-rab 3416  df-v 3456  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4595  df-ot 4597  df-uni 4872  df-int 4912  df-iun 4957  df-iin 4958  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5555  df-eprel 5560  df-po 5568  df-so 5569  df-fr 5613  df-we 5615  df-xp 5666  df-rel 5667  df-cnv 5668  df-co 5669  df-dm 5670  df-rn 5671  df-res 5672  df-ima 5673  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8276  df-wrecs 8307  df-recs 8356  df-rdg 8395  df-1o 8451  df-2o 8452  df-er 8692  df-ec 8694  df-qs 8698  df-map 8824  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-sup 9400  df-inf 9401  df-card 9932  df-pnf 11251  df-mnf 11252  df-xr 11253  df-ltxr 11254  df-le 11255  df-sub 11449  df-neg 11450  df-nn 12240  df-2 12309  df-3 12310  df-4 12311  df-5 12312  df-6 12313  df-7 12314  df-8 12315  df-9 12316  df-n0 12511  df-z 12598  df-dec 12718  df-uz 12869  df-fz 13542  df-fzo 13690  df-hash 14374  df-word 14558  df-concat 14615  df-s1 14641  df-substr 14686  df-pfx 14716  df-splice 14794  df-s2 14892  df-struct 17213  df-slot 17248  df-ndx 17260  df-base 17276  df-plusg 17329  df-mulr 17330  df-sca 17332  df-vsca 17333  df-ip 17334  df-tset 17335  df-ple 17336  df-ds 17338  df-imas 17568  df-qus 17569  df-mgm 18704  df-sgrp 18783  df-mnd 18799  df-frmd 18914  df-efg 19785  df-frgp 19786  df-vrgp 19787

This theorem is used by:  frgpnabllem2  19950