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 33676

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 33660	. . . . . . 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 6712	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
9	7, 8	eleqtrd 2863	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
10	6, 9	ffvelcdmd 7077	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑊) ∈ (Base‘𝑆))
11	3, 4	symgbasf 19570	. . . . 5 ⊢ ((𝑀‘𝑊) ∈ (Base‘𝑆) → (𝑀‘𝑊):𝐷⟶𝐷)
12	10, 11	syl 18	. . . 4 ⊢ (𝜑 → (𝑀‘𝑊):𝐷⟶𝐷)
13	12	ffnd 6702	. . 3 ⊢ (𝜑 → (𝑀‘𝑊) Fn 𝐷)
14		cycpmco2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
15	14	eldifad 3911	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
16		ssrab2 4028	. . . . . . . . . . 11 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
17	16, 9	sselid 3929	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
18		id 23	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
19		dmeq 5885	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
20		eqidd 2762	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
21	18, 19, 20	f1eq123d 6808	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
22	21	elrab3 3646	. . . . . . . . . . 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 6770	. . . . . . . . 9 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊⟶𝐷)
26	24, 25	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑊:dom 𝑊⟶𝐷)
27	26	frnd 6710	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ 𝐷)
28		cycpmco2.j	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
29	27, 28	sseldd 3932	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ 𝐷)
30	14	eldifbd 3912	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝐼 ∈ ran 𝑊)
31		nelne2 3054	. . . . . . . 8 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝐽 ≠ 𝐼)
32	28, 30, 31	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → 𝐽 ≠ 𝐼)
33	32	necomd 3011	. . . . . 6 ⊢ (𝜑 → 𝐼 ≠ 𝐽)
34	2, 1, 15, 29, 33, 3	cycpm2cl 33663	. . . . 5 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆))
35	3, 4	symgbasf 19570	. . . . 5 ⊢ ((𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆) → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
36	34, 35	syl 18	. . . 4 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
37	36	ffnd 6702	. . 3 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷)
38	36	frnd 6710	. . 3 ⊢ (𝜑 → ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷)
39		fnco 6649	. . 3 ⊢ (((𝑀‘𝑊) Fn 𝐷 ∧ (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷 ∧ ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷) → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
40	13, 37, 38, 39	syl3anc 1398	. 2 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
41		cycpmco2.1	. . . . . 6 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
42	15	s1cld 14730	. . . . . . 7 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
43		splcl 14881	. . . . . . 7 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
44	17, 42, 43	syl2anc 596	. . . . . 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 33667	. . . . 5 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
48	2, 1, 45, 47, 3	cycpmcl 33659	. . . 4 ⊢ (𝜑 → (𝑀‘𝑈) ∈ (Base‘𝑆))
49	3, 4	symgbasf 19570	. . . 4 ⊢ ((𝑀‘𝑈) ∈ (Base‘𝑆) → (𝑀‘𝑈):𝐷⟶𝐷)
50	48, 49	syl 18	. . 3 ⊢ (𝜑 → (𝑀‘𝑈):𝐷⟶𝐷)
51	50	ffnd 6702	. 2 ⊢ (𝜑 → (𝑀‘𝑈) Fn 𝐷)
52		fvco3 6977	. . . 4 ⊢ (((𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
53	36, 52	sylan 592	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
54	2, 1, 15, 29, 33, 3	cyc2fv2 33665	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽) = 𝐼)
55	54	fveq2d 6881	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑊)‘𝐼))
56	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem2 33670	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘𝐸) = 𝐼)
57		f1cnv 6841	. . . . . . . . . . . . . . . 16 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
58		f1of 6816	. . . . . . . . . . . . . . . 16 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
59	24, 57, 58	3syl 19	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
60	59, 28	ffvelcdmd 7077	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
61		wrddm 14646	. . . . . . . . . . . . . . 15 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
62	17, 61	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
63	60, 62	eleqtrd 2863	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
64		lencl 14658	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
65	17, 64	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
66	65	nn0cnd 12650	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
67		1cnd 11283	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
68		ovexd 7447	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ V)
69	46, 68	eqeltrid 2865	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ V)
70		splval 14880	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ dom 𝑀 ∧ (𝐸 ∈ V ∧ 𝐸 ∈ V ∧ ⟨“𝐼”⟩ ∈ Word 𝐷)) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
71	7, 69, 69, 42, 70	syl13anc 1399	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
72	41, 71	eqtrid 2808	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑈 = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
73	72	fveq2d 6881	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘𝑈) = (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
74		pfxcl 14807	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
75	17, 74	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
76		ccatcl 14699	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
77	75, 42, 76	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
78		swrdcl 14773	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
79	17, 78	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
80		ccatlen 14700	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷) → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
81	77, 79, 80	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
82		ccatws1len 14748	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 prefix 𝐸) ∈ Word 𝐷 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
83	17, 74, 82	3syl 19	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
84		fzofzp1 13879	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
85	63, 84	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
86	46, 85	eqeltrid 2865	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
87		pfxlen 14813	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
88	17, 86, 87	syl2anc 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
89	88	oveq1d 7427	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((♯‘(𝑊 prefix 𝐸)) + 1) = (𝐸 + 1))
90	83, 89	eqtrd 2796	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = (𝐸 + 1))
91		nn0fz0 13739	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
92	65, 91	sylib 221	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
93		swrdlen 14775	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (♯‘𝑊) ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
94	17, 86, 92, 93	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
95	90, 94	oveq12d 7430	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
96	73, 81, 95	3eqtrd 2800	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
97		fz0ssnn0 13736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
98	97, 86	sselid 3929	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
99	98	nn0zd 12699	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 ∈ ℤ)
100	99	peano2zd 12787	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸 + 1) ∈ ℤ)
101	100	zcnd 12785	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 + 1) ∈ ℂ)
102	98	nn0cnd 12650	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ ℂ)
103	101, 66, 102	addsubassd 11670	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
104	102, 67, 66	addassd 11312	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐸 + 1) + (♯‘𝑊)) = (𝐸 + (1 + (♯‘𝑊))))
105	104	oveq1d 7427	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
106	96, 103, 105	3eqtr2d 2802	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
107	67, 66	addcld 11309	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 + (♯‘𝑊)) ∈ ℂ)
108	102, 107	pncan2d 11652	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸 + (1 + (♯‘𝑊))) − 𝐸) = (1 + (♯‘𝑊)))
109	67, 66	addcomd 11493	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + (♯‘𝑊)) = ((♯‘𝑊) + 1))
110	106, 108, 109	3eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) = ((♯‘𝑊) + 1))
111	66, 67, 110	mvrraddd 11708	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
112	111	oveq2d 7428	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
113	63, 112	eleqtrrd 2864	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((♯‘𝑈) − 1)))
114	2, 1, 45, 47, 113	cycpmfv1 33656	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘((^◡𝑊‘𝐽) + 1)))
115	46	fveq2i 6880	. . . . . . . . . . 11 ⊢ (𝑈‘𝐸) = (𝑈‘((^◡𝑊‘𝐽) + 1))
116	114, 115	eqtr4di 2814	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘𝐸))
117	2, 1, 17, 24, 15, 30	cycpmfv3 33658	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐼) = 𝐼)
118	56, 116, 117	3eqtr4d 2806	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑊)‘𝐼))
119	72	fveq1d 6879	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)))
120		fzossfzop1 13858	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ∈ ℕ₀ → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
121	98, 120	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
122		elfzonn0 13822	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
123		fzonn0p1 13857	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
124	63, 122, 123	3syl 19	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
125	46	oveq2i 7423	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐸) = (0..^((^◡𝑊‘𝐽) + 1))
126	124, 125	eleqtrrdi 2872	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^𝐸))
127	121, 126	sseldd 3932	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(𝐸 + 1)))
128	90	oveq2d 7428	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))) = (0..^(𝐸 + 1)))
129	127, 128	eleqtrrd 2864	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))))
130		ccatval1 14702	. . . . . . . . . . . . 13 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)))) → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
131	77, 79, 129, 130	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
132	88	oveq2d 7428	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘(𝑊 prefix 𝐸))) = (0..^𝐸))
133	126, 132	eleqtrrd 2864	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸))))
134		ccatval1 14702	. . . . . . . . . . . . 13 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸)))) → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
135	75, 42, 133, 134	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
136	119, 131, 135	3eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
137		pfxfv 14812	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (^◡𝑊‘𝐽) ∈ (0..^𝐸)) → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
138	17, 86, 126, 137	syl3anc 1398	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
139		f1f1orn 6828	. . . . . . . . . . . . 13 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
140	24, 139	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
141		f1ocnvfv2 7277	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
142	140, 28, 141	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
143	136, 138, 142	3eqtrd 2800	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = 𝐽)
144	143	fveq2d 6881	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑈)‘𝐽))
145	55, 118, 144	3eqtr2d 2802	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
146	145	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
147		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → 𝑖 = 𝐽)
148	147	fveq2d 6881	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽))
149	148	fveq2d 6881	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)))
150	147	fveq2d 6881	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐽))
151	146, 149, 150	3eqtr4d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
152	1	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝐷 ∈ 𝑉)
153	15, 29	s2cld 15002	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
154	153	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
155	15, 29, 33	s2f1 33492	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
156	155	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
157	27	sselda 3931	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ 𝐷)
158	157	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ∈ 𝐷)
159		simpr 490	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑊)
160	30	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ¬ 𝐼 ∈ ran 𝑊)
161		nelne2 3054	. . . . . . . . . . . . 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 4618	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ {𝐼, 𝐽})
166	15, 29	s2rn 15096	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran ⟨“𝐼𝐽”⟩ = {𝐼, 𝐽})
167	166	eleq2d 2847	. . . . . . . . . . . 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 33658	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
172	171	fveq2d 6881	. . . . . . 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 33675	. . . . . . . 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 33674	. . . . . . . 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 33673	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
196		f1f1orn 6828	. . . . . . . . . . . . . . . 16 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
197	47, 196	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
198		ssun1 4124	. . . . . . . . . . . . . . . . 17 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
199	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2rn 33668	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
200	198, 199	sseqtrrid 3974	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
201	200	sselda 3931	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑈)
202		f1ocnvdm 7285	. . . . . . . . . . . . . . 15 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝑖 ∈ ran 𝑈) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
203	197, 201, 202	syl2an2r 698	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
204		wrddm 14646	. . . . . . . . . . . . . . . 16 ⊢ (𝑈 ∈ Word 𝐷 → dom 𝑈 = (0..^(♯‘𝑈)))
205	45, 204	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → dom 𝑈 = (0..^(♯‘𝑈)))
206	205	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → dom 𝑈 = (0..^(♯‘𝑈)))
207	203, 206	eleqtrd 2863	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0..^(♯‘𝑈)))
208	65	nn0zd 12699	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
209	208	peano2zd 12787	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((♯‘𝑊) + 1) ∈ ℤ)
210	110, 209	eqeltrd 2861	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) ∈ ℤ)
211		fzoval 13774	. . . . . . . . . . . . . . 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 2863	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)))
215		elfzr 13896	. . . . . . . . . . . 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 13806	. . . . . . . . . . . . . 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 2799	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
229	151, 228	pm2.61dane 3043	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
230	229	adantlr 728	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
231	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem4 33672	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
232	231	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
233		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → 𝑖 = 𝐼)
234	233	fveq2d 6881	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼))
235	234	fveq2d 6881	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)))
236	233	fveq2d 6881	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐼))
237	232, 235, 236	3eqtr4d 2806	. . . . . 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 3911	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ 𝐷)
243	241	eldifbd 3912	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑊)
244	2, 238, 239, 240, 242, 243	cycpmfv3 33658	. . . . . . 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 4079	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (𝐷 ∖ ran 𝑊) → ¬ 𝑖 ∈ ran 𝑊)
249		nelne2 3054	. . . . . . . . . . . . . 14 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ ran 𝑊) → 𝐽 ≠ 𝑖)
250	28, 248, 249	syl2an 608	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝐽 ≠ 𝑖)
251	250	necomd 3011	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝑖 ≠ 𝐽)
252	251	adantr 486	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐽)
253	247, 252	nelprd 4618	. . . . . . . . . 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 33658	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
257	256	fveq2d 6881	. . . . . . 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 4627	. . . . . . . . . 10 ⊢ (𝑖 ≠ 𝐼 → ¬ 𝑖 ∈ {𝐼})
262	261	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼})
263		nelun 33091	. . . . . . . . . 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 33658	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑈)‘𝑖) = 𝑖)
267	244, 257, 266	3eqtr4d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
268	237, 267	pm2.61dane 3043	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
269	268	adantlr 728	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
270		undif 4438	. . . . . . . 8 ⊢ (ran 𝑊 ⊆ 𝐷 ↔ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
271	27, 270	sylib 221	. . . . . . 7 ⊢ (𝜑 → (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
272	271	eleq2d 2847	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ 𝑖 ∈ 𝐷))
273		elun 4100	. . . . . 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 2796	. 2 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑈)‘𝑖))
278	40, 51, 277	eqfnfvd 7024	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 1570 ∈ wcel 2145 ≠ wne 2956 {crab 3413 Vcvv 3451 ∖ cdif 3896 ∪ cun 3897 ⊆ wss 3899 {csn 4584 {cpr 4586 ⟨cop 4590 ⟨cotp 4592 ^◡ccnv 5650 dom cdm 5651 ran crn 5652 ∘ ccom 5655 Fn wfn 6526 ⟶wf 6527 –1-1→wf1 6528 –1-1-onto→wf1o 6530 ‘cfv 6531 (class class class)co 7412 0cc0 11181 1c1 11182 + caddc 11184 − cmin 11522 ℕ₀cn0 12587 ℤcz 12674 ...cfz 13620 ..^cfzo 13768 ♯chash 14454 Word cword 14638 ++ cconcat 14695 ⟨“cs1 14722 substr csubstr 14768 prefix cpfx 14800 splice csplice 14878 ⟨“cs2 14972 Basecbs 17367 SymGrpcsymg 19563 toCycctocyc 33649

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 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740 ax-cnex 11237 ax-resscn 11238 ax-1cn 11239 ax-icn 11240 ax-addcl 11241 ax-addrcl 11242 ax-mulcl 11243 ax-mulrcl 11244 ax-mulcom 11245 ax-addass 11246 ax-mulass 11247 ax-distr 11248 ax-i2m1 11249 ax-1ne0 11250 ax-1rid 11251 ax-rnegex 11252 ax-rrecex 11253 ax-cnre 11254 ax-pre-lttri 11255 ax-pre-lttrn 11256 ax-pre-ltadd 11257 ax-pre-mulgt0 11258 ax-pre-sup 11259

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 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-ot 4593 df-uni 4868 df-int 4908 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-lim 6360 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-om 7867 df-1st 7990 df-2nd 7991 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8460 df-oadd 8464 df-er 8701 df-map 8833 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-sup 9418 df-inf 9419 df-card 10001 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11524 df-neg 11525 df-div 11955 df-nn 12317 df-2 12386 df-3 12387 df-4 12388 df-5 12389 df-6 12390 df-7 12391 df-8 12392 df-9 12393 df-n0 12588 df-xnn0 12661 df-z 12675 df-uz 12947 df-rp 13102 df-fz 13621 df-fzo 13769 df-fl 13912 df-mod 13990 df-hash 14455 df-word 14639 df-concat 14696 df-s1 14723 df-substr 14769 df-pfx 14801 df-splice 14879 df-csh 14920 df-s2 14979 df-struct 17305 df-sets 17322 df-slot 17340 df-ndx 17352 df-base 17368 df-ress 17389 df-plusg 17421 df-tset 17427 df-efmnd 19045 df-symg 19564 df-tocyc 33650

This theorem is used by: (None)

W3C validator