Theorem frgpuplem 19833

Description: Any assignment of the generators to target elements can be extended (uniquely) to a homomorphism from a free monoid to an arbitrary other monoid. (Contributed by Mario Carneiro, 2-Oct-2015.)

Hypotheses

Ref	Expression
frgpup.b	⊢ 𝐵 = (Base‘𝐻)
frgpup.n	⊢ 𝑁 = (invg‘𝐻)
frgpup.t	⊢ 𝑇 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ if(𝑧 = ∅, (𝐹‘𝑦), (𝑁‘(𝐹‘𝑦))))
frgpup.h	⊢ (𝜑 → 𝐻 ∈ Grp)
frgpup.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
frgpup.a	⊢ (𝜑 → 𝐹:𝐼⟶𝐵)
frgpup.w	⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
frgpup.r	⊢ ∼ = ( ~FG ‘𝐼)

Assertion

Ref	Expression
frgpuplem	⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶)))

Distinct variable groups:   𝑦,𝑧,𝐴   𝑦,𝐹,𝑧   𝑦,𝑁,𝑧   𝑦,𝐵,𝑧   𝜑,𝑦,𝑧   𝑦,𝐼,𝑧

Allowed substitution hints:   𝐶(𝑦,𝑧)   ∼ (𝑦,𝑧)   𝑇(𝑦,𝑧)   𝐻(𝑦,𝑧)   𝑉(𝑦,𝑧)   𝑊(𝑦,𝑧)

Proof of Theorem frgpuplem

