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 33226

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 2737	. . . . . . . 8 ⊢ (Base‘𝑆) = (Base‘𝑆)
5	2, 3, 4	tocycf 33210	. . . . . . 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 6680	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
9	7, 8	eleqtrd 2839	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
10	6, 9	ffvelcdmd 7039	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑊) ∈ (Base‘𝑆))
11	3, 4	symgbasf 19317	. . . . 5 ⊢ ((𝑀‘𝑊) ∈ (Base‘𝑆) → (𝑀‘𝑊):𝐷⟶𝐷)
12	10, 11	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘𝑊):𝐷⟶𝐷)
13	12	ffnd 6671	. . 3 ⊢ (𝜑 → (𝑀‘𝑊) Fn 𝐷)
14		cycpmco2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
15	14	eldifad 3915	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
16		ssrab2 4034	. . . . . . . . . . 11 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
17	16, 9	sselid 3933	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
18		id 22	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
19		dmeq 5860	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
20		eqidd 2738	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
21	18, 19, 20	f1eq123d 6774	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
22	21	elrab3 3649	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ 𝑊:dom 𝑊–1-1→𝐷))
23	22	biimpa 476	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → 𝑊:dom 𝑊–1-1→𝐷)
24	17, 9, 23	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
25		f1f 6738	. . . . . . . . 9 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊⟶𝐷)
26	24, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊:dom 𝑊⟶𝐷)
27	26	frnd 6678	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ 𝐷)
28		cycpmco2.j	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
29	27, 28	sseldd 3936	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ 𝐷)
30	14	eldifbd 3916	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝐼 ∈ ran 𝑊)
31		nelne2 3031	. . . . . . . 8 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝐽 ≠ 𝐼)
32	28, 30, 31	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → 𝐽 ≠ 𝐼)
33	32	necomd 2988	. . . . . 6 ⊢ (𝜑 → 𝐼 ≠ 𝐽)
34	2, 1, 15, 29, 33, 3	cycpm2cl 33213	. . . . 5 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆))
35	3, 4	symgbasf 19317	. . . . 5 ⊢ ((𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆) → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
36	34, 35	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
37	36	ffnd 6671	. . 3 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷)
38	36	frnd 6678	. . 3 ⊢ (𝜑 → ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷)
39		fnco 6618	. . 3 ⊢ (((𝑀‘𝑊) Fn 𝐷 ∧ (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷 ∧ ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷) → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
40	13, 37, 38, 39	syl3anc 1374	. 2 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
41		cycpmco2.1	. . . . . 6 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
42	15	s1cld 14539	. . . . . . 7 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
43		splcl 14687	. . . . . . 7 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
44	17, 42, 43	syl2anc 585	. . . . . 6 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
45	41, 44	eqeltrid 2841	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
46		cycpmco2.e	. . . . . 6 ⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
47	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2f1 33217	. . . . 5 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
48	2, 1, 45, 47, 3	cycpmcl 33209	. . . 4 ⊢ (𝜑 → (𝑀‘𝑈) ∈ (Base‘𝑆))
49	3, 4	symgbasf 19317	. . . 4 ⊢ ((𝑀‘𝑈) ∈ (Base‘𝑆) → (𝑀‘𝑈):𝐷⟶𝐷)
50	48, 49	syl 17	. . 3 ⊢ (𝜑 → (𝑀‘𝑈):𝐷⟶𝐷)
51	50	ffnd 6671	. 2 ⊢ (𝜑 → (𝑀‘𝑈) Fn 𝐷)
52		fvco3 6941	. . . 4 ⊢ (((𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
53	36, 52	sylan 581	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
54	2, 1, 15, 29, 33, 3	cyc2fv2 33215	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽) = 𝐼)
55	54	fveq2d 6846	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑊)‘𝐼))
56	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem2 33220	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘𝐸) = 𝐼)
57		f1cnv 6806	. . . . . . . . . . . . . . . 16 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
58		f1of 6782	. . . . . . . . . . . . . . . 16 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
59	24, 57, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
60	59, 28	ffvelcdmd 7039	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
61		wrddm 14456	. . . . . . . . . . . . . . 15 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
62	17, 61	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
63	60, 62	eleqtrd 2839	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
64		lencl 14468	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
65	17, 64	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
66	65	nn0cnd 12476	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
67		1cnd 11139	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
68		ovexd 7403	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ V)
69	46, 68	eqeltrid 2841	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ V)
70		splval 14686	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ dom 𝑀 ∧ (𝐸 ∈ V ∧ 𝐸 ∈ V ∧ ⟨“𝐼”⟩ ∈ Word 𝐷)) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
71	7, 69, 69, 42, 70	syl13anc 1375	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
72	41, 71	eqtrid 2784	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑈 = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
73	72	fveq2d 6846	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘𝑈) = (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
74		pfxcl 14613	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
75	17, 74	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
76		ccatcl 14509	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
77	75, 42, 76	syl2anc 585	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
78		swrdcl 14581	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
79	17, 78	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
80		ccatlen 14510	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷) → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
81	77, 79, 80	syl2anc 585	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
82		ccatws1len 14556	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 prefix 𝐸) ∈ Word 𝐷 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
83	17, 74, 82	3syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
84		fzofzp1 13692	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
85	63, 84	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
86	46, 85	eqeltrid 2841	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
87		pfxlen 14619	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
88	17, 86, 87	syl2anc 585	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
89	88	oveq1d 7383	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((♯‘(𝑊 prefix 𝐸)) + 1) = (𝐸 + 1))
90	83, 89	eqtrd 2772	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = (𝐸 + 1))
91		nn0fz0 13553	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
92	65, 91	sylib 218	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
93		swrdlen 14583	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (♯‘𝑊) ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
94	17, 86, 92, 93	syl3anc 1374	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
95	90, 94	oveq12d 7386	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
96	73, 81, 95	3eqtrd 2776	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
97		fz0ssnn0 13550	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
98	97, 86	sselid 3933	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
99	98	nn0zd 12525	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 ∈ ℤ)
100	99	peano2zd 12611	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸 + 1) ∈ ℤ)
101	100	zcnd 12609	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 + 1) ∈ ℂ)
102	98	nn0cnd 12476	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ ℂ)
103	101, 66, 102	addsubassd 11524	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
104	102, 67, 66	addassd 11166	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐸 + 1) + (♯‘𝑊)) = (𝐸 + (1 + (♯‘𝑊))))
105	104	oveq1d 7383	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
106	96, 103, 105	3eqtr2d 2778	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
107	67, 66	addcld 11163	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 + (♯‘𝑊)) ∈ ℂ)
108	102, 107	pncan2d 11506	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸 + (1 + (♯‘𝑊))) − 𝐸) = (1 + (♯‘𝑊)))
109	67, 66	addcomd 11347	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + (♯‘𝑊)) = ((♯‘𝑊) + 1))
110	106, 108, 109	3eqtrd 2776	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) = ((♯‘𝑊) + 1))
111	66, 67, 110	mvrraddd 11561	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
112	111	oveq2d 7384	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
113	63, 112	eleqtrrd 2840	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((♯‘𝑈) − 1)))
114	2, 1, 45, 47, 113	cycpmfv1 33206	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘((^◡𝑊‘𝐽) + 1)))
115	46	fveq2i 6845	. . . . . . . . . . 11 ⊢ (𝑈‘𝐸) = (𝑈‘((^◡𝑊‘𝐽) + 1))
116	114, 115	eqtr4di 2790	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘𝐸))
117	2, 1, 17, 24, 15, 30	cycpmfv3 33208	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐼) = 𝐼)
118	56, 116, 117	3eqtr4d 2782	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑊)‘𝐼))
119	72	fveq1d 6844	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)))
120		fzossfzop1 13671	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ∈ ℕ₀ → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
121	98, 120	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
122		elfzonn0 13635	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
123		fzonn0p1 13670	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
124	63, 122, 123	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
125	46	oveq2i 7379	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐸) = (0..^((^◡𝑊‘𝐽) + 1))
126	124, 125	eleqtrrdi 2848	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^𝐸))
127	121, 126	sseldd 3936	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(𝐸 + 1)))
128	90	oveq2d 7384	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))) = (0..^(𝐸 + 1)))
129	127, 128	eleqtrrd 2840	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))))
130		ccatval1 14512	. . . . . . . . . . . . 13 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)))) → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
131	77, 79, 129, 130	syl3anc 1374	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
132	88	oveq2d 7384	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘(𝑊 prefix 𝐸))) = (0..^𝐸))
133	126, 132	eleqtrrd 2840	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸))))
134		ccatval1 14512	. . . . . . . . . . . . 13 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸)))) → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
135	75, 42, 133, 134	syl3anc 1374	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
136	119, 131, 135	3eqtrd 2776	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
137		pfxfv 14618	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (^◡𝑊‘𝐽) ∈ (0..^𝐸)) → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
138	17, 86, 126, 137	syl3anc 1374	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
139		f1f1orn 6793	. . . . . . . . . . . . 13 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
140	24, 139	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
141		f1ocnvfv2 7233	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
142	140, 28, 141	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
143	136, 138, 142	3eqtrd 2776	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = 𝐽)
144	143	fveq2d 6846	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑈)‘𝐽))
145	55, 118, 144	3eqtr2d 2778	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
146	145	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
147		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → 𝑖 = 𝐽)
148	147	fveq2d 6846	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽))
149	148	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)))
150	147	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐽))
151	146, 149, 150	3eqtr4d 2782	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
152	1	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝐷 ∈ 𝑉)
153	15, 29	s2cld 14806	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
154	153	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
155	15, 29, 33	s2f1 33037	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
156	155	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
157	27	sselda 3935	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ 𝐷)
158	157	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ∈ 𝐷)
159		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑊)
160	30	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ¬ 𝐼 ∈ ran 𝑊)
161		nelne2 3031	. . . . . . . . . . . . 13 ⊢ ((𝑖 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
162	159, 160, 161	syl2anc 585	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
163	162	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐼)
164		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐽)
165	163, 164	nelprd 4616	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ {𝐼, 𝐽})
166	15, 29	s2rn 14898	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran ⟨“𝐼𝐽”⟩ = {𝐼, 𝐽})
167	166	eleq2d 2823	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ 𝑖 ∈ {𝐼, 𝐽}))
168	167	notbid 318	. . . . . . . . . . 11 ⊢ (𝜑 → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
169	168	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
170	165, 169	mpbird 257	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
171	2, 152, 154, 156, 158, 170	cycpmfv3 33208	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
172	171	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
173	1	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐷 ∈ 𝑉)
174	7	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑊 ∈ dom 𝑀)
175	14	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
176	28	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐽 ∈ ran 𝑊)
177		simpllr 776	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ∈ ran 𝑊)
178		simplr 769	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ≠ 𝐽)
179		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → (^◡𝑈‘𝑖) ∈ (0..^𝐸))
180	2, 3, 173, 174, 175, 176, 46, 41, 177, 178, 179	cycpmco2lem7 33225	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
181	1	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐷 ∈ 𝑉)
182	7	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑊 ∈ dom 𝑀)
183	14	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
184	28	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐽 ∈ ran 𝑊)
185		simpllr 776	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ∈ ran 𝑊)
186	162	ad2antrr 727	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ≠ 𝐼)
187		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))
188	2, 3, 181, 182, 183, 184, 46, 41, 185, 186, 187	cycpmco2lem6 33224	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
189	1	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐷 ∈ 𝑉)
190	7	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑊 ∈ dom 𝑀)
191	14	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
192	28	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐽 ∈ ran 𝑊)
193		simpllr 776	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑖 ∈ ran 𝑊)
194		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))
195	2, 3, 189, 190, 191, 192, 46, 41, 193, 194	cycpmco2lem5 33223	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
196		f1f1orn 6793	. . . . . . . . . . . . . . . 16 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
197	47, 196	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
198		ssun1 4132	. . . . . . . . . . . . . . . . 17 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
199	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2rn 33218	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
200	198, 199	sseqtrrid 3979	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
201	200	sselda 3935	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑈)
202		f1ocnvdm 7241	. . . . . . . . . . . . . . 15 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝑖 ∈ ran 𝑈) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
203	197, 201, 202	syl2an2r 686	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
204		wrddm 14456	. . . . . . . . . . . . . . . 16 ⊢ (𝑈 ∈ Word 𝐷 → dom 𝑈 = (0..^(♯‘𝑈)))
205	45, 204	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → dom 𝑈 = (0..^(♯‘𝑈)))
206	205	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → dom 𝑈 = (0..^(♯‘𝑈)))
207	203, 206	eleqtrd 2839	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0..^(♯‘𝑈)))
208	65	nn0zd 12525	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
209	208	peano2zd 12611	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((♯‘𝑊) + 1) ∈ ℤ)
210	110, 209	eqeltrd 2837	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) ∈ ℤ)
211		fzoval 13588	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑈) ∈ ℤ → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
212	210, 211	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
213	212	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
214	207, 213	eleqtrd 2839	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)))
215		elfzr 13709	. . . . . . . . . . . 12 ⊢ ((^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
216	214, 215	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
217		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)))
218	99	ad2antrr 727	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → 𝐸 ∈ ℤ)
219		fzospliti 13619	. . . . . . . . . . . . . 14 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∧ 𝐸 ∈ ℤ) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
220	217, 218, 219	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
221	220	ex 412	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))))
222	221	orim1d 968	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))))
223	216, 222	mpd 15	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
224		df-3or 1088	. . . . . . . . . 10 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) ↔ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
225	223, 224	sylibr 234	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
226	225	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
227	180, 188, 195, 226	mpjao3dan 1435	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
228	172, 227	eqtr4d 2775	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
229	151, 228	pm2.61dane 3020	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
230	229	adantlr 716	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
231	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem4 33222	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
232	231	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
233		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → 𝑖 = 𝐼)
234	233	fveq2d 6846	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼))
235	234	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)))
236	233	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐼))
237	232, 235, 236	3eqtr4d 2782	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
238	1	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝐷 ∈ 𝑉)
239	17	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊 ∈ Word 𝐷)
240	24	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊:dom 𝑊–1-1→𝐷)
241		simplr 769	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ (𝐷 ∖ ran 𝑊))
242	241	eldifad 3915	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ 𝐷)
243	241	eldifbd 3916	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑊)
244	2, 238, 239, 240, 242, 243	cycpmfv3 33208	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘𝑖) = 𝑖)
245	153	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
246	155	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
247		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐼)
248		eldifn 4086	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (𝐷 ∖ ran 𝑊) → ¬ 𝑖 ∈ ran 𝑊)
249		nelne2 3031	. . . . . . . . . . . . . 14 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ ran 𝑊) → 𝐽 ≠ 𝑖)
250	28, 248, 249	syl2an 597	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝐽 ≠ 𝑖)
251	250	necomd 2988	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝑖 ≠ 𝐽)
252	251	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐽)
253	247, 252	nelprd 4616	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼, 𝐽})
254	168	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
255	253, 254	mpbird 257	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
256	2, 238, 245, 246, 242, 255	cycpmfv3 33208	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
257	256	fveq2d 6846	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
258	45	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈 ∈ Word 𝐷)
259	47	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈:dom 𝑈–1-1→𝐷)
260	199	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
261		nelsn 4625	. . . . . . . . . 10 ⊢ (𝑖 ≠ 𝐼 → ¬ 𝑖 ∈ {𝐼})
262	261	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼})
263		nelun 32599	. . . . . . . . . 10 ⊢ (ran 𝑈 = (ran 𝑊 ∪ {𝐼}) → (¬ 𝑖 ∈ ran 𝑈 ↔ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})))
264	263	biimpar 477	. . . . . . . . 9 ⊢ ((ran 𝑈 = (ran 𝑊 ∪ {𝐼}) ∧ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})) → ¬ 𝑖 ∈ ran 𝑈)
265	260, 243, 262, 264	syl12anc 837	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑈)
266	2, 238, 258, 259, 242, 265	cycpmfv3 33208	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑈)‘𝑖) = 𝑖)
267	244, 257, 266	3eqtr4d 2782	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
268	237, 267	pm2.61dane 3020	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
269	268	adantlr 716	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
270		undif 4436	. . . . . . . 8 ⊢ (ran 𝑊 ⊆ 𝐷 ↔ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
271	27, 270	sylib 218	. . . . . . 7 ⊢ (𝜑 → (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
272	271	eleq2d 2823	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ 𝑖 ∈ 𝐷))
273		elun 4107	. . . . . 6 ⊢ (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
274	272, 273	bitr3di 286	. . . . 5 ⊢ (𝜑 → (𝑖 ∈ 𝐷 ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊))))
275	274	biimpa 476	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
276	230, 269, 275	mpjaodan 961	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
277	53, 276	eqtrd 2772	. 2 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑈)‘𝑖))
278	40, 51, 277	eqfnfvd 6988	1 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) = (𝑀‘𝑈))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 848 ∨ w3o 1086 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 {crab 3401 Vcvv 3442 ∖ cdif 3900 ∪ cun 3901 ⊆ wss 3903 {csn 4582 {cpr 4584 ⟨cop 4588 ⟨cotp 4590 ^◡ccnv 5631 dom cdm 5632 ran crn 5633 ∘ ccom 5636 Fn wfn 6495 ⟶wf 6496 –1-1→wf1 6497 –1-1-onto→wf1o 6499 ‘cfv 6500 (class class class)co 7368 0cc0 11038 1c1 11039 + caddc 11041 − cmin 11376 ℕ₀cn0 12413 ℤcz 12500 ...cfz 13435 ..^cfzo 13582 ♯chash 14265 Word cword 14448 ++ cconcat 14505 ⟨“cs1 14531 substr csubstr 14576 prefix cpfx 14606 splice csplice 14684 ⟨“cs2 14776 Basecbs 17148 SymGrpcsymg 19310 toCycctocyc 33199

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 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116

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 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-ot 4591 df-uni 4866 df-int 4905 df-iun 4950 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5527 df-eprel 5532 df-po 5540 df-so 5541 df-fr 5585 df-we 5587 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-pred 6267 df-ord 6328 df-on 6329 df-lim 6330 df-suc 6331 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-om 7819 df-1st 7943 df-2nd 7944 df-frecs 8233 df-wrecs 8264 df-recs 8313 df-rdg 8351 df-1o 8407 df-oadd 8411 df-er 8645 df-map 8777 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-sup 9357 df-inf 9358 df-card 9863 df-pnf 11180 df-mnf 11181 df-xr 11182 df-ltxr 11183 df-le 11184 df-sub 11378 df-neg 11379 df-div 11807 df-nn 12158 df-2 12220 df-3 12221 df-4 12222 df-5 12223 df-6 12224 df-7 12225 df-8 12226 df-9 12227 df-n0 12414 df-xnn0 12487 df-z 12501 df-uz 12764 df-rp 12918 df-fz 13436 df-fzo 13583 df-fl 13724 df-mod 13802 df-hash 14266 df-word 14449 df-concat 14506 df-s1 14532 df-substr 14577 df-pfx 14607 df-splice 14685 df-csh 14724 df-s2 14783 df-struct 17086 df-sets 17103 df-slot 17121 df-ndx 17133 df-base 17149 df-ress 17170 df-plusg 17202 df-tset 17208 df-efmnd 18806 df-symg 19311 df-tocyc 33200

This theorem is referenced by: (None)

W3C validator