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 33215

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 2736	. . . . . . . 8 ⊢ (Base‘𝑆) = (Base‘𝑆)
5	2, 3, 4	tocycf 33199	. . . . . . 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 6672	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
9	7, 8	eleqtrd 2838	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
10	6, 9	ffvelcdmd 7030	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑊) ∈ (Base‘𝑆))
11	3, 4	symgbasf 19305	. . . . 5 ⊢ ((𝑀‘𝑊) ∈ (Base‘𝑆) → (𝑀‘𝑊):𝐷⟶𝐷)
12	10, 11	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘𝑊):𝐷⟶𝐷)
13	12	ffnd 6663	. . 3 ⊢ (𝜑 → (𝑀‘𝑊) Fn 𝐷)
14		cycpmco2.i	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
15	14	eldifad 3913	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
16		ssrab2 4032	. . . . . . . . . . 11 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
17	16, 9	sselid 3931	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
18		id 22	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
19		dmeq 5852	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
20		eqidd 2737	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
21	18, 19, 20	f1eq123d 6766	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
22	21	elrab3 3647	. . . . . . . . . . 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 584	. . . . . . . . 9 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
25		f1f 6730	. . . . . . . . 9 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊⟶𝐷)
26	24, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊:dom 𝑊⟶𝐷)
27	26	frnd 6670	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ 𝐷)
28		cycpmco2.j	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
29	27, 28	sseldd 3934	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ 𝐷)
30	14	eldifbd 3914	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝐼 ∈ ran 𝑊)
31		nelne2 3030	. . . . . . . 8 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝐽 ≠ 𝐼)
32	28, 30, 31	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → 𝐽 ≠ 𝐼)
33	32	necomd 2987	. . . . . 6 ⊢ (𝜑 → 𝐼 ≠ 𝐽)
34	2, 1, 15, 29, 33, 3	cycpm2cl 33202	. . . . 5 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆))
35	3, 4	symgbasf 19305	. . . . 5 ⊢ ((𝑀‘⟨“𝐼𝐽”⟩) ∈ (Base‘𝑆) → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
36	34, 35	syl 17	. . . 4 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷)
37	36	ffnd 6663	. . 3 ⊢ (𝜑 → (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷)
38	36	frnd 6670	. . 3 ⊢ (𝜑 → ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷)
39		fnco 6610	. . 3 ⊢ (((𝑀‘𝑊) Fn 𝐷 ∧ (𝑀‘⟨“𝐼𝐽”⟩) Fn 𝐷 ∧ ran (𝑀‘⟨“𝐼𝐽”⟩) ⊆ 𝐷) → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
40	13, 37, 38, 39	syl3anc 1373	. 2 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) Fn 𝐷)
41		cycpmco2.1	. . . . . 6 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
42	15	s1cld 14527	. . . . . . 7 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
43		splcl 14675	. . . . . . 7 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
44	17, 42, 43	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
45	41, 44	eqeltrid 2840	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
46		cycpmco2.e	. . . . . 6 ⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
47	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2f1 33206	. . . . 5 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
48	2, 1, 45, 47, 3	cycpmcl 33198	. . . 4 ⊢ (𝜑 → (𝑀‘𝑈) ∈ (Base‘𝑆))
49	3, 4	symgbasf 19305	. . . 4 ⊢ ((𝑀‘𝑈) ∈ (Base‘𝑆) → (𝑀‘𝑈):𝐷⟶𝐷)
50	48, 49	syl 17	. . 3 ⊢ (𝜑 → (𝑀‘𝑈):𝐷⟶𝐷)
51	50	ffnd 6663	. 2 ⊢ (𝜑 → (𝑀‘𝑈) Fn 𝐷)
52		fvco3 6933	. . . 4 ⊢ (((𝑀‘⟨“𝐼𝐽”⟩):𝐷⟶𝐷 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
53	36, 52	sylan 580	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)))
54	2, 1, 15, 29, 33, 3	cyc2fv2 33204	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽) = 𝐼)
55	54	fveq2d 6838	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑊)‘𝐼))
56	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem2 33209	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘𝐸) = 𝐼)
57		f1cnv 6798	. . . . . . . . . . . . . . . 16 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
58		f1of 6774	. . . . . . . . . . . . . . . 16 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
59	24, 57, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
60	59, 28	ffvelcdmd 7030	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
61		wrddm 14444	. . . . . . . . . . . . . . 15 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
62	17, 61	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
63	60, 62	eleqtrd 2838	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
64		lencl 14456	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
65	17, 64	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
66	65	nn0cnd 12464	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
67		1cnd 11127	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
68		ovexd 7393	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ V)
69	46, 68	eqeltrid 2840	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ V)
70		splval 14674	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ dom 𝑀 ∧ (𝐸 ∈ V ∧ 𝐸 ∈ V ∧ ⟨“𝐼”⟩ ∈ Word 𝐷)) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
71	7, 69, 69, 42, 70	syl13anc 1374	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
72	41, 71	eqtrid 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑈 = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)))
73	72	fveq2d 6838	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘𝑈) = (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
74		pfxcl 14601	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
75	17, 74	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑊 prefix 𝐸) ∈ Word 𝐷)
76		ccatcl 14497	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
77	75, 42, 76	syl2anc 584	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷)
78		swrdcl 14569	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑊 ∈ Word 𝐷 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
79	17, 78	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷)
80		ccatlen 14498	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷) → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
81	77, 79, 80	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (♯‘(((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))))
82		ccatws1len 14544	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 prefix 𝐸) ∈ Word 𝐷 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
83	17, 74, 82	3syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = ((♯‘(𝑊 prefix 𝐸)) + 1))
84		fzofzp1 13680	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
85	63, 84	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
86	46, 85	eqeltrid 2840	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
87		pfxlen 14607	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
88	17, 86, 87	syl2anc 584	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (♯‘(𝑊 prefix 𝐸)) = 𝐸)
89	88	oveq1d 7373	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((♯‘(𝑊 prefix 𝐸)) + 1) = (𝐸 + 1))
90	83, 89	eqtrd 2771	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) = (𝐸 + 1))
91		nn0fz0 13541	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
92	65, 91	sylib 218	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
93		swrdlen 14571	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (♯‘𝑊) ∈ (0...(♯‘𝑊))) → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
94	17, 86, 92, 93	syl3anc 1373	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩)) = ((♯‘𝑊) − 𝐸))
95	90, 94	oveq12d 7376	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)) + (♯‘(𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
96	73, 81, 95	3eqtrd 2775	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
97		fz0ssnn0 13538	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
98	97, 86	sselid 3931	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
99	98	nn0zd 12513	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐸 ∈ ℤ)
100	99	peano2zd 12599	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸 + 1) ∈ ℤ)
101	100	zcnd 12597	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 + 1) ∈ ℂ)
102	98	nn0cnd 12464	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ ℂ)
103	101, 66, 102	addsubassd 11512	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + 1) + ((♯‘𝑊) − 𝐸)))
104	102, 67, 66	addassd 11154	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐸 + 1) + (♯‘𝑊)) = (𝐸 + (1 + (♯‘𝑊))))
105	104	oveq1d 7373	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐸 + 1) + (♯‘𝑊)) − 𝐸) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
106	96, 103, 105	3eqtr2d 2777	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘𝑈) = ((𝐸 + (1 + (♯‘𝑊))) − 𝐸))
107	67, 66	addcld 11151	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 + (♯‘𝑊)) ∈ ℂ)
108	102, 107	pncan2d 11494	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐸 + (1 + (♯‘𝑊))) − 𝐸) = (1 + (♯‘𝑊)))
109	67, 66	addcomd 11335	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + (♯‘𝑊)) = ((♯‘𝑊) + 1))
110	106, 108, 109	3eqtrd 2775	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) = ((♯‘𝑊) + 1))
111	66, 67, 110	mvrraddd 11549	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
112	111	oveq2d 7374	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
113	63, 112	eleqtrrd 2839	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((♯‘𝑈) − 1)))
114	2, 1, 45, 47, 113	cycpmfv1 33195	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘((^◡𝑊‘𝐽) + 1)))
115	46	fveq2i 6837	. . . . . . . . . . 11 ⊢ (𝑈‘𝐸) = (𝑈‘((^◡𝑊‘𝐽) + 1))
116	114, 115	eqtr4di 2789	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = (𝑈‘𝐸))
117	2, 1, 17, 24, 15, 30	cycpmfv3 33197	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐼) = 𝐼)
118	56, 116, 117	3eqtr4d 2781	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑊)‘𝐼))
119	72	fveq1d 6836	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)))
120		fzossfzop1 13659	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ∈ ℕ₀ → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
121	98, 120	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(𝐸 + 1)))
122		elfzonn0 13623	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
123		fzonn0p1 13658	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
124	63, 122, 123	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^((^◡𝑊‘𝐽) + 1)))
125	46	oveq2i 7369	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐸) = (0..^((^◡𝑊‘𝐽) + 1))
126	124, 125	eleqtrrdi 2847	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^𝐸))
127	121, 126	sseldd 3934	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(𝐸 + 1)))
128	90	oveq2d 7374	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))) = (0..^(𝐸 + 1)))
129	127, 128	eleqtrrd 2839	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩))))
130		ccatval1 14500	. . . . . . . . . . . . 13 ⊢ ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ∈ Word 𝐷 ∧ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩) ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)))) → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
131	77, 79, 129, 130	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩) ++ (𝑊 substr ⟨𝐸, (♯‘𝑊)⟩))‘(^◡𝑊‘𝐽)) = (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)))
132	88	oveq2d 7374	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(♯‘(𝑊 prefix 𝐸))) = (0..^𝐸))
133	126, 132	eleqtrrd 2839	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸))))
134		ccatval1 14500	. . . . . . . . . . . . 13 ⊢ (((𝑊 prefix 𝐸) ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷 ∧ (^◡𝑊‘𝐽) ∈ (0..^(♯‘(𝑊 prefix 𝐸)))) → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
135	75, 42, 133, 134	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝑊 prefix 𝐸) ++ ⟨“𝐼”⟩)‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
136	119, 131, 135	3eqtrd 2775	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)))
137		pfxfv 14606	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Word 𝐷 ∧ 𝐸 ∈ (0...(♯‘𝑊)) ∧ (^◡𝑊‘𝐽) ∈ (0..^𝐸)) → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
138	17, 86, 126, 137	syl3anc 1373	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑊 prefix 𝐸)‘(^◡𝑊‘𝐽)) = (𝑊‘(^◡𝑊‘𝐽)))
139		f1f1orn 6785	. . . . . . . . . . . . 13 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
140	24, 139	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
141		f1ocnvfv2 7223	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
142	140, 28, 141	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
143	136, 138, 142	3eqtrd 2775	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈‘(^◡𝑊‘𝐽)) = 𝐽)
144	143	fveq2d 6838	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑊‘𝐽))) = ((𝑀‘𝑈)‘𝐽))
145	55, 118, 144	3eqtr2d 2777	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
146	145	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)) = ((𝑀‘𝑈)‘𝐽))
147		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → 𝑖 = 𝐽)
148	147	fveq2d 6838	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽))
149	148	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐽)))
150	147	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐽))
151	146, 149, 150	3eqtr4d 2781	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 = 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
152	1	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝐷 ∈ 𝑉)
153	15, 29	s2cld 14794	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
154	153	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
155	15, 29, 33	s2f1 33027	. . . . . . . . . 10 ⊢ (𝜑 → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
156	155	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
157	27	sselda 3933	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ 𝐷)
158	157	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ∈ 𝐷)
159		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑊)
160	30	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ¬ 𝐼 ∈ ran 𝑊)
161		nelne2 3030	. . . . . . . . . . . . 13 ⊢ ((𝑖 ∈ ran 𝑊 ∧ ¬ 𝐼 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
162	159, 160, 161	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ≠ 𝐼)
163	162	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐼)
164		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → 𝑖 ≠ 𝐽)
165	163, 164	nelprd 4614	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ {𝐼, 𝐽})
166	15, 29	s2rn 14886	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran ⟨“𝐼𝐽”⟩ = {𝐼, 𝐽})
167	166	eleq2d 2822	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ 𝑖 ∈ {𝐼, 𝐽}))
168	167	notbid 318	. . . . . . . . . . 11 ⊢ (𝜑 → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
169	168	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
170	165, 169	mpbird 257	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
171	2, 152, 154, 156, 158, 170	cycpmfv3 33197	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
172	171	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
173	1	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐷 ∈ 𝑉)
174	7	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑊 ∈ dom 𝑀)
175	14	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
176	28	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝐽 ∈ ran 𝑊)
177		simpllr 775	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ∈ ran 𝑊)
178		simplr 768	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → 𝑖 ≠ 𝐽)
179		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → (^◡𝑈‘𝑖) ∈ (0..^𝐸))
180	2, 3, 173, 174, 175, 176, 46, 41, 177, 178, 179	cycpmco2lem7 33214	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (0..^𝐸)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
181	1	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐷 ∈ 𝑉)
182	7	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑊 ∈ dom 𝑀)
183	14	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
184	28	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝐽 ∈ ran 𝑊)
185		simpllr 775	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ∈ ran 𝑊)
186	162	ad2antrr 726	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → 𝑖 ≠ 𝐼)
187		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))
188	2, 3, 181, 182, 183, 184, 46, 41, 185, 186, 187	cycpmco2lem6 33213	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
189	1	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐷 ∈ 𝑉)
190	7	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑊 ∈ dom 𝑀)
191	14	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
192	28	ad3antrrr 730	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝐽 ∈ ran 𝑊)
193		simpllr 775	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → 𝑖 ∈ ran 𝑊)
194		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))
195	2, 3, 189, 190, 191, 192, 46, 41, 193, 194	cycpmco2lem5 33212	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) ∧ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
196		f1f1orn 6785	. . . . . . . . . . . . . . . 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 33207	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
200	198, 199	sseqtrrid 3977	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
201	200	sselda 3933	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → 𝑖 ∈ ran 𝑈)
202		f1ocnvdm 7231	. . . . . . . . . . . . . . 15 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝑖 ∈ ran 𝑈) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
203	197, 201, 202	syl2an2r 685	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ dom 𝑈)
204		wrddm 14444	. . . . . . . . . . . . . . . 16 ⊢ (𝑈 ∈ Word 𝐷 → dom 𝑈 = (0..^(♯‘𝑈)))
205	45, 204	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → dom 𝑈 = (0..^(♯‘𝑈)))
206	205	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → dom 𝑈 = (0..^(♯‘𝑈)))
207	203, 206	eleqtrd 2838	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0..^(♯‘𝑈)))
208	65	nn0zd 12513	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
209	208	peano2zd 12599	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((♯‘𝑊) + 1) ∈ ℤ)
210	110, 209	eqeltrd 2836	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑈) ∈ ℤ)
211		fzoval 13576	. . . . . . . . . . . . . . 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 2838	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (^◡𝑈‘𝑖) ∈ (0...((♯‘𝑈) − 1)))
215		elfzr 13697	. . . . . . . . . . . 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 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → 𝐸 ∈ ℤ)
219		fzospliti 13607	. . . . . . . . . . . . . 14 ⊢ (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∧ 𝐸 ∈ ℤ) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
220	217, 218, 219	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ (^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1))) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))))
221	220	ex 412	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) → ((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1)))))
222	221	orim1d 967	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^((♯‘𝑈) − 1)) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1))))
223	216, 222	mpd 15	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → (((^◡𝑈‘𝑖) ∈ (0..^𝐸) ∨ (^◡𝑈‘𝑖) ∈ (𝐸..^((♯‘𝑈) − 1))) ∨ (^◡𝑈‘𝑖) = ((♯‘𝑈) − 1)))
224		df-3or 1087	. . . . . . . . . 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 1434	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑊)‘𝑖))
228	172, 227	eqtr4d 2774	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ ran 𝑊) ∧ 𝑖 ≠ 𝐽) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
229	151, 228	pm2.61dane 3019	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
230	229	adantlr 715	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ ran 𝑊) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
231	2, 3, 1, 7, 14, 28, 46, 41	cycpmco2lem4 33211	. . . . . . . 8 ⊢ (𝜑 → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
232	231	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)) = ((𝑀‘𝑈)‘𝐼))
233		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → 𝑖 = 𝐼)
234	233	fveq2d 6838	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = ((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼))
235	234	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝐼)))
236	233	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑈)‘𝑖) = ((𝑀‘𝑈)‘𝐼))
237	232, 235, 236	3eqtr4d 2781	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 = 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
238	1	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝐷 ∈ 𝑉)
239	17	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊 ∈ Word 𝐷)
240	24	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑊:dom 𝑊–1-1→𝐷)
241		simplr 768	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ (𝐷 ∖ ran 𝑊))
242	241	eldifad 3913	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ∈ 𝐷)
243	241	eldifbd 3914	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑊)
244	2, 238, 239, 240, 242, 243	cycpmfv3 33197	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘𝑖) = 𝑖)
245	153	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩ ∈ Word 𝐷)
246	155	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ⟨“𝐼𝐽”⟩:dom ⟨“𝐼𝐽”⟩–1-1→𝐷)
247		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐼)
248		eldifn 4084	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (𝐷 ∖ ran 𝑊) → ¬ 𝑖 ∈ ran 𝑊)
249		nelne2 3030	. . . . . . . . . . . . . 14 ⊢ ((𝐽 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ ran 𝑊) → 𝐽 ≠ 𝑖)
250	28, 248, 249	syl2an 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝐽 ≠ 𝑖)
251	250	necomd 2987	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → 𝑖 ≠ 𝐽)
252	251	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑖 ≠ 𝐽)
253	247, 252	nelprd 4614	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼, 𝐽})
254	168	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → (¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩ ↔ ¬ 𝑖 ∈ {𝐼, 𝐽}))
255	253, 254	mpbird 257	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran ⟨“𝐼𝐽”⟩)
256	2, 238, 245, 246, 242, 255	cycpmfv3 33197	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖) = 𝑖)
257	256	fveq2d 6838	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑊)‘𝑖))
258	45	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈 ∈ Word 𝐷)
259	47	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → 𝑈:dom 𝑈–1-1→𝐷)
260	199	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
261		nelsn 4623	. . . . . . . . . 10 ⊢ (𝑖 ≠ 𝐼 → ¬ 𝑖 ∈ {𝐼})
262	261	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ {𝐼})
263		nelun 32588	. . . . . . . . . 10 ⊢ (ran 𝑈 = (ran 𝑊 ∪ {𝐼}) → (¬ 𝑖 ∈ ran 𝑈 ↔ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})))
264	263	biimpar 477	. . . . . . . . 9 ⊢ ((ran 𝑈 = (ran 𝑊 ∪ {𝐼}) ∧ (¬ 𝑖 ∈ ran 𝑊 ∧ ¬ 𝑖 ∈ {𝐼})) → ¬ 𝑖 ∈ ran 𝑈)
265	260, 243, 262, 264	syl12anc 836	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ¬ 𝑖 ∈ ran 𝑈)
266	2, 238, 258, 259, 242, 265	cycpmfv3 33197	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑈)‘𝑖) = 𝑖)
267	244, 257, 266	3eqtr4d 2781	. . . . . 6 ⊢ (((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) ∧ 𝑖 ≠ 𝐼) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
268	237, 267	pm2.61dane 3019	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
269	268	adantlr 715	. . . 4 ⊢ (((𝜑 ∧ 𝑖 ∈ 𝐷) ∧ 𝑖 ∈ (𝐷 ∖ ran 𝑊)) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
270		undif 4434	. . . . . . . 8 ⊢ (ran 𝑊 ⊆ 𝐷 ↔ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
271	27, 270	sylib 218	. . . . . . 7 ⊢ (𝜑 → (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) = 𝐷)
272	271	eleq2d 2822	. . . . . 6 ⊢ (𝜑 → (𝑖 ∈ (ran 𝑊 ∪ (𝐷 ∖ ran 𝑊)) ↔ 𝑖 ∈ 𝐷))
273		elun 4105	. . . . . 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 960	. . 3 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → ((𝑀‘𝑊)‘((𝑀‘⟨“𝐼𝐽”⟩)‘𝑖)) = ((𝑀‘𝑈)‘𝑖))
277	53, 276	eqtrd 2771	. 2 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐷) → (((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩))‘𝑖) = ((𝑀‘𝑈)‘𝑖))
278	40, 51, 277	eqfnfvd 6979	1 ⊢ (𝜑 → ((𝑀‘𝑊) ∘ (𝑀‘⟨“𝐼𝐽”⟩)) = (𝑀‘𝑈))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 ∨ w3o 1085 = wceq 1541 ∈ wcel 2113 ≠ wne 2932 {crab 3399 Vcvv 3440 ∖ cdif 3898 ∪ cun 3899 ⊆ wss 3901 {csn 4580 {cpr 4582 ⟨cop 4586 ⟨cotp 4588 ^◡ccnv 5623 dom cdm 5624 ran crn 5625 ∘ ccom 5628 Fn wfn 6487 ⟶wf 6488 –1-1→wf1 6489 –1-1-onto→wf1o 6491 ‘cfv 6492 (class class class)co 7358 0cc0 11026 1c1 11027 + caddc 11029 − cmin 11364 ℕ₀cn0 12401 ℤcz 12488 ...cfz 13423 ..^cfzo 13570 ♯chash 14253 Word cword 14436 ++ cconcat 14493 ⟨“cs1 14519 substr csubstr 14564 prefix cpfx 14594 splice csplice 14672 ⟨“cs2 14764 Basecbs 17136 SymGrpcsymg 19298 toCycctocyc 33188

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-cnex 11082 ax-resscn 11083 ax-1cn 11084 ax-icn 11085 ax-addcl 11086 ax-addrcl 11087 ax-mulcl 11088 ax-mulrcl 11089 ax-mulcom 11090 ax-addass 11091 ax-mulass 11092 ax-distr 11093 ax-i2m1 11094 ax-1ne0 11095 ax-1rid 11096 ax-rnegex 11097 ax-rrecex 11098 ax-cnre 11099 ax-pre-lttri 11100 ax-pre-lttrn 11101 ax-pre-ltadd 11102 ax-pre-mulgt0 11103 ax-pre-sup 11104

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-pss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-tp 4585 df-op 4587 df-ot 4589 df-uni 4864 df-int 4903 df-iun 4948 df-br 5099 df-opab 5161 df-mpt 5180 df-tr 5206 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-om 7809 df-1st 7933 df-2nd 7934 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-1o 8397 df-oadd 8401 df-er 8635 df-map 8765 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-sup 9345 df-inf 9346 df-card 9851 df-pnf 11168 df-mnf 11169 df-xr 11170 df-ltxr 11171 df-le 11172 df-sub 11366 df-neg 11367 df-div 11795 df-nn 12146 df-2 12208 df-3 12209 df-4 12210 df-5 12211 df-6 12212 df-7 12213 df-8 12214 df-9 12215 df-n0 12402 df-xnn0 12475 df-z 12489 df-uz 12752 df-rp 12906 df-fz 13424 df-fzo 13571 df-fl 13712 df-mod 13790 df-hash 14254 df-word 14437 df-concat 14494 df-s1 14520 df-substr 14565 df-pfx 14595 df-splice 14673 df-csh 14712 df-s2 14771 df-struct 17074 df-sets 17091 df-slot 17109 df-ndx 17121 df-base 17137 df-ress 17158 df-plusg 17190 df-tset 17196 df-efmnd 18794 df-symg 19299 df-tocyc 33189

This theorem is referenced by: (None)

W3C validator