cycpmco2 - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > cycpmco2		Structured version Visualization version GIF version

Theorem cycpmco2 33274

Description: The composition of a cyclic permutation and a transposition of one element in the cycle and one outside the cycle results in a cyclic permutation with one more element in its orbit. (Contributed by Thierry Arnoux, 2-Jan-2024.)

**Hypotheses**
Ref	Expression
cycpmco2.c	⊢ 𝑀 = (toCyc‘𝐷)
cycpmco2.s	⊢ 𝑆 = (SymGrp‘𝐷)
cycpmco2.d	⊢ (𝜑 → 𝐷 ∈ 𝑉)
cycpmco2.w	⊢ (𝜑 → 𝑊 ∈ dom 𝑀)
cycpmco2.i	⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
cycpmco2.j	⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
cycpmco2.e	⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
cycpmco2.1	⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)

**Assertion**
Ref	Expression
cycpmco2	⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) = (𝑀‘𝑈))

Proof of Theorem cycpmco2 Dummy variables 𝑖 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cycpmco2.d	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ 𝑉)
2		cycpmco2.c	. . . . . . . 8 ⊢ 𝑀 = (toCyc‘𝐷)
3		cycpmco2.s	. . . . . . . 8 ⊢ 𝑆 = (SymGrp‘𝐷)
4		eqid 2761	. . . . . . . 8 ⊢ (Base‘𝑆) = (Base‘𝑆)
5	2, 3, 4	tocycf 33258	. . . . . . 7 ⊢ (𝐷 ∈ 𝑉 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
6	1, 5	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
7		cycpmco2.w	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ dom 𝑀)
8	6	fdmd 6698	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
9	7, 8	eleqtrd 2863	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
10	6, 9	ffvelcdmd 7062	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑊) ∈ (Base‘𝑆))
11	3, 4	symgbasf 19399	. . . . 5 ⊢ ((𝑀‘𝑊) ∈ (Base‘𝑆) → (𝑀‘𝑊):𝐷⟶𝐷)
12	10, 11	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘𝑊):𝐷⟶𝐷)
13	12	ffnd 6688	. . 3 ⊢ (𝜑 → (𝑀‘𝑊) Fn 𝐷)
14		cycpmco2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
15	14	eldifad 3916	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
16		ssrab2 4033	. . . . . . . . . . 11 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
17	16, 9	sselid 3934	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
18		id 22	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
19		dmeq 5877	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
20		eqidd 2762	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
21	18, 19, 20	f1eq123d 6794	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
22	21	elrab3 3651	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ 𝑊:dom 𝑊–1-1→𝐷))
23	22	biimpa 480	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → 𝑊:dom 𝑊–1-1→𝐷)
24	17, 9, 23	syl2anc 593	. . . . . . . . 9 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
25		f1f 6756	. . . . . . . . 9 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊⟶𝐷)
26	24, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊:dom 𝑊⟶𝐷)
27	26	frnd 6696	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ 𝐷)
28		cycpmco2.j	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
29	27, 28	sseldd 3937	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ 𝐷)
30	14	eldifbd 3917	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝐼 ∈ ran 𝑊)
31		nelne2 3054	. . . . . . . 8 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝐽 ≠ 𝐼)
32	28, 30, 31	syl2anc 593	. . . . . . 7 ⊢ (𝜑 → 𝐽 ≠ 𝐼)
33	32	necomd 3011	. . . . . 6 ⊢ (𝜑 → 𝐼 ≠ 𝐽)
34	2, 1, 15, 29, 33, 3	cycpm2cl 33261	. . . . 5 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆))
35	3, 4	symgbasf 19399	. . . . 5 ⊢ ((𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆) → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
36	34, 35	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
37	36	ffnd 6688	. . 3 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷)
38	36	frnd 6696	. . 3 ⊢ (𝜑 → ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷)
39		fnco 6635	. . 3 ⊢ (((𝑀‘𝑊) Fn 𝐷 ∧ (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷 ∧ ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷) → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
40	13, 37, 38, 39	syl3anc 1389	. 2 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
41		cycpmco2.1	. . . . . 6 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
42	15	s1cld 14614	. . . . . . 7 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
43		splcl 14762	. . . . . . 7 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
44	17, 42, 43	syl2anc 593	. . . . . 6 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
45	41, 44	eqeltrid 2865	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
46		cycpmco2.e	. . . . . 6 ⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
47	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2f1 33265	. . . . 5 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
48	2, 1, 45, 47, 3	cycpmcl 33257	. . . 4 ⊢ (𝜑 → (𝑀‘𝑈) ∈ (Base‘𝑆))
49	3, 4	symgbasf 19399	. . . 4 ⊢ ((𝑀‘𝑈) ∈ (Base‘𝑆) → (𝑀‘𝑈):𝐷⟶𝐷)
50	48, 49	syl 17	. . 3 ⊢ (𝜑 → (𝑀‘𝑈):𝐷⟶𝐷)
51	50	ffnd 6688	. 2 ⊢ (𝜑 → (𝑀‘𝑈) Fn 𝐷)
52		fvco3 6963	. . . 4 ⊢ (((𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
53	36, 52	sylan 589	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
54	2, 1, 15, 29, 33, 3	cyc2fv2 33263	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽) = 𝐼)
55	54	fveq2d 6867	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑊)‘𝐼))
56	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem2 33268	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘𝐸) = 𝐼)
57		f1cnv 6827	. . . . . . . . . . . . . . . 16 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
58		f1of 6802	. . . . . . . . . . . . . . . 16 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
59	24, 57, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
60	59, 28	ffvelcdmd 7062	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
61		wrddm 14531	. . . . . . . . . . . . . . 15 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
62	17, 61	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
63	60, 62	eleqtrd 2863	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
64		lencl 14543	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
65	17, 64	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
66	65	nn0cnd 12541	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
67		1cnd 11172	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
68		ovexd 7427	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ V)
69	46, 68	eqeltrid 2865	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ V)
70		splval 14761	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ dom 𝑀 ∧ (𝐸 ∈ V ∧ 𝐸 ∈ V ∧ ⟨“𝐼”⟩ ∈ Word 𝐷)) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
71	7, 69, 69, 42, 70	syl13anc 1390	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
72	41, 71	eqtrid 2808	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑈 = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
73	72	fveq2d 6867	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘𝑈) = (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
74		pfxcl 14688	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
75	17, 74	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
76		ccatcl 14584	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
77	75, 42, 76	syl2anc 593	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
78		swrdcl 14656	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
79	17, 78	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
80		ccatlen 14585	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷) → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
81	77, 79, 80	syl2anc 593	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
82		ccatws1len 14631	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 prefix 𝐸) ∈ Word 𝐷 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
83	17, 74, 82	3syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
84		fzofzp1 13767	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
85	63, 84	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
86	46, 85	eqeltrid 2865	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
87		pfxlen 14694	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
88	17, 86, 87	syl2anc 593	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
89	88	oveq1d 7407	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((♯‘(𝑊 prefix 𝐸)) + 1) = (𝐸 + 1))
90	83, 89	eqtrd 2796	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = (𝐸 + 1))
91		nn0fz0 13627	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
92	65, 91	sylib 220	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
93		swrdlen 14658	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (♯‘𝑊) ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
94	17, 86, 92, 93	syl3anc 1389	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
95	90, 94	oveq12d 7410	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
96	73, 81, 95	3eqtrd 2800	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
97		fz0ssnn0 13624	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
98	97, 86	sselid 3934	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
99	98	nn0zd 12590	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 ∈ ℤ)
100	99	peano2zd 12677	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸 + 1) ∈ ℤ)
101	100	zcnd 12675	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 + 1) ∈ ℂ)
102	98	nn0cnd 12541	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ ℂ)
103	101, 66, 102	addsubassd 11559	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
104	102, 67, 66	addassd 11201	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐸 + 1) + (♯‘𝑊)) = (𝐸 + (1 + (♯‘𝑊))))
105	104	oveq1d 7407	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
106	96, 103, 105	3eqtr2d 2802	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
107	67, 66	addcld 11198	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 + (♯‘𝑊)) ∈ ℂ)
108	102, 107	pncan2d 11541	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸 + (1 + (♯‘𝑊))) − 𝐸) = (1 + (♯‘𝑊)))
109	67, 66	addcomd 11382	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + (♯‘𝑊)) = ((♯‘𝑊) + 1))
110	106, 108, 109	3eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) = ((♯‘𝑊) + 1))
111	66, 67, 110	mvrraddd 11596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
112	111	oveq2d 7408	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
113	63, 112	eleqtrrd 2864	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((♯‘𝑈) − 1)))
114	2, 1, 45, 47, 113	cycpmfv1 33254	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘((^◡𝑊‘𝐽) + 1)))
115	46	fveq2i 6866	. . . . . . . . . . 11 ⊢ (𝑈‘𝐸) = (𝑈‘((^◡𝑊‘𝐽) + 1))
116	114, 115	eqtr4di 2814	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘𝐸))
117	2, 1, 17, 24, 15, 30	cycpmfv3 33256	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐼) = 𝐼)
118	56, 116, 117	3eqtr4d 2806	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑊)‘𝐼))
119	72	fveq1d 6865	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)))
120		fzossfzop1 13746	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ∈ ℕ₀ → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
121	98, 120	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
122		elfzonn0 13710	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
123		fzonn0p1 13745	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
124	63, 122, 123	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
125	46	oveq2i 7403	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐸) = (0..^((^◡𝑊‘𝐽) + 1))
126	124, 125	eleqtrrdi 2872	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^𝐸))
127	121, 126	sseldd 3937	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(𝐸 + 1)))
128	90	oveq2d 7408	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))) = (0..^(𝐸 + 1)))
129	127, 128	eleqtrrd 2864	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))))
130		ccatval1 14587	. . . . . . . . . . . . 13 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)))) → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
131	77, 79, 129, 130	syl3anc 1389	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
132	88	oveq2d 7408	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘(𝑊 prefix 𝐸))) = (0..^𝐸))
133	126, 132	eleqtrrd 2864	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸))))
134		ccatval1 14587	. . . . . . . . . . . . 13 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸)))) → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
135	75, 42, 133, 134	syl3anc 1389	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
136	119, 131, 135	3eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
137		pfxfv 14693	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (^◡𝑊‘𝐽) ∈ (0..^𝐸)) → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
138	17, 86, 126, 137	syl3anc 1389	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
139		f1f1orn 6814	. . . . . . . . . . . . 13 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
140	24, 139	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
141		f1ocnvfv2 7257	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
142	140, 28, 141	syl2anc 593	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
143	136, 138, 142	3eqtrd 2800	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = 𝐽)
144	143	fveq2d 6867	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑈)‘𝐽))
145	55, 118, 144	3eqtr2d 2802	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
146	145	ad2antrr 736	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
147		simpr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → 𝑖 = 𝐽)
148	147	fveq2d 6867	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽))
149	148	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)))
150	147	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐽))
151	146, 149, 150	3eqtr4d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
152	1	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝐷 ∈ 𝑉)
153	15, 29	s2cld 14881	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
154	153	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
155	15, 29, 33	s2f1 33084	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
156	155	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
157	27	sselda 3936	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ 𝐷)
158	157	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ∈ 𝐷)
159		simpr 488	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑊)
160	30	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ¬ 𝐼 ∈ ran 𝑊)
161		nelne2 3054	. . . . . . . . . . . . 13 ⊢ ((𝑖 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
162	159, 160, 161	syl2anc 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
163	162	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐼)
164		simpr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐽)
165	163, 164	nelprd 4615	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ {𝐼, 𝐽})
166	15, 29	s2rn 14973	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran ⟨“𝐼𝐽”⟩ = {𝐼, 𝐽})
167	166	eleq2d 2847	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ 𝑖 ∈ {𝐼, 𝐽}))
168	167	notbid 320	. . . . . . . . . . 11 ⊢ (𝜑 → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
169	168	ad2antrr 736	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
170	165, 169	mpbird 259	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
171	2, 152, 154, 156, 158, 170	cycpmfv3 33256	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
172	171	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
173	1	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐷 ∈ 𝑉)
174	7	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑊 ∈ dom 𝑀)
175	14	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
176	28	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐽 ∈ ran 𝑊)
177		simpllr 785	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ∈ ran 𝑊)
178		simplr 778	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ≠ 𝐽)
179		simpr 488	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → (^◡𝑈‘𝑖) ∈ (0..^𝐸))
180	2, 3, 173, 174, 175, 176, 46, 41, 177, 178, 179	cycpmco2lem7 33273	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
181	1	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐷 ∈ 𝑉)
182	7	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑊 ∈ dom 𝑀)
183	14	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
184	28	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐽 ∈ ran 𝑊)
185		simpllr 785	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ∈ ran 𝑊)
186	162	ad2antrr 736	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ≠ 𝐼)
187		simpr 488	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))
188	2, 3, 181, 182, 183, 184, 46, 41, 185, 186, 187	cycpmco2lem6 33272	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
189	1	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐷 ∈ 𝑉)
190	7	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑊 ∈ dom 𝑀)
191	14	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
192	28	ad3antrrr 740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐽 ∈ ran 𝑊)
193		simpllr 785	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑖 ∈ ran 𝑊)
194		simpr 488	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))
195	2, 3, 189, 190, 191, 192, 46, 41, 193, 194	cycpmco2lem5 33271	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
196		f1f1orn 6814	. . . . . . . . . . . . . . . 16 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
197	47, 196	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
198		ssun1 4130	. . . . . . . . . . . . . . . . 17 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
199	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2rn 33266	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
200	198, 199	sseqtrrid 3979	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
201	200	sselda 3936	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑈)
202		f1ocnvdm 7265	. . . . . . . . . . . . . . 15 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝑖 ∈ ran 𝑈) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
203	197, 201, 202	syl2an2r 695	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
204		wrddm 14531	. . . . . . . . . . . . . . . 16 ⊢ (𝑈 ∈ Word 𝐷 → dom 𝑈 = (0..^(♯‘𝑈)))
205	45, 204	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → dom 𝑈 = (0..^(♯‘𝑈)))
206	205	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → dom 𝑈 = (0..^(♯‘𝑈)))
207	203, 206	eleqtrd 2863	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0..^(♯‘𝑈)))
208	65	nn0zd 12590	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
209	208	peano2zd 12677	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((♯‘𝑊) + 1) ∈ ℤ)
210	110, 209	eqeltrd 2861	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) ∈ ℤ)
211		fzoval 13662	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑈) ∈ ℤ → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
212	210, 211	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
213	212	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
214	207, 213	eleqtrd 2863	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)))
215		elfzr 13784	. . . . . . . . . . . 12 ⊢ ((^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
216	214, 215	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
217		simpr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)))
218	99	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → 𝐸 ∈ ℤ)
219		fzospliti 13694	. . . . . . . . . . . . . 14 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∧ 𝐸 ∈ ℤ) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
220	217, 218, 219	syl2anc 593	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
221	220	ex 416	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))))
222	221	orim1d 978	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))))
223	216, 222	mpd 15	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
224		df-3or 1098	. . . . . . . . . 10 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) ↔ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
225	223, 224	sylibr 236	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
226	225	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
227	180, 188, 195, 226	mpjao3dan 1451	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
228	172, 227	eqtr4d 2799	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
229	151, 228	pm2.61dane 3043	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
230	229	adantlr 725	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
231	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem4 33270	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
232	231	ad2antrr 736	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
233		simpr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → 𝑖 = 𝐼)
234	233	fveq2d 6867	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼))
235	234	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)))
236	233	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐼))
237	232, 235, 236	3eqtr4d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
238	1	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝐷 ∈ 𝑉)
239	17	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊 ∈ Word 𝐷)
240	24	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊:dom 𝑊–1-1→𝐷)
241		simplr 778	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ (𝐷 ∖ ran 𝑊))
242	241	eldifad 3916	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ 𝐷)
243	241	eldifbd 3917	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑊)
244	2, 238, 239, 240, 242, 243	cycpmfv3 33256	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘𝑖) = 𝑖)
245	153	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
246	155	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
247		simpr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐼)
248		eldifn 4085	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (𝐷 ∖ ran 𝑊) → ¬ 𝑖 ∈ ran 𝑊)
249		nelne2 3054	. . . . . . . . . . . . . 14 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ ran 𝑊) → 𝐽 ≠ 𝑖)
250	28, 248, 249	syl2an 605	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝐽 ≠ 𝑖)
251	250	necomd 3011	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝑖 ≠ 𝐽)
252	251	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐽)
253	247, 252	nelprd 4615	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼, 𝐽})
254	168	ad2antrr 736	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
255	253, 254	mpbird 259	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
256	2, 238, 245, 246, 242, 255	cycpmfv3 33256	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
257	256	fveq2d 6867	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
258	45	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈 ∈ Word 𝐷)
259	47	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈:dom 𝑈–1-1→𝐷)
260	199	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
261		nelsn 4624	. . . . . . . . . 10 ⊢ (𝑖 ≠ 𝐼 → ¬ 𝑖 ∈ {𝐼})
262	261	adantl 485	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼})
263		nelun 32661	. . . . . . . . . 10 ⊢ (ran 𝑈 = (ran 𝑊 ∪ {𝐼}) → (¬ 𝑖 ∈ ran 𝑈 ↔ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})))
264	263	biimpar 481	. . . . . . . . 9 ⊢ ((ran 𝑈 = (ran 𝑊 ∪ {𝐼}) ∧ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})) → ¬ 𝑖 ∈ ran 𝑈)
265	260, 243, 262, 264	syl12anc 847	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑈)
266	2, 238, 258, 259, 242, 265	cycpmfv3 33256	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑈)‘𝑖) = 𝑖)
267	244, 257, 266	3eqtr4d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
268	237, 267	pm2.61dane 3043	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
269	268	adantlr 725	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
270		undif 4435	. . . . . . . 8 ⊢ (ran 𝑊 ⊆ 𝐷 ↔ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
271	27, 270	sylib 220	. . . . . . 7 ⊢ (𝜑 → (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
272	271	eleq2d 2847	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ 𝑖 ∈ 𝐷))
273		elun 4106	. . . . . 6 ⊢ (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
274	272, 273	bitr3di 288	. . . . 5 ⊢ (𝜑 → (𝑖 ∈ 𝐷 ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊))))
275	274	biimpa 480	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
276	230, 269, 275	mpjaodan 971	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
277	53, 276	eqtrd 2796	. 2 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑈)‘𝑖))
278	40, 51, 277	eqfnfvd 7010	1 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) = (𝑀‘𝑈))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 399 ∨ wo 858 ∨ w3o 1096 = wceq 1559 ∈ wcel 2141 ≠ wne 2956 {crab 3413 Vcvv 3453 ∖ cdif 3901 ∪ cun 3902 ⊆ wss 3904 {csn 4581 {cpr 4583 ⟨cop 4587 ⟨cotp 4589 ^◡ccnv 5644 dom cdm 5645 ran crn 5646 ∘ ccom 5649 Fn wfn 6512 ⟶wf 6513 –1-1→wf1 6514 –1-1-onto→wf1o 6516 ‘cfv 6517 (class class class)co 7392 0cc0 11070 1c1 11071 + caddc 11073 − cmin 11411 ℕ₀cn0 12478 ℤcz 12565 ...cfz 13509 ..^cfzo 13656 ♯chash 14340 Word cword 14523 ++ cconcat 14580 ⟨“cs1 14606 substr csubstr 14651 prefix cpfx 14681 splice csplice 14759 ⟨“cs2 14851 Basecbs 17228 SymGrpcsymg 19392 toCycctocyc 33247

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5226 ax-sep 5245 ax-nul 5255 ax-pow 5321 ax-pr 5389 ax-un 7714 ax-cnex 11126 ax-resscn 11127 ax-1cn 11128 ax-icn 11129 ax-addcl 11130 ax-addrcl 11131 ax-mulcl 11132 ax-mulrcl 11133 ax-mulcom 11134 ax-addass 11135 ax-mulass 11136 ax-distr 11137 ax-i2m1 11138 ax-1ne0 11139 ax-1rid 11140 ax-rnegex 11141 ax-rrecex 11142 ax-cnre 11143 ax-pre-lttri 11144 ax-pre-lttrn 11145 ax-pre-ltadd 11146 ax-pre-mulgt0 11147 ax-pre-sup 11148

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4582 df-pr 4584 df-tp 4586 df-op 4588 df-ot 4590 df-uni 4865 df-int 4905 df-iun 4950 df-br 5100 df-opab 5162 df-mpt 5181 df-tr 5207 df-id 5540 df-eprel 5545 df-po 5553 df-so 5554 df-fr 5598 df-we 5600 df-xp 5651 df-rel 5652 df-cnv 5653 df-co 5654 df-dm 5655 df-rn 5656 df-res 5657 df-ima 5658 df-pred 6284 df-ord 6345 df-on 6346 df-lim 6347 df-suc 6348 df-iota 6473 df-fun 6519 df-fn 6520 df-f 6521 df-f1 6522 df-fo 6523 df-f1o 6524 df-fv 6525 df-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-om 7843 df-1st 7966 df-2nd 7967 df-frecs 8257 df-wrecs 8288 df-recs 8337 df-rdg 8376 df-1o 8432 df-oadd 8436 df-er 8673 df-map 8805 df-en 8924 df-dom 8925 df-sdom 8926 df-fin 8927 df-sup 9385 df-inf 9386 df-card 9894 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11413 df-neg 11414 df-div 11842 df-nn 12208 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-7 12282 df-8 12283 df-9 12284 df-n0 12479 df-xnn0 12552 df-z 12566 df-uz 12837 df-rp 12991 df-fz 13510 df-fzo 13657 df-fl 13799 df-mod 13877 df-hash 14341 df-word 14524 df-concat 14581 df-s1 14607 df-substr 14652 df-pfx 14682 df-splice 14760 df-csh 14799 df-s2 14858 df-struct 17166 df-sets 17183 df-slot 17201 df-ndx 17213 df-base 17229 df-ress 17250 df-plusg 17282 df-tset 17288 df-efmnd 18886 df-symg 19393 df-tocyc 33248

This theorem is referenced by: (None)

W3C validator