Theorem frgpnabllem1 19837

Description: Lemma for frgpnabl 19839. (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 5231	. . . . . . . . 9 ⊢ ∅ ∈ V
3	2	prid1 4696	. . . . . . . 8 ⊢ ∅ ∈ {∅, 1o}
4		df2o3 8402	. . . . . . . 8 ⊢ 2o = {∅, 1o}
5	3, 4	eleqtrri 2834	. . . . . . 7 ⊢ ∅ ∈ 2o
6		opelxpi 5657	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
7	1, 5, 6	sylancl 587	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, ∅⟩ ∈ (𝐼 × 2o))
8		frgpnabl.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝐼)
9		opelxpi 5657	. . . . . . 7 ⊢ ((𝐵 ∈ 𝐼 ∧ ∅ ∈ 2o) → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
10	8, 5, 9	sylancl 587	. . . . . 6 ⊢ (𝜑 → ⟨𝐵, ∅⟩ ∈ (𝐼 × 2o))
11	7, 10	s2cld 14822	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
12		frgpnabl.w	. . . . . 6 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
13		frgpnabl.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
14		2on 8407	. . . . . . . 8 ⊢ 2o ∈ On
15		xpexg 7693	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
16	13, 14, 15	sylancl 587	. . . . . . 7 ⊢ (𝜑 → (𝐼 × 2o) ∈ V)
17		wrdexg 14475	. . . . . . 7 ⊢ ((𝐼 × 2o) ∈ V → Word (𝐼 × 2o) ∈ V)
18		fvi 6905	. . . . . . 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 2782	. . . . 5 ⊢ (𝜑 → 𝑊 = Word (𝐼 × 2o))
21	11, 20	eleqtrrd 2838	. . . 4 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝑊)
22		1n0 8412	. . . . . . 7 ⊢ 1o ≠ ∅
23		2cn 12245	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
24	23	addlidi 11323	. . . . . . . . . . . . 13 ⊢ (0 + 2) = 2
25		s2len 14840	. . . . . . . . . . . . 13 ⊢ (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = 2
26	24, 25	eqtr4i 2761	. . . . . . . . . . . 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 19690	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
31	30	adantll 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (♯‘⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩) = ((♯‘𝑥) + 2))
32	26, 31	eqtrid 2782	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑊) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) → (0 + 2) = ((♯‘𝑥) + 2))
33	32	ex 412	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → (0 + 2) = ((♯‘𝑥) + 2)))
34		0cnd 11126	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 0 ∈ ℂ)
35		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 𝑥 ∈ 𝑊)
36	12	efgrcl 19679	. . . . . . . . . . . . . . . 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 14484	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (♯‘𝑥) ∈ ℕ0)
41	39, 40	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℕ0)
42	41	nn0cnd 12489	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (♯‘𝑥) ∈ ℂ)
43		2cnd 12248	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → 2 ∈ ℂ)
44	34, 42, 43	addcan2d 11339	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ((0 + 2) = ((♯‘𝑥) + 2) ↔ 0 = (♯‘𝑥)))
45	33, 44	sylibd 239	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) → 0 = (♯‘𝑥)))
46	12, 27, 28, 29	efgtf 19686	. . . . . . . . . . . . . . . . . 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 5882	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → ran (𝑇‘∅) = ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
50	49	eleq2d 2821	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ∅ ∈ 𝑊) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))))
51		eqid 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
52		ovex 7389	. . . . . . . . . . . . . . . 16 ⊢ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ V
53	51, 52	elrnmpo 7492	. . . . . . . . . . . . . . 15 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑎 ∈ (0...(♯‘∅)), 𝑏 ∈ (𝐼 × 2o) ↦ (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ↔ ∃𝑎 ∈ (0...(♯‘∅))∃𝑏 ∈ (𝐼 × 2o)⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
54		wrd0 14490	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ ∈ Word (𝐼 × 2o)
55	54	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ ∈ Word (𝐼 × 2o))
56		simprr 773	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
57	28	efgmf 19677	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
58	57	ffvelcdmi 7024	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (𝐼 × 2o) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
59	56, 58	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
60	56, 59	s2cld 14822	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o))
61		ccatidid 14542	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (∅ ++ ∅) = ∅
62	61	oveq1i 7366	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((∅ ++ ∅) ++ ∅) = (∅ ++ ∅)
63	62, 61	eqtr2i 2759	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ∅ = ((∅ ++ ∅) ++ ∅)
64	63	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ = ((∅ ++ ∅) ++ ∅))
65		simprl 771	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...(♯‘∅)))
66		hash0 14318	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (♯‘∅) = 0
67	66	oveq2i 7367	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0...(♯‘∅)) = (0...0)
68	65, 67	eleqtrdi 2845	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ (0...0))
69		elfz1eq 13478	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 ∈ (0...0) → 𝑎 = 0)
70	68, 69	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = 0)
71	70, 66	eqtr4di 2788	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (♯‘∅))
72	66	oveq2i 7367	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 + (♯‘∅)) = (𝑎 + 0)
73		0cn 11125	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 ∈ ℂ
74	70, 73	eqeltrdi 2843	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ ℂ)
75	74	addridd 11335	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 + 0) = 𝑎)
76	72, 75	eqtr2id 2783	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (𝑎 + (♯‘∅)))
77	55, 55, 55, 60, 64, 71, 76	splval2 14708	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅))
78		ccatlid 14538	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
79	78	oveq1d 7371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅))
80		ccatrid 14539	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → (⟨“𝑏(𝑀‘𝑏)”⟩ ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
81	79, 80	eqtrd 2770	. . . . . . . . . . . . . . . . . . . 20 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
82	60, 81	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((∅ ++ ⟨“𝑏(𝑀‘𝑏)”⟩) ++ ∅) = ⟨“𝑏(𝑀‘𝑏)”⟩)
83	77, 82	eqtrd 2770	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = ⟨“𝑏(𝑀‘𝑏)”⟩)
84	83	eqeq2d 2746	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (∅ splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩))
85	1	ad3antrrr 731	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 𝐴 ∈ 𝐼)
86		1on 8406	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1o ∈ On
87	86	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → 1o ∈ On)
88		simpr 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩)
89	88	fveq1d 6831	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = (⟨“𝑏(𝑀‘𝑏)”⟩‘1))
90		opex 5405	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ⟨𝐵, ∅⟩ ∈ V
91		s2fv1 14839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨𝐵, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩)
92	90, 91	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘1) = ⟨𝐵, ∅⟩
93		fvex 6842	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀‘𝑏) ∈ V
94		s2fv1 14839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀‘𝑏) ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏))
95	93, 94	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘1) = (𝑀‘𝑏)
96	89, 92, 95	3eqtr3g 2793	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐵, ∅⟩ = (𝑀‘𝑏))
97	88	fveq1d 6831	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = (⟨“𝑏(𝑀‘𝑏)”⟩‘0))
98		opex 5405	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ⟨𝐴, ∅⟩ ∈ V
99		s2fv0 14838	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (⟨𝐴, ∅⟩ ∈ V → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩)
100	98, 99	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩‘0) = ⟨𝐴, ∅⟩
101		s2fv0 14838	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 ∈ V → (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏)
102	101	elv 3432	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⟨“𝑏(𝑀‘𝑏)”⟩‘0) = 𝑏
103	97, 100, 102	3eqtr3g 2793	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, ∅⟩ = 𝑏)
104	103	fveq2d 6833	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = (𝑀‘𝑏))
105	28	efgmval 19676	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ 𝐼 ∧ ∅ ∈ 2o) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
106	85, 5, 105	sylancl 587	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝐴𝑀∅) = ⟨𝐴, (1o ∖ ∅)⟩)
107		df-ov 7359	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴𝑀∅) = (𝑀‘⟨𝐴, ∅⟩)
108		dif0 4308	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1o ∖ ∅) = 1o
109	108	opeq2i 4810	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ⟨𝐴, (1o ∖ ∅)⟩ = ⟨𝐴, 1o⟩
110	106, 107, 109	3eqtr3g 2793	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → (𝑀‘⟨𝐴, ∅⟩) = ⟨𝐴, 1o⟩)
111	96, 104, 110	3eqtr2rd 2777	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ∅ ∈ 𝑊) ∧ (𝑎 ∈ (0...(♯‘∅)) ∧ 𝑏 ∈ (𝐼 × 2o))) ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩) → ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩)
112		opthg 5419	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ 𝐼 ∧ 1o ∈ On) → (⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩ ↔ (𝐴 = 𝐵 ∧ 1o = ∅)))
113	112	simplbda 499	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ 𝐼 ∧ 1o ∈ On) ∧ ⟨𝐴, 1o⟩ = ⟨𝐵, ∅⟩) → 1o = ∅)
114	85, 87, 111, 113	syl21anc 838	. . . . . . . . . . . . . . . . . 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 3192	. . . . . . . . . . . . . . 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 14314	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ V → ((♯‘𝑥) = 0 ↔ 𝑥 = ∅))
122	121	elv 3432	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑥) = 0 ↔ 𝑥 = ∅)
123		eleq1 2823	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (𝑥 ∈ 𝑊 ↔ ∅ ∈ 𝑊))
124		fveq2 6829	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ∅ → (𝑇‘𝑥) = (𝑇‘∅))
125	124	rneqd 5882	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ∅ → ran (𝑇‘𝑥) = ran (𝑇‘∅))
126	125	eleq2d 2821	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ∅ → (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥) ↔ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅)))
127	123, 126	anbi12d 633	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = ∅ → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
128	122, 127	sylbi 217	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑥) = 0 → ((𝑥 ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)) ↔ (∅ ∈ 𝑊 ∧ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘∅))))
129	128	eqcoms 2743	. . . . . . . . . . . . 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 2943	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → (1o ≠ ∅ → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥)))
136	22, 135	mpi 20	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑊) → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
137	136	nrexdv 3130	. . . . 5 ⊢ (𝜑 → ¬ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
138		eliun 4927	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ↔ ∃𝑥 ∈ 𝑊 ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ran (𝑇‘𝑥))
139	137, 138	sylnibr 329	. . . 4 ⊢ (𝜑 → ¬ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
140	21, 139	eldifd 3896	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥)))
141		frgpnabl.d	. . 3 ⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
142	140, 141	eleqtrrdi 2846	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ 𝐷)
143		df-s2 14799	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ = (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)
144	12, 27	efger 19682	. . . . . . 7 ⊢ ∼ Er 𝑊
145	144	a1i 11	. . . . . 6 ⊢ (𝜑 → ∼ Er 𝑊)
146	145, 21	erref 8653	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
147	143, 146	eqbrtrrid 5110	. . . 4 ⊢ (𝜑 → (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
148	143	ovexi 7390	. . . . 5 ⊢ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ V
149		ovex 7389	. . . . 5 ⊢ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∈ V
150	148, 149	elec 8679	. . . 4 ⊢ (⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ ↔ (⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩) ∼ ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩)
151	147, 150	sylibr 234	. . 3 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
152		frgpnabl.u	. . . . . . 7 ⊢ 𝑈 = (varFGrp‘𝐼)
153	27, 152	vrgpval 19731	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐴 ∈ 𝐼) → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
154	13, 1, 153	syl2anc 585	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐴) = [⟨“⟨𝐴, ∅⟩”⟩] ∼ )
155	27, 152	vrgpval 19731	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐵 ∈ 𝐼) → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
156	13, 8, 155	syl2anc 585	. . . . 5 ⊢ (𝜑 → (𝑈‘𝐵) = [⟨“⟨𝐵, ∅⟩”⟩] ∼ )
157	154, 156	oveq12d 7374	. . . 4 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ))
158	7	s1cld 14555	. . . . . 6 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ Word (𝐼 × 2o))
159	158, 20	eleqtrrd 2838	. . . . 5 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊)
160	10	s1cld 14555	. . . . . 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 19727	. . . . 5 ⊢ ((⟨“⟨𝐴, ∅⟩”⟩ ∈ 𝑊 ∧ ⟨“⟨𝐵, ∅⟩”⟩ ∈ 𝑊) → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
165	159, 161, 164	syl2anc 585	. . . 4 ⊢ (𝜑 → ([⟨“⟨𝐴, ∅⟩”⟩] ∼ + [⟨“⟨𝐵, ∅⟩”⟩] ∼ ) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
166	157, 165	eqtrd 2770	. . 3 ⊢ (𝜑 → ((𝑈‘𝐴) + (𝑈‘𝐵)) = [(⟨“⟨𝐴, ∅⟩”⟩ ++ ⟨“⟨𝐵, ∅⟩”⟩)] ∼ )
167	151, 166	eleqtrrd 2838	. 2 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ ((𝑈‘𝐴) + (𝑈‘𝐵)))
168	142, 167	elind 4131	1 ⊢ (𝜑 → ⟨“⟨𝐴, ∅⟩⟨𝐵, ∅⟩”⟩ ∈ (𝐷 ∩ ((𝑈‘𝐴) + (𝑈‘𝐵))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ≠ wne 2930  ∃wrex 3059  Vcvv 3427   ∖ cdif 3882   ∩ cin 3884  ∅c0 4263  {cpr 4559  ⟨cop 4563  ⟨cotp 4565  ∪ ciun 4923   class class class wbr 5074   ↦ cmpt 5155   I cid 5514   × cxp 5618  ran crn 5621  Oncon0 6312  ⟶wf 6483  ‘cfv 6487  (class class class)co 7356   ∈ cmpo 7358  1_oc1o 8387  2_oc2o 8388   Er wer 8629  [cec 8630  ℂcc 11025  0cc0 11027  1c1 11028   + caddc 11030  2c2 12225  ℕ₀cn0 12426  ...cfz 13450  ♯chash 14281  Word cword 14464   ++ cconcat 14521  ⟨“cs1 14547   splice csplice 14700  ⟨“cs2 14792  +_gcplusg 17209   ~_FG cefg 19670  freeGrpcfrgp 19671  var_FGrpcvrgp 19672

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2184  ax-ext 2707  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7678  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3060  df-reu 3341  df-rab 3388  df-v 3429  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-ot 4566  df-uni 4841  df-int 4880  df-iun 4925  df-iin 4926  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6254  df-ord 6315  df-on 6316  df-lim 6317  df-suc 6318  df-iota 6443  df-fun 6489  df-fn 6490  df-f 6491  df-f1 6492  df-fo 6493  df-f1o 6494  df-fv 6495  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-rdg 8338  df-1o 8394  df-2o 8395  df-er 8632  df-ec 8634  df-qs 8638  df-map 8764  df-en 8883  df-dom 8884  df-sdom 8885  df-fin 8886  df-sup 9344  df-inf 9345  df-card 9852  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-nn 12164  df-2 12233  df-3 12234  df-4 12235  df-5 12236  df-6 12237  df-7 12238  df-8 12239  df-9 12240  df-n0 12427  df-z 12514  df-dec 12634  df-uz 12778  df-fz 13451  df-fzo 13598  df-hash 14282  df-word 14465  df-concat 14522  df-s1 14548  df-substr 14593  df-pfx 14623  df-splice 14701  df-s2 14799  df-struct 17106  df-slot 17141  df-ndx 17153  df-base 17169  df-plusg 17222  df-mulr 17223  df-sca 17225  df-vsca 17226  df-ip 17227  df-tset 17228  df-ple 17229  df-ds 17231  df-imas 17461  df-qus 17462  df-mgm 18597  df-sgrp 18676  df-mnd 18692  df-frmd 18806  df-efg 19673  df-frgp 19674  df-vrgp 19675

This theorem is referenced by:  frgpnabllem2  19838