Theorem efgtf 19987

Description: Value of the free group construction. (Contributed by Mario Carneiro, 27-Sep-2015.)

Hypotheses

Ref	Expression
efgval.w	⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
efgval.r	⊢ ∼ = ( ~FG ‘𝐼)
efgval2.m	⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
efgval2.t	⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)))

Assertion

Ref	Expression
efgtf	⊢ (𝑋 ∈ 𝑊 → ((𝑇‘𝑋) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘𝑋):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊))

Distinct variable groups:   𝑎,𝑏,𝑦,𝑧   𝑣,𝑛,𝑤,𝑦,𝑧,𝑎   𝑀,𝑎   𝑛,𝑏,𝑣,𝑤,𝑀   𝑇,𝑎,𝑏   𝑋,𝑎,𝑏   𝑊,𝑎,𝑏,𝑛,𝑣,𝑤,𝑦,𝑧   ∼ ,𝑎,𝑏,𝑦,𝑧   𝐼,𝑎,𝑏,𝑛,𝑣,𝑤,𝑦,𝑧

Allowed substitution hints:   ∼ (𝑤, 𝑣, 𝑛)   𝑇(𝑦, 𝑧, 𝑤, 𝑣, 𝑛)   𝑀(𝑦, 𝑧)   𝑋(𝑦, 𝑧, 𝑤, 𝑣, 𝑛)

