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 33740

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 2760	. . . . . . . 8 ⊢ (Base‘𝑆) = (Base‘𝑆)
5	2, 3, 4	tocycf 33724	. . . . . . 7 ⊢ (𝐷 ∈ 𝑉 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
6	1, 5	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
7		cycpmco2.w	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ dom 𝑀)
8	6	fdmd 6720	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
9	7, 8	eleqtrd 2862	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
10	6, 9	ffvelcdmd 7085	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑊) ∈ (Base‘𝑆))
11	3, 4	symgbasf 19595	. . . . 5 ⊢ ((𝑀‘𝑊) ∈ (Base‘𝑆) → (𝑀‘𝑊):𝐷⟶𝐷)
12	10, 11	syl 18	. . . 4 ⊢ (𝜑 → (𝑀‘𝑊):𝐷⟶𝐷)
13	12	ffnd 6710	. . 3 ⊢ (𝜑 → (𝑀‘𝑊) Fn 𝐷)
14		cycpmco2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
15	14	eldifad 4051	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
16		ssrab2 4005	. . . . . . . . . . 11 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
17	16, 9	sselid 3906	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
18		id 23	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
19		dmeq 5884	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
20		eqidd 2761	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
21	18, 19, 20	f1eq123d 6816	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
22	21	elrab3 3645	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ 𝑊:dom 𝑊–1-1→𝐷))
23	22	biimpa 482	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}) → 𝑊:dom 𝑊–1-1→𝐷)
24	17, 9, 23	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
25		f1f 6778	. . . . . . . . 9 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊⟶𝐷)
26	24, 25	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑊:dom 𝑊⟶𝐷)
27	26	frnd 6718	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ 𝐷)
28		cycpmco2.j	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
29	27, 28	sseldd 3909	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ 𝐷)
30	14	eldifbd 4052	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝐼 ∈ ran 𝑊)
31		nelne2 3053	. . . . . . . 8 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝐽 ≠ 𝐼)
32	28, 30, 31	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → 𝐽 ≠ 𝐼)
33	32	necomd 3010	. . . . . 6 ⊢ (𝜑 → 𝐼 ≠ 𝐽)
34	2, 1, 15, 29, 33, 3	cycpm2cl 33727	. . . . 5 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆))
35	3, 4	symgbasf 19595	. . . . 5 ⊢ ((𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆) → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
36	34, 35	syl 18	. . . 4 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
37	36	ffnd 6710	. . 3 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷)
38	36	frnd 6718	. . 3 ⊢ (𝜑 → ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷)
39		fnco 6657	. . 3 ⊢ (((𝑀‘𝑊) Fn 𝐷 ∧ (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷 ∧ ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷) → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
40	13, 37, 38, 39	syl3anc 1398	. 2 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
41		cycpmco2.1	. . . . . 6 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
42	15	s1cld 14753	. . . . . . 7 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
43		splcl 14905	. . . . . . 7 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
44	17, 42, 43	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
45	41, 44	eqeltrid 2864	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
46		cycpmco2.e	. . . . . 6 ⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
47	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2f1 33731	. . . . 5 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
48	2, 1, 45, 47, 3	cycpmcl 33723	. . . 4 ⊢ (𝜑 → (𝑀‘𝑈) ∈ (Base‘𝑆))
49	3, 4	symgbasf 19595	. . . 4 ⊢ ((𝑀‘𝑈) ∈ (Base‘𝑆) → (𝑀‘𝑈):𝐷⟶𝐷)
50	48, 49	syl 18	. . 3 ⊢ (𝜑 → (𝑀‘𝑈):𝐷⟶𝐷)
51	50	ffnd 6710	. 2 ⊢ (𝜑 → (𝑀‘𝑈) Fn 𝐷)
52		fvco3 6985	. . . 4 ⊢ (((𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
53	36, 52	sylan 592	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
54	2, 1, 15, 29, 33, 3	cyc2fv2 33729	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽) = 𝐼)
55	54	fveq2d 6889	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑊)‘𝐼))
56	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem2 33734	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘𝐸) = 𝐼)
57		f1cnv 6849	. . . . . . . . . . . . . . . 16 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
58		f1of 6824	. . . . . . . . . . . . . . . 16 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
59	24, 57, 58	3syl 19	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
60	59, 28	ffvelcdmd 7085	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
61		wrddm 14669	. . . . . . . . . . . . . . 15 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
62	17, 61	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
63	60, 62	eleqtrd 2862	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
64		lencl 14681	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
65	17, 64	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
66	65	nn0cnd 12672	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
67		1cnd 11305	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
68		ovexd 7455	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ V)
69	46, 68	eqeltrid 2864	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ V)
70		splval 14904	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ dom 𝑀 ∧ (𝐸 ∈ V ∧ 𝐸 ∈ V ∧ ⟨“𝐼”⟩ ∈ Word 𝐷)) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
71	7, 69, 69, 42, 70	syl13anc 1399	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
72	41, 71	eqtrid 2807	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑈 = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
73	72	fveq2d 6889	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘𝑈) = (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
74		pfxcl 14831	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
75	17, 74	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
76		ccatcl 14722	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
77	75, 42, 76	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
78		swrdcl 14797	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
79	17, 78	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
80		ccatlen 14723	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷) → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
81	77, 79, 80	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
82		ccatws1len 14772	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 prefix 𝐸) ∈ Word 𝐷 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
83	17, 74, 82	3syl 19	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
84		fzofzp1 13902	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
85	63, 84	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
86	46, 85	eqeltrid 2864	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
87		pfxlen 14837	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
88	17, 86, 87	syl2anc 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
89	88	oveq1d 7435	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((♯‘(𝑊 prefix 𝐸)) + 1) = (𝐸 + 1))
90	83, 89	eqtrd 2795	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = (𝐸 + 1))
91		nn0fz0 13762	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
92	65, 91	sylib 221	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
93		swrdlen 14799	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (♯‘𝑊) ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
94	17, 86, 92, 93	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
95	90, 94	oveq12d 7438	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
96	73, 81, 95	3eqtrd 2799	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
97		fz0ssnn0 13759	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
98	97, 86	sselid 3906	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
99	98	nn0zd 12721	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 ∈ ℤ)
100	99	peano2zd 12809	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸 + 1) ∈ ℤ)
101	100	zcnd 12807	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 + 1) ∈ ℂ)
102	98	nn0cnd 12672	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ ℂ)
103	101, 66, 102	addsubassd 11692	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
104	102, 67, 66	addassd 11334	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐸 + 1) + (♯‘𝑊)) = (𝐸 + (1 + (♯‘𝑊))))
105	104	oveq1d 7435	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
106	96, 103, 105	3eqtr2d 2801	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
107	67, 66	addcld 11331	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 + (♯‘𝑊)) ∈ ℂ)
108	102, 107	pncan2d 11674	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸 + (1 + (♯‘𝑊))) − 𝐸) = (1 + (♯‘𝑊)))
109	67, 66	addcomd 11515	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + (♯‘𝑊)) = ((♯‘𝑊) + 1))
110	106, 108, 109	3eqtrd 2799	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) = ((♯‘𝑊) + 1))
111	66, 67, 110	mvrraddd 11730	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
112	111	oveq2d 7436	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
113	63, 112	eleqtrrd 2863	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((♯‘𝑈) − 1)))
114	2, 1, 45, 47, 113	cycpmfv1 33720	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘((^◡𝑊‘𝐽) + 1)))
115	46	fveq2i 6888	. . . . . . . . . . 11 ⊢ (𝑈‘𝐸) = (𝑈‘((^◡𝑊‘𝐽) + 1))
116	114, 115	eqtr4di 2813	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘𝐸))
117	2, 1, 17, 24, 15, 30	cycpmfv3 33722	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐼) = 𝐼)
118	56, 116, 117	3eqtr4d 2805	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑊)‘𝐼))
119	72	fveq1d 6887	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)))
120		fzossfzop1 13881	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ∈ ℕ₀ → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
121	98, 120	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
122		elfzonn0 13845	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
123		fzonn0p1 13880	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
124	63, 122, 123	3syl 19	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
125	46	oveq2i 7431	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐸) = (0..^((^◡𝑊‘𝐽) + 1))
126	124, 125	eleqtrrdi 2871	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^𝐸))
127	121, 126	sseldd 3909	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(𝐸 + 1)))
128	90	oveq2d 7436	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))) = (0..^(𝐸 + 1)))
129	127, 128	eleqtrrd 2863	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))))
130		ccatval1 14725	. . . . . . . . . . . . 13 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)))) → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
131	77, 79, 129, 130	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
132	88	oveq2d 7436	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘(𝑊 prefix 𝐸))) = (0..^𝐸))
133	126, 132	eleqtrrd 2863	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸))))
134		ccatval1 14725	. . . . . . . . . . . . 13 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸)))) → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
135	75, 42, 133, 134	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
136	119, 131, 135	3eqtrd 2799	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
137		pfxfv 14836	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (^◡𝑊‘𝐽) ∈ (0..^𝐸)) → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
138	17, 86, 126, 137	syl3anc 1398	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
139		f1f1orn 6836	. . . . . . . . . . . . 13 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
140	24, 139	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
141		f1ocnvfv2 7285	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
142	140, 28, 141	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
143	136, 138, 142	3eqtrd 2799	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = 𝐽)
144	143	fveq2d 6889	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑈)‘𝐽))
145	55, 118, 144	3eqtr2d 2801	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
146	145	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
147		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → 𝑖 = 𝐽)
148	147	fveq2d 6889	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽))
149	148	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)))
150	147	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐽))
151	146, 149, 150	3eqtr4d 2805	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
152	1	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝐷 ∈ 𝑉)
153	15, 29	s2cld 15026	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
154	153	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
155	15, 29, 33	s2f1 33556	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
156	155	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
157	27	sselda 3908	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ 𝐷)
158	157	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ∈ 𝐷)
159		simpr 490	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑊)
160	30	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ¬ 𝐼 ∈ ran 𝑊)
161		nelne2 3053	. . . . . . . . . . . . 13 ⊢ ((𝑖 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
162	159, 160, 161	syl2anc 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
163	162	adantr 486	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐼)
164		simpr 490	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐽)
165	163, 164	nelprd 4614	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ {𝐼, 𝐽})
166	15, 29	s2rn 15121	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran ⟨“𝐼𝐽”⟩ = {𝐼, 𝐽})
167	166	eleq2d 2846	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ 𝑖 ∈ {𝐼, 𝐽}))
168	167	notbid 321	. . . . . . . . . . 11 ⊢ (𝜑 → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
169	168	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
170	165, 169	mpbird 260	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
171	2, 152, 154, 156, 158, 170	cycpmfv3 33722	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
172	171	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
173	1	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐷 ∈ 𝑉)
174	7	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑊 ∈ dom 𝑀)
175	14	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
176	28	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐽 ∈ ran 𝑊)
177		simpllr 788	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ∈ ran 𝑊)
178		simplr 781	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ≠ 𝐽)
179		simpr 490	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → (^◡𝑈‘𝑖) ∈ (0..^𝐸))
180	2, 3, 173, 174, 175, 176, 46, 41, 177, 178, 179	cycpmco2lem7 33739	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
181	1	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐷 ∈ 𝑉)
182	7	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑊 ∈ dom 𝑀)
183	14	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
184	28	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐽 ∈ ran 𝑊)
185		simpllr 788	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ∈ ran 𝑊)
186	162	ad2antrr 739	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ≠ 𝐼)
187		simpr 490	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))
188	2, 3, 181, 182, 183, 184, 46, 41, 185, 186, 187	cycpmco2lem6 33738	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
189	1	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐷 ∈ 𝑉)
190	7	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑊 ∈ dom 𝑀)
191	14	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
192	28	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐽 ∈ ran 𝑊)
193		simpllr 788	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑖 ∈ ran 𝑊)
194		simpr 490	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))
195	2, 3, 189, 190, 191, 192, 46, 41, 193, 194	cycpmco2lem5 33737	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
196		f1f1orn 6836	. . . . . . . . . . . . . . . 16 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
197	47, 196	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
198		ssun1 4176	. . . . . . . . . . . . . . . . 17 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
199	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2rn 33732	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
200	198, 199	sseqtrrid 3951	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
201	200	sselda 3908	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑈)
202		f1ocnvdm 7293	. . . . . . . . . . . . . . 15 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝑖 ∈ ran 𝑈) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
203	197, 201, 202	syl2an2r 698	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
204		wrddm 14669	. . . . . . . . . . . . . . . 16 ⊢ (𝑈 ∈ Word 𝐷 → dom 𝑈 = (0..^(♯‘𝑈)))
205	45, 204	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → dom 𝑈 = (0..^(♯‘𝑈)))
206	205	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → dom 𝑈 = (0..^(♯‘𝑈)))
207	203, 206	eleqtrd 2862	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0..^(♯‘𝑈)))
208	65	nn0zd 12721	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
209	208	peano2zd 12809	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((♯‘𝑊) + 1) ∈ ℤ)
210	110, 209	eqeltrd 2860	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) ∈ ℤ)
211		fzoval 13797	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑈) ∈ ℤ → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
212	210, 211	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
213	212	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (0..^(♯‘𝑈)) = (0...((♯‘𝑈) − 1)))
214	207, 213	eleqtrd 2862	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)))
215		elfzr 13919	. . . . . . . . . . . 12 ⊢ ((^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
216	214, 215	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
217		simpr 490	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)))
218	99	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → 𝐸 ∈ ℤ)
219		fzospliti 13829	. . . . . . . . . . . . . 14 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∧ 𝐸 ∈ ℤ) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
220	217, 218, 219	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
221	220	ex 418	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))))
222	221	orim1d 981	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))))
223	216, 222	mpd 16	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
224		df-3or 1104	. . . . . . . . . 10 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) ↔ (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
225	223, 224	sylibr 237	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
226	225	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
227	180, 188, 195, 226	mpjao3dan 1459	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
228	172, 227	eqtr4d 2798	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
229	151, 228	pm2.61dane 3042	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
230	229	adantlr 728	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
231	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem4 33736	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
232	231	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
233		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → 𝑖 = 𝐼)
234	233	fveq2d 6889	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼))
235	234	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)))
236	233	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐼))
237	232, 235, 236	3eqtr4d 2805	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
238	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝐷 ∈ 𝑉)
239	17	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊 ∈ Word 𝐷)
240	24	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊:dom 𝑊–1-1→𝐷)
241		simplr 781	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ (𝐷 ∖ ran 𝑊))
242	241	eldifad 4051	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ 𝐷)
243	241	eldifbd 4052	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑊)
244	2, 238, 239, 240, 242, 243	cycpmfv3 33722	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘𝑖) = 𝑖)
245	153	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
246	155	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
247		simpr 490	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐼)
248		eldifn 4068	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (𝐷 ∖ ran 𝑊) → ¬ 𝑖 ∈ ran 𝑊)
249		nelne2 3053	. . . . . . . . . . . . . 14 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ ran 𝑊) → 𝐽 ≠ 𝑖)
250	28, 248, 249	syl2an 608	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝐽 ≠ 𝑖)
251	250	necomd 3010	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝑖 ≠ 𝐽)
252	251	adantr 486	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐽)
253	247, 252	nelprd 4614	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼, 𝐽})
254	168	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
255	253, 254	mpbird 260	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
256	2, 238, 245, 246, 242, 255	cycpmfv3 33722	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
257	256	fveq2d 6889	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
258	45	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈 ∈ Word 𝐷)
259	47	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈:dom 𝑈–1-1→𝐷)
260	199	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
261		nelsn 4623	. . . . . . . . . 10 ⊢ (𝑖 ≠ 𝐼 → ¬ 𝑖 ∈ {𝐼})
262	261	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼})
263		nelun 33156	. . . . . . . . . 10 ⊢ (ran 𝑈 = (ran 𝑊 ∪ {𝐼}) → (¬ 𝑖 ∈ ran 𝑈 ↔ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})))
264	263	biimpar 483	. . . . . . . . 9 ⊢ ((ran 𝑈 = (ran 𝑊 ∪ {𝐼}) ∧ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})) → ¬ 𝑖 ∈ ran 𝑈)
265	260, 243, 262, 264	syl12anc 850	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑈)
266	2, 238, 258, 259, 242, 265	cycpmfv3 33722	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑈)‘𝑖) = 𝑖)
267	244, 257, 266	3eqtr4d 2805	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
268	237, 267	pm2.61dane 3042	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
269	268	adantlr 728	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
270		undif 4437	. . . . . . . 8 ⊢ (ran 𝑊 ⊆ 𝐷 ↔ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
271	27, 270	sylib 221	. . . . . . 7 ⊢ (𝜑 → (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
272	271	eleq2d 2846	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ 𝑖 ∈ 𝐷))
273		elun 4152	. . . . . 6 ⊢ (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
274	272, 273	bitr3di 289	. . . . 5 ⊢ (𝜑 → (𝑖 ∈ 𝐷 ↔ (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊))))
275	274	biimpa 482	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (𝑖 ∈ ran 𝑊 ∨ 𝑖 ∈ (𝐷 ∖ ran 𝑊)))
276	230, 269, 275	mpjaodan 973	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
277	53, 276	eqtrd 2795	. 2 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑈)‘𝑖))
278	40, 51, 277	eqfnfvd 7032	1 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) = (𝑀‘𝑈))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∨ wo 861 ∨ w3o 1102 = wceq 1569 ∈ wcel 2144 ≠ wne 2955 {crab 3412 Vcvv 3450 ⊆ wss 3895 ∖ cdif 4045 ∪ cun 4149 {csn 4584 {cpr 4586 ⟨cop 4834 ⟨cotp 4857 ^◡ccnv 5649 dom cdm 5650 ran crn 5651 ∘ ccom 5654 Fn wfn 6533 ⟶wf 6534 –1-1→wf1 6535 –1-1-onto→wf1o 6537 ‘cfv 6538 (class class class)co 7420 0cc0 11203 1c1 11204 + caddc 11206 − cmin 11544 ℕ₀cn0 12609 ℤcz 12696 ...cfz 13642 ..^cfzo 13791 ♯chash 14477 Word cword 14661 ++ cconcat 14718 ⟨“cs1 14745 substr csubstr 14792 prefix cpfx 14824 splice csplice 14902 ⟨“cs2 14996 Basecbs 17392 SymGrpcsymg 19588 toCycctocyc 33713

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7751 ax-cnex 11259 ax-resscn 11260 ax-1cn 11261 ax-icn 11262 ax-addcl 11263 ax-addrcl 11264 ax-mulcl 11265 ax-mulrcl 11266 ax-mulcom 11267 ax-addass 11268 ax-mulass 11269 ax-distr 11270 ax-i2m1 11271 ax-1ne0 11272 ax-1rid 11273 ax-rnegex 11274 ax-rrecex 11275 ax-cnre 11276 ax-pre-lttri 11277 ax-pre-lttrn 11278 ax-pre-ltadd 11279 ax-pre-mulgt0 11280 ax-pre-sup 11281

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4835 df-ot 4858 df-uni 4867 df-int 4907 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-om 7878 df-1st 8001 df-2nd 8002 df-frecs 8302 df-wrecs 8333 df-recs 8382 df-rdg 8421 df-1o 8479 df-oadd 8483 df-er 8720 df-map 8852 df-en 8977 df-dom 8978 df-sdom 8979 df-fin 8980 df-sup 9437 df-inf 9438 df-card 10023 df-pnf 11348 df-mnf 11349 df-xr 11350 df-ltxr 11351 df-le 11352 df-sub 11546 df-neg 11547 df-div 11977 df-nn 12339 df-2 12408 df-3 12409 df-4 12410 df-5 12411 df-6 12412 df-7 12413 df-8 12414 df-9 12415 df-n0 12610 df-xnn0 12683 df-z 12697 df-uz 12969 df-rp 13124 df-fz 13643 df-fzo 13792 df-fl 13935 df-mod 14013 df-hash 14478 df-word 14662 df-concat 14719 df-s1 14746 df-substr 14793 df-pfx 14825 df-splice 14903 df-csh 14944 df-s2 15003 df-struct 17330 df-sets 17347 df-slot 17365 df-ndx 17377 df-base 17393 df-ress 17414 df-plusg 17446 df-tset 17452 df-efmnd 19070 df-symg 19589 df-tocyc 33714

This theorem is used by: (None)

W3C validator