Dummy variables 𝑎 𝑏 𝑢 𝑣 𝑛 𝑟 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frgpup.w	. . . . . . 7 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
2		frgpup.r	. . . . . . 7 ⊢ ∼ = ( ~FG ‘𝐼)
3	1, 2	efgval 19778	. . . . . 6 ⊢ ∼ = ∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))}
4		coeq2 5835	. . . . . . . . . . . . 13 ⊢ (𝑢 = 𝑣 → (𝑇 ∘ 𝑢) = (𝑇 ∘ 𝑣))
5	4	oveq2d 7416	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑣 → (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))
6		eqid 2765	. . . . . . . . . . . 12 ⊢ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} = {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))}
7	5, 6	eqer 8719	. . . . . . . . . . 11 ⊢ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} Er V
8	7	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} Er V)
9		ssv 3963	. . . . . . . . . . 11 ⊢ 𝑊 ⊆ V
10	9	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ⊆ V)
11	8, 10	erinxp 8777	. . . . . . . . 9 ⊢ (𝜑 → ({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) Er 𝑊)
12		df-xp 5658	. . . . . . . . . . . . 13 ⊢ (𝑊 × 𝑊) = {⟨𝑢, 𝑣⟩ ∣ (𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊)}
13	12	ineq1i 4171	. . . . . . . . . . . 12 ⊢ ((𝑊 × 𝑊) ∩ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))}) = ({⟨𝑢, 𝑣⟩ ∣ (𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊)} ∩ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))})
14		incom 4164	. . . . . . . . . . . 12 ⊢ ((𝑊 × 𝑊) ∩ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))}) = ({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊))
15		inopab 5807	. . . . . . . . . . . 12 ⊢ ({⟨𝑢, 𝑣⟩ ∣ (𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊)} ∩ {⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))}) = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}
16	13, 14, 15	3eqtr3i 2796	. . . . . . . . . . 11 ⊢ ({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}
17		vex 3461	. . . . . . . . . . . . . 14 ⊢ 𝑢 ∈ V
18		vex 3461	. . . . . . . . . . . . . 14 ⊢ 𝑣 ∈ V
19	17, 18	prss 4781	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ↔ {𝑢, 𝑣} ⊆ 𝑊)
20	19	anbi1i 635	. . . . . . . . . . . 12 ⊢ (((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))) ↔ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))))
21	20	opabbii 5172	. . . . . . . . . . 11 ⊢ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}
22	16, 21	eqtri 2788	. . . . . . . . . 10 ⊢ ({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}
23		ereq1 8690	. . . . . . . . . 10 ⊢ (({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → (({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) Er 𝑊 ↔ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊))
24	22, 23	ax-mp 5	. . . . . . . . 9 ⊢ (({⟨𝑢, 𝑣⟩ ∣ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))} ∩ (𝑊 × 𝑊)) Er 𝑊 ↔ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊)
25	11, 24	sylib 221	. . . . . . . 8 ⊢ (𝜑 → {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊)
26		simplrl 788	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑥 ∈ 𝑊)
27		fviss 6948	. . . . . . . . . . . . . . 15 ⊢ ( I ‘Word (𝐼 × 2o)) ⊆ Word (𝐼 × 2o)
28	1, 27	eqsstri 3985	. . . . . . . . . . . . . 14 ⊢ 𝑊 ⊆ Word (𝐼 × 2o)
29	28, 26	sselid 3937	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑥 ∈ Word (𝐼 × 2o))
30		opelxpi 5689	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o) → ⟨𝑎, 𝑏⟩ ∈ (𝐼 × 2o))
31	30	adantl 486	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ⟨𝑎, 𝑏⟩ ∈ (𝐼 × 2o))
32		simprl 782	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑎 ∈ 𝐼)
33		2oconcl 8476	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 ∈ 2o → (1o ∖ 𝑏) ∈ 2o)
34	33	ad2antll 741	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (1o ∖ 𝑏) ∈ 2o)
35	32, 34	opelxpd 5691	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ⟨𝑎, (1o ∖ 𝑏)⟩ ∈ (𝐼 × 2o))
36	31, 35	s2cld 14898	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o))
37		splcl 14779	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ Word (𝐼 × 2o) ∧ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o)) → (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ Word (𝐼 × 2o))
38	29, 36, 37	syl2anc 595	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ Word (𝐼 × 2o))
39	1	efgrcl 19776	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ 𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
40	26, 39	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
41	40	simprd 500	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑊 = Word (𝐼 × 2o))
42	38, 41	eleqtrrd 2868	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊)
43		pfxcl 14705	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o))
44	29, 43	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o))
45		frgpup.b	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐵 = (Base‘𝐻)
46		frgpup.n	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑁 = (invg‘𝐻)
47		frgpup.t	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑇 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ if(𝑧 = ∅, (𝐹‘𝑦), (𝑁‘(𝐹‘𝑦))))
48		frgpup.h	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐻 ∈ Grp)
49		frgpup.i	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
50		frgpup.a	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐹:𝐼⟶𝐵)
51	45, 46, 47, 48, 49, 50	frgpuptf 19831	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑇:(𝐼 × 2o)⟶𝐵)
52	51	ad2antrr 738	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑇:(𝐼 × 2o)⟶𝐵)
53		ccatco 14862	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o) ∧ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) = ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)))
54	44, 36, 52, 53	syl3anc 1394	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) = ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)))
55	54	oveq2d 7416	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))) = (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))))
56	48	ad2antrr 738	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝐻 ∈ Grp)
57	56	grpmndd 19003	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝐻 ∈ Mnd)
58		wrdco 14858	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ (𝑥 prefix 𝑛)) ∈ Word 𝐵)
59	44, 52, 58	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ (𝑥 prefix 𝑛)) ∈ Word 𝐵)
60		wrdco 14858	. . . . . . . . . . . . . . . . 17 ⊢ ((⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word 𝐵)
61	36, 52, 60	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word 𝐵)
62		eqid 2765	. . . . . . . . . . . . . . . . 17 ⊢ (+g‘𝐻) = (+g‘𝐻)
63	45, 62	gsumccat 18890	. . . . . . . . . . . . . . . 16 ⊢ ((𝐻 ∈ Mnd ∧ (𝑇 ∘ (𝑥 prefix 𝑛)) ∈ Word 𝐵 ∧ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word 𝐵) → (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))) = ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))))
64	57, 59, 61, 63	syl3anc 1394	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))) = ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))))
65	52, 31, 35	s2co 14947	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) = ⟨“(𝑇‘⟨𝑎, 𝑏⟩)(𝑇‘⟨𝑎, (1o ∖ 𝑏)⟩)”⟩)
66		df-ov 7403	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎𝑇𝑏) = (𝑇‘⟨𝑎, 𝑏⟩)
67	66	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑎𝑇𝑏) = (𝑇‘⟨𝑎, 𝑏⟩))
68	66	fveq2i 6874	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁‘(𝑎𝑇𝑏)) = (𝑁‘(𝑇‘⟨𝑎, 𝑏⟩))
69		df-ov 7403	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑎(𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)𝑏) = ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩)
70		eqid 2765	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩) = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
71	70	efgmval 19773	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o) → (𝑎(𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)𝑏) = ⟨𝑎, (1o ∖ 𝑏)⟩)
72	69, 71	eqtr3id 2814	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o) → ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩) = ⟨𝑎, (1o ∖ 𝑏)⟩)
73	72	adantl 486	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩) = ⟨𝑎, (1o ∖ 𝑏)⟩)
74	73	fveq2d 6875	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇‘((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩)) = (𝑇‘⟨𝑎, (1o ∖ 𝑏)⟩))
75	45, 46, 47, 48, 49, 50, 70	frgpuptinv 19832	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ ⟨𝑎, 𝑏⟩ ∈ (𝐼 × 2o)) → (𝑇‘((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩)) = (𝑁‘(𝑇‘⟨𝑎, 𝑏⟩)))
76	30, 75	sylan2 604	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇‘((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩)) = (𝑁‘(𝑇‘⟨𝑎, 𝑏⟩)))
77	76	adantlr 727	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇‘((𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)‘⟨𝑎, 𝑏⟩)) = (𝑁‘(𝑇‘⟨𝑎, 𝑏⟩)))
78	74, 77	eqtr3d 2802	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇‘⟨𝑎, (1o ∖ 𝑏)⟩) = (𝑁‘(𝑇‘⟨𝑎, 𝑏⟩)))
79	68, 78	eqtr4id 2819	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑁‘(𝑎𝑇𝑏)) = (𝑇‘⟨𝑎, (1o ∖ 𝑏)⟩))
80	67, 79	s2eqd 14890	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ⟨“(𝑎𝑇𝑏)(𝑁‘(𝑎𝑇𝑏))”⟩ = ⟨“(𝑇‘⟨𝑎, 𝑏⟩)(𝑇‘⟨𝑎, (1o ∖ 𝑏)⟩)”⟩)
81	65, 80	eqtr4d 2803	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) = ⟨“(𝑎𝑇𝑏)(𝑁‘(𝑎𝑇𝑏))”⟩)
82	81	oveq2d 7416	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) = (𝐻 Σg ⟨“(𝑎𝑇𝑏)(𝑁‘(𝑎𝑇𝑏))”⟩))
83		simprr 784	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑏 ∈ 2o)
84	52, 32, 83	fovcdmd 7572	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑎𝑇𝑏) ∈ 𝐵)
85	45, 46	grpinvcl 19044	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐻 ∈ Grp ∧ (𝑎𝑇𝑏) ∈ 𝐵) → (𝑁‘(𝑎𝑇𝑏)) ∈ 𝐵)
86	56, 84, 85	syl2anc 595	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑁‘(𝑎𝑇𝑏)) ∈ 𝐵)
87	45, 62	gsumws2 18891	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐻 ∈ Mnd ∧ (𝑎𝑇𝑏) ∈ 𝐵 ∧ (𝑁‘(𝑎𝑇𝑏)) ∈ 𝐵) → (𝐻 Σg ⟨“(𝑎𝑇𝑏)(𝑁‘(𝑎𝑇𝑏))”⟩) = ((𝑎𝑇𝑏)(+g‘𝐻)(𝑁‘(𝑎𝑇𝑏))))
88	57, 84, 86, 87	syl3anc 1394	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg ⟨“(𝑎𝑇𝑏)(𝑁‘(𝑎𝑇𝑏))”⟩) = ((𝑎𝑇𝑏)(+g‘𝐻)(𝑁‘(𝑎𝑇𝑏))))
89		eqid 2765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (0g‘𝐻) = (0g‘𝐻)
90	45, 62, 89, 46	grprinv 19047	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐻 ∈ Grp ∧ (𝑎𝑇𝑏) ∈ 𝐵) → ((𝑎𝑇𝑏)(+g‘𝐻)(𝑁‘(𝑎𝑇𝑏))) = (0g‘𝐻))
91	56, 84, 90	syl2anc 595	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝑎𝑇𝑏)(+g‘𝐻)(𝑁‘(𝑎𝑇𝑏))) = (0g‘𝐻))
92	82, 88, 91	3eqtrd 2804	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) = (0g‘𝐻))
93	92	oveq2d 7416	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))) = ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(0g‘𝐻)))
94	45	gsumwcl 18888	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐻 ∈ Mnd ∧ (𝑇 ∘ (𝑥 prefix 𝑛)) ∈ Word 𝐵) → (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))) ∈ 𝐵)
95	57, 59, 94	syl2anc 595	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))) ∈ 𝐵)
96	45, 62, 89	grprid 19025	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐻 ∈ Grp ∧ (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))) ∈ 𝐵) → ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(0g‘𝐻)) = (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))))
97	56, 95, 96	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(0g‘𝐻)) = (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))))
98	93, 97	eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))) = (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))))
99	55, 64, 98	3eqtrrd 2805	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛))) = (𝐻 Σg (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩))))
100	99	oveq1d 7415	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = ((𝐻 Σg (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
101		swrdcl 14673	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩) ∈ Word (𝐼 × 2o))
102	29, 101	syl 18	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩) ∈ Word (𝐼 × 2o))
103		wrdco 14858	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 substr ⟨𝑛, (♯‘𝑥)⟩) ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) ∈ Word 𝐵)
104	102, 52, 103	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) ∈ Word 𝐵)
105	45, 62	gsumccat 18890	. . . . . . . . . . . . . 14 ⊢ ((𝐻 ∈ Mnd ∧ (𝑇 ∘ (𝑥 prefix 𝑛)) ∈ Word 𝐵 ∧ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) ∈ Word 𝐵) → (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
106	57, 59, 104, 105	syl3anc 1394	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = ((𝐻 Σg (𝑇 ∘ (𝑥 prefix 𝑛)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
107		ccatcl 14601	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o) ∧ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o)) → ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word (𝐼 × 2o))
108	44, 36, 107	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word (𝐼 × 2o))
109		wrdco 14858	. . . . . . . . . . . . . . 15 ⊢ ((((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ∈ Word 𝐵)
110	108, 52, 109	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ∈ Word 𝐵)
111	45, 62	gsumccat 18890	. . . . . . . . . . . . . 14 ⊢ ((𝐻 ∈ Mnd ∧ (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ∈ Word 𝐵 ∧ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) ∈ Word 𝐵) → (𝐻 Σg ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = ((𝐻 Σg (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
112	57, 110, 104, 111	syl3anc 1394	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = ((𝐻 Σg (𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)))(+g‘𝐻)(𝐻 Σg (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
113	100, 106, 112	3eqtr4d 2810	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))) = (𝐻 Σg ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
114		simplrr 789	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑛 ∈ (0...(♯‘𝑥)))
115		lencl 14560	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (♯‘𝑥) ∈ ℕ0)
116	29, 115	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (♯‘𝑥) ∈ ℕ0)
117		nn0uz 12891	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 = (ℤ≥‘0)
118	116, 117	eleqtrdi 2875	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (♯‘𝑥) ∈ (ℤ≥‘0))
119		eluzfz2 13551	. . . . . . . . . . . . . . . . . 18 ⊢ ((♯‘𝑥) ∈ (ℤ≥‘0) → (♯‘𝑥) ∈ (0...(♯‘𝑥)))
120	118, 119	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (♯‘𝑥) ∈ (0...(♯‘𝑥)))
121		ccatpfx 14728	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ Word (𝐼 × 2o) ∧ 𝑛 ∈ (0...(♯‘𝑥)) ∧ (♯‘𝑥) ∈ (0...(♯‘𝑥))) → ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) = (𝑥 prefix (♯‘𝑥)))
122	29, 114, 120, 121	syl3anc 1394	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) = (𝑥 prefix (♯‘𝑥)))
123		pfxid 14712	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ Word (𝐼 × 2o) → (𝑥 prefix (♯‘𝑥)) = 𝑥)
124	29, 123	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 prefix (♯‘𝑥)) = 𝑥)
125	122, 124	eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)) = 𝑥)
126	125	coeq2d 5839	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))) = (𝑇 ∘ 𝑥))
127		ccatco 14862	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 prefix 𝑛) ∈ Word (𝐼 × 2o) ∧ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩) ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))) = ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
128	44, 102, 52, 127	syl3anc 1394	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ ((𝑥 prefix 𝑛) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))) = ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
129	126, 128	eqtr3d 2802	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ 𝑥) = ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
130	129	oveq2d 7416	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ 𝑥)) = (𝐻 Σg ((𝑇 ∘ (𝑥 prefix 𝑛)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
131		splval 14778	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝑊 ∧ (𝑛 ∈ (0...(♯‘𝑥)) ∧ 𝑛 ∈ (0...(♯‘𝑥)) ∧ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩ ∈ Word (𝐼 × 2o))) → (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) = (((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))
132	26, 114, 114, 36, 131	syl13anc 1395	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) = (((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))
133	132	coeq2d 5839	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) = (𝑇 ∘ (((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
134		ccatco 14862	. . . . . . . . . . . . . . 15 ⊢ ((((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ∈ Word (𝐼 × 2o) ∧ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩) ∈ Word (𝐼 × 2o) ∧ 𝑇:(𝐼 × 2o)⟶𝐵) → (𝑇 ∘ (((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))) = ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
135	108, 102, 52, 134	syl3anc 1394	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ (((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩) ++ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))) = ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
136	133, 135	eqtrd 2800	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) = ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩))))
137	136	oveq2d 7416	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))) = (𝐻 Σg ((𝑇 ∘ ((𝑥 prefix 𝑛) ++ ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩)) ++ (𝑇 ∘ (𝑥 substr ⟨𝑛, (♯‘𝑥)⟩)))))
138	113, 130, 137	3eqtr4d 2810	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → (𝐻 Σg (𝑇 ∘ 𝑥)) = (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))
139		vex 3461	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
140		ovex 7433	. . . . . . . . . . . 12 ⊢ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ V
141		eleq1 2853	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = 𝑥 → (𝑢 ∈ 𝑊 ↔ 𝑥 ∈ 𝑊))
142		eleq1 2853	. . . . . . . . . . . . . . 15 ⊢ (𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) → (𝑣 ∈ 𝑊 ↔ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊))
143	141, 142	bi2anan9 649	. . . . . . . . . . . . . 14 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) → ((𝑢 ∈ 𝑊 ∧ 𝑣 ∈ 𝑊) ↔ (𝑥 ∈ 𝑊 ∧ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊)))
144	19, 143	bitr3id 288	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) → ({𝑢, 𝑣} ⊆ 𝑊 ↔ (𝑥 ∈ 𝑊 ∧ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊)))
145		coeq2 5835	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = 𝑥 → (𝑇 ∘ 𝑢) = (𝑇 ∘ 𝑥))
146	145	oveq2d 7416	. . . . . . . . . . . . . 14 ⊢ (𝑢 = 𝑥 → (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑥)))
147		coeq2 5835	. . . . . . . . . . . . . . 15 ⊢ (𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) → (𝑇 ∘ 𝑣) = (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))
148	147	oveq2d 7416	. . . . . . . . . . . . . 14 ⊢ (𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) → (𝐻 Σg (𝑇 ∘ 𝑣)) = (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))
149	146, 148	eqeqan12d 2779	. . . . . . . . . . . . 13 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) → ((𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)) ↔ (𝐻 Σg (𝑇 ∘ 𝑥)) = (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))))
150	144, 149	anbi12d 643	. . . . . . . . . . . 12 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) → (({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))) ↔ ((𝑥 ∈ 𝑊 ∧ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑥)) = (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))))
151		eqid 2765	. . . . . . . . . . . 12 ⊢ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}
152	139, 140, 150, 151	braba 5512	. . . . . . . . . . 11 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ↔ ((𝑥 ∈ 𝑊 ∧ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ∈ 𝑊) ∧ (𝐻 Σg (𝑇 ∘ 𝑥)) = (𝐻 Σg (𝑇 ∘ (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))))
153	26, 42, 138, 152	syl21anbrc 1361	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) ∧ (𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2o)) → 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))
154	153	ralrimivva 3208	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑊 ∧ 𝑛 ∈ (0...(♯‘𝑥)))) → ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))
155	154	ralrimivva 3208	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))
156	1	fvexi 6885	. . . . . . . . . 10 ⊢ 𝑊 ∈ V
157		erex 8707	. . . . . . . . . 10 ⊢ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊 → (𝑊 ∈ V → {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ V))
158	25, 156, 157	mpisyl 22	. . . . . . . . 9 ⊢ (𝜑 → {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ V)
159		ereq1 8690	. . . . . . . . . . 11 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → (𝑟 Er 𝑊 ↔ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊))
160		breq 5107	. . . . . . . . . . . . 13 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → (𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ↔ 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))
161	160	2ralbidv 3229	. . . . . . . . . . . 12 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))
162	161	2ralbidv 3229	. . . . . . . . . . 11 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → (∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩) ↔ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)))
163	159, 162	anbi12d 643	. . . . . . . . . 10 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} → ((𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩)) ↔ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))
164	163	elabg 3638	. . . . . . . . 9 ⊢ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ V → ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))} ↔ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))
165	158, 164	syl 18	. . . . . . . 8 ⊢ (𝜑 → ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))} ↔ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} (𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))))
166	25, 155, 165	mpbir2and 725	. . . . . . 7 ⊢ (𝜑 → {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))})
167		intss1 4924	. . . . . . 7 ⊢ ({⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))} ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))} → ∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))} ⊆ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))})
168	166, 167	syl 18	. . . . . 6 ⊢ (𝜑 → ∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑛 ∈ (0...(♯‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑥𝑟(𝑥 splice ⟨𝑛, 𝑛, ⟨“⟨𝑎, 𝑏⟩⟨𝑎, (1o ∖ 𝑏)⟩”⟩⟩))} ⊆ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))})
169	3, 168	eqsstrid 3977	. . . . 5 ⊢ (𝜑 → ∼ ⊆ {⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))})
170	169	ssbrd 5148	. . . 4 ⊢ (𝜑 → (𝐴 ∼ 𝐶 → 𝐴{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}𝐶))
171	170	imp 411	. . 3 ⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → 𝐴{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}𝐶)
172	1, 2	efger 19779	. . . . . 6 ⊢ ∼ Er 𝑊
173		errel 8692	. . . . . 6 ⊢ ( ∼ Er 𝑊 → Rel ∼ )
174	172, 173	mp1i 14	. . . . 5 ⊢ (𝜑 → Rel ∼ )
175		brrelex12 5704	. . . . 5 ⊢ ((Rel ∼ ∧ 𝐴 ∼ 𝐶) → (𝐴 ∈ V ∧ 𝐶 ∈ V))
176	174, 175	sylan 591	. . . 4 ⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → (𝐴 ∈ V ∧ 𝐶 ∈ V))
177		preq12 4697	. . . . . . 7 ⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐶) → {𝑢, 𝑣} = {𝐴, 𝐶})
178	177	sseq1d 3970	. . . . . 6 ⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐶) → ({𝑢, 𝑣} ⊆ 𝑊 ↔ {𝐴, 𝐶} ⊆ 𝑊))
179		coeq2 5835	. . . . . . . 8 ⊢ (𝑢 = 𝐴 → (𝑇 ∘ 𝑢) = (𝑇 ∘ 𝐴))
180	179	oveq2d 7416	. . . . . . 7 ⊢ (𝑢 = 𝐴 → (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝐴)))
181		coeq2 5835	. . . . . . . 8 ⊢ (𝑣 = 𝐶 → (𝑇 ∘ 𝑣) = (𝑇 ∘ 𝐶))
182	181	oveq2d 7416	. . . . . . 7 ⊢ (𝑣 = 𝐶 → (𝐻 Σg (𝑇 ∘ 𝑣)) = (𝐻 Σg (𝑇 ∘ 𝐶)))
183	180, 182	eqeqan12d 2779	. . . . . 6 ⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐶) → ((𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)) ↔ (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶))))
184	178, 183	anbi12d 643	. . . . 5 ⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐶) → (({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣))) ↔ ({𝐴, 𝐶} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶)))))
185	184, 151	brabga 5509	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}𝐶 ↔ ({𝐴, 𝐶} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶)))))
186	176, 185	syl 18	. . 3 ⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → (𝐴{⟨𝑢, 𝑣⟩ ∣ ({𝑢, 𝑣} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝑢)) = (𝐻 Σg (𝑇 ∘ 𝑣)))}𝐶 ↔ ({𝐴, 𝐶} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶)))))
187	171, 186	mpbid 235	. 2 ⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → ({𝐴, 𝐶} ⊆ 𝑊 ∧ (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶))))
188	187	simprd 500	1 ⊢ ((𝜑 ∧ 𝐴 ∼ 𝐶) → (𝐻 Σg (𝑇 ∘ 𝐴)) = (𝐻 Σg (𝑇 ∘ 𝐶)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1563   ∈ wcel 2145  {cab 2743  ∀wral 3079  Vcvv 3457   ∖ cdif 3904   ∩ cin 3906   ⊆ wss 3907  ∅c0 4288  ifcif 4483  {cpr 4587  ⟨cop 4591  ⟨cotp 4593  ∩ cint 4908   class class class wbr 5105  {copab 5167   I cid 5546   × cxp 5650   ∘ ccom 5656  Rel wrel 5657  ⟶wf 6521  ‘cfv 6525  (class class class)co 7400   ∈ cmpo 7402  1_oc1o 8434  2_oc2o 8435   Er wer 8679  0cc0 11088  ℕ₀cn0 12495  ℤ_≥cuz 12853  ...cfz 13526  ♯chash 14357  Word cword 14540   ++ cconcat 14597   substr csubstr 14668   prefix cpfx 14698   splice csplice 14776  ⟨“cs2 14868  Basecbs 17259  +_gcplusg 17300  0_gc0g 17482   Σ_g cgsu 17483  Mndcmnd 18782  Grpcgrp 18990  inv_gcminusg 18991   ~_FG cefg 19767

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-rep 5232  ax-sep 5251  ax-nul 5261  ax-pow 5327  ax-pr 5395  ax-un 7722  ax-cnex 11144  ax-resscn 11145  ax-1cn 11146  ax-icn 11147  ax-addcl 11148  ax-addrcl 11149  ax-mulcl 11150  ax-mulrcl 11151  ax-mulcom 11152  ax-addass 11153  ax-mulass 11154  ax-distr 11155  ax-i2m1 11156  ax-1ne0 11157  ax-1rid 11158  ax-rnegex 11159  ax-rrecex 11160  ax-cnre 11161  ax-pre-lttri 11162  ax-pre-lttrn 11163  ax-pre-ltadd 11164  ax-pre-mulgt0 11165

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3370  df-reu 3371  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-pss 3927  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-ot 4594  df-uni 4869  df-int 4909  df-iun 4954  df-iin 4955  df-br 5106  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5547  df-eprel 5552  df-po 5560  df-so 5561  df-fr 5605  df-we 5607  df-xp 5658  df-rel 5659  df-cnv 5660  df-co 5661  df-dm 5662  df-rn 5663  df-res 5664  df-ima 5665  df-pred 6292  df-ord 6353  df-on 6354  df-lim 6355  df-suc 6356  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-f1 6530  df-fo 6531  df-f1o 6532  df-fv 6533  df-riota 7357  df-ov 7403  df-oprab 7404  df-mpo 7405  df-om 7851  df-1st 7974  df-2nd 7975  df-frecs 8266  df-wrecs 8297  df-recs 8346  df-rdg 8385  df-1o 8441  df-2o 8442  df-er 8682  df-map 8814  df-en 8932  df-dom 8933  df-sdom 8934  df-fin 8935  df-card 9913  df-pnf 11233  df-mnf 11234  df-xr 11235  df-ltxr 11236  df-le 11237  df-sub 11431  df-neg 11432  df-nn 12225  df-2 12294  df-n0 12496  df-z 12583  df-uz 12854  df-fz 13527  df-fzo 13674  df-seq 14029  df-hash 14358  df-word 14541  df-concat 14598  df-s1 14624  df-substr 14669  df-pfx 14699  df-splice 14777  df-s2 14875  df-sets 17214  df-slot 17232  df-ndx 17244  df-base 17260  df-ress 17281  df-plusg 17313  df-0g 17484  df-gsum 17485  df-mgm 18688  df-sgrp 18767  df-mnd 18783  df-submnd 18832  df-grp 18993  df-minusg 18994  df-efg 19770

This theorem is referenced by:  frgpupf  19834