Proof of Theorem efgtf

Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		efgval.w	. . . . . . . . . 10 ⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
2		fviss 6993	. . . . . . . . . 10 ⊢ ( I ‘Word (𝐼 × 2o)) ⊆ Word (𝐼 × 2o)
3	1, 2	eqsstri 3959	. . . . . . . . 9 ⊢ 𝑊 ⊆ Word (𝐼 × 2o)
4		simpl 488	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑋 ∈ 𝑊)
5	3, 4	sselid 3911	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑋 ∈ Word (𝐼 × 2o))
6		simprr 785	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
7		efgval2.m	. . . . . . . . . . . 12 ⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
8	7	efgmf 19978	. . . . . . . . . . 11 ⊢ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
9	8	ffvelcdmi 7115	. . . . . . . . . 10 ⊢ (𝑏 ∈ (𝐼 × 2o) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
10	9	ad2antll 742	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀‘𝑏) ∈ (𝐼 × 2o))
11	6, 10	s2cld 15064	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o))
12		splcl 14943	. . . . . . . 8 ⊢ ((𝑋 ∈ Word (𝐼 × 2o) ∧ ⟨“𝑏(𝑀‘𝑏)”⟩ ∈ Word (𝐼 × 2o)) → (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ Word (𝐼 × 2o))
13	5, 11, 12	syl2anc 596	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ Word (𝐼 × 2o))
14	1	efgrcl 19980	. . . . . . . . 9 ⊢ (𝑋 ∈ 𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
15	14	simprd 501	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑊 → 𝑊 = Word (𝐼 × 2o))
16	15	adantr 486	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑊 = Word (𝐼 × 2o))
17	13, 16	eleqtrrd 2867	. . . . . 6 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ 𝑊)
18	17	ralrimivva 3209	. . . . 5 ⊢ (𝑋 ∈ 𝑊 → ∀𝑎 ∈ (0...(♯‘𝑋))∀𝑏 ∈ (𝐼 × 2o)(𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ 𝑊)
19		eqid 2763	. . . . . 6 ⊢ (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
20	19	fmpo 8114	. . . . 5 ⊢ (∀𝑎 ∈ (0...(♯‘𝑋))∀𝑏 ∈ (𝐼 × 2o)(𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) ∈ 𝑊 ↔ (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊)
21	18, 20	sylib 221	. . . 4 ⊢ (𝑋 ∈ 𝑊 → (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊)
22		ovex 7484	. . . . 5 ⊢ (0...(♯‘𝑋)) ∈ V
23	14	simpld 500	. . . . . 6 ⊢ (𝑋 ∈ 𝑊 → 𝐼 ∈ V)
24		2on 8528	. . . . . 6 ⊢ 2o ∈ On
25		xpexg 7796	. . . . . 6 ⊢ ((𝐼 ∈ V ∧ 2o ∈ On) → (𝐼 × 2o) ∈ V)
26	23, 24, 25	sylancl 598	. . . . 5 ⊢ (𝑋 ∈ 𝑊 → (𝐼 × 2o) ∈ V)
27		xpexg 7796	. . . . 5 ⊢ (((0...(♯‘𝑋)) ∈ V ∧ (𝐼 × 2o) ∈ V) → ((0...(♯‘𝑋)) × (𝐼 × 2o)) ∈ V)
28	22, 26, 27	sylancr 599	. . . 4 ⊢ (𝑋 ∈ 𝑊 → ((0...(♯‘𝑋)) × (𝐼 × 2o)) ∈ V)
29	21, 28	fexd 7264	. . 3 ⊢ (𝑋 ∈ 𝑊 → (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∈ V)
30		fveq2 6916	. . . . . 6 ⊢ (𝑢 = 𝑋 → (♯‘𝑢) = (♯‘𝑋))
31	30	oveq2d 7467	. . . . 5 ⊢ (𝑢 = 𝑋 → (0...(♯‘𝑢)) = (0...(♯‘𝑋)))
32		eqidd 2764	. . . . 5 ⊢ (𝑢 = 𝑋 → (𝐼 × 2o) = (𝐼 × 2o))
33		oveq1 7458	. . . . 5 ⊢ (𝑢 = 𝑋 → (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
34	31, 32, 33	mpoeq123dv 7526	. . . 4 ⊢ (𝑢 = 𝑋 → (𝑎 ∈ (0...(♯‘𝑢)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
35		efgval2.t	. . . . 5 ⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)))
36		oteq1 4865	. . . . . . . . . 10 ⊢ (𝑛 = 𝑎 → ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩ = ⟨𝑎, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)
37		oteq2 4866	. . . . . . . . . 10 ⊢ (𝑛 = 𝑎 → ⟨𝑎, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩ = ⟨𝑎, 𝑎, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)
38	36, 37	eqtrd 2798	. . . . . . . . 9 ⊢ (𝑛 = 𝑎 → ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩ = ⟨𝑎, 𝑎, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)
39	38	oveq2d 7467	. . . . . . . 8 ⊢ (𝑛 = 𝑎 → (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩) = (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑤(𝑀‘𝑤)”⟩⟩))
40		id 23	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑏 → 𝑤 = 𝑏)
41		fveq2 6916	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑏 → (𝑀‘𝑤) = (𝑀‘𝑏))
42	40, 41	s2eqd 15056	. . . . . . . . . 10 ⊢ (𝑤 = 𝑏 → ⟨“𝑤(𝑀‘𝑤)”⟩ = ⟨“𝑏(𝑀‘𝑏)”⟩)
43	42	oteq3d 4870	. . . . . . . . 9 ⊢ (𝑤 = 𝑏 → ⟨𝑎, 𝑎, ⟨“𝑤(𝑀‘𝑤)”⟩⟩ = ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)
44	43	oveq2d 7467	. . . . . . . 8 ⊢ (𝑤 = 𝑏 → (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑤(𝑀‘𝑤)”⟩⟩) = (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
45	39, 44	cbvmpov 7546	. . . . . . 7 ⊢ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)) = (𝑎 ∈ (0...(♯‘𝑣)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
46		fveq2 6916	. . . . . . . . 9 ⊢ (𝑣 = 𝑢 → (♯‘𝑣) = (♯‘𝑢))
47	46	oveq2d 7467	. . . . . . . 8 ⊢ (𝑣 = 𝑢 → (0...(♯‘𝑣)) = (0...(♯‘𝑢)))
48		eqidd 2764	. . . . . . . 8 ⊢ (𝑣 = 𝑢 → (𝐼 × 2o) = (𝐼 × 2o))
49		oveq1 7458	. . . . . . . 8 ⊢ (𝑣 = 𝑢 → (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩) = (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩))
50	47, 48, 49	mpoeq123dv 7526	. . . . . . 7 ⊢ (𝑣 = 𝑢 → (𝑎 ∈ (0...(♯‘𝑣)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) = (𝑎 ∈ (0...(♯‘𝑢)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
51	45, 50	eqtrid 2810	. . . . . 6 ⊢ (𝑣 = 𝑢 → (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)) = (𝑎 ∈ (0...(♯‘𝑢)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
52	51	cbvmptv 5215	. . . . 5 ⊢ (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩))) = (𝑢 ∈ 𝑊 ↦ (𝑎 ∈ (0...(♯‘𝑢)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
53	35, 52	eqtri 2786	. . . 4 ⊢ 𝑇 = (𝑢 ∈ 𝑊 ↦ (𝑎 ∈ (0...(♯‘𝑢)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑢 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
54	34, 53	fvmptg 7022	. . 3 ⊢ ((𝑋 ∈ 𝑊 ∧ (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∈ V) → (𝑇‘𝑋) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
55	29, 54	mpdan 700	. 2 ⊢ (𝑋 ∈ 𝑊 → (𝑇‘𝑋) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)))
56	55	feq1d 6721	. . 3 ⊢ (𝑋 ∈ 𝑊 → ((𝑇‘𝑋):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊 ↔ (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊))
57	21, 56	mpbird 260	. 2 ⊢ (𝑋 ∈ 𝑊 → (𝑇‘𝑋):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊)
58	55, 57	jca 521	1 ⊢ (𝑋 ∈ 𝑊 → ((𝑇‘𝑋) = (𝑎 ∈ (0...(♯‘𝑋)), 𝑏 ∈ (𝐼 × 2o) ↦ (𝑋 splice ⟨𝑎, 𝑎, ⟨“𝑏(𝑀‘𝑏)”⟩⟩)) ∧ (𝑇‘𝑋):((0...(♯‘𝑋)) × (𝐼 × 2o))⟶𝑊))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454   ∖ cdif 4048  ⟨cop 4840  ⟨cotp 4863   ↦ cmpt 5192   I cid 5552   × cxp 5656  Oncon0 6388  ⟶wf 6562  ‘cfv 6566  (class class class)co 7451   ∈ cmpo 7453  1_oc1o 8507  2_oc2o 8508  0cc0 11239  ...cfz 13679  ♯chash 14515  Word cword 14699   splice csplice 14940  ⟨“cs2 15034   ~_FG cefg 19971

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-cnex 11295  ax-resscn 11296  ax-1cn 11297  ax-icn 11298  ax-addcl 11299  ax-addrcl 11300  ax-mulcl 11301  ax-mulrcl 11302  ax-mulcom 11303  ax-addass 11304  ax-mulass 11305  ax-distr 11306  ax-i2m1 11307  ax-1ne0 11308  ax-1rid 11309  ax-rnegex 11310  ax-rrecex 11311  ax-cnre 11312  ax-pre-lttri 11313  ax-pre-lttrn 11314  ax-pre-ltadd 11315  ax-pre-mulgt0 11316

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-ot 4864  df-uni 4873  df-int 4913  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-om 7912  df-1st 8035  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-1o 8514  df-2o 8515  df-er 8755  df-map 8887  df-en 9012  df-dom 9013  df-sdom 9014  df-fin 9015  df-card 10057  df-pnf 11384  df-mnf 11385  df-xr 11386  df-ltxr 11387  df-le 11388  df-sub 11582  df-neg 11583  df-nn 12376  df-n0 12647  df-z 12734  df-uz 13006  df-fz 13680  df-fzo 13829  df-hash 14516  df-word 14700  df-concat 14757  df-s1 14784  df-substr 14831  df-pfx 14863  df-splice 14941  df-s2 15041

This theorem is used by:  efgtval  19988  efgval2  19989  efgtlen  19991  efginvrel2  19992  efgsp1  20002  efgredleme  20008  efgredlem  20012  efgrelexlemb  20015  efgcpbllemb  20020  frgpnabllem1  20138