cycpmco2lem7 - Mathbox for Thierry Arnoux

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

Theorem cycpmco2lem7 32279

Description: Lemma for cycpmco2 32280. (Contributed by Thierry Arnoux, 4-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 ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
cycpmco2lem7.1	⊢ (𝜑 → 𝐾 ∈ ran 𝑊)
cycpmco2lem7.2	⊢ (𝜑 → 𝐾 ≠ 𝐽)
cycpmco2lem7.3	⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ (0..^𝐸))

**Assertion**
Ref	Expression
cycpmco2lem7	⊢ (𝜑 → ((𝑀‘𝑈)‘𝐾) = ((𝑀‘𝑊)‘𝐾))

Proof of Theorem cycpmco2lem7 Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		cycpmco2.c	. . . 4 ⊢ 𝑀 = (toCyc‘𝐷)
2		cycpmco2.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ 𝑉)
3		cycpmco2.1	. . . . 5 ⊢ 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)
4		ssrab2 4077	. . . . . . 7 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
5		cycpmco2.w	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ dom 𝑀)
6		cycpmco2.s	. . . . . . . . . . 11 ⊢ 𝑆 = (SymGrp‘𝐷)
7		eqid 2733	. . . . . . . . . . 11 ⊢ (Base‘𝑆) = (Base‘𝑆)
8	1, 6, 7	tocycf 32264	. . . . . . . . . 10 ⊢ (𝐷 ∈ 𝑉 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
9	2, 8	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
10	9	fdmd 6726	. . . . . . . 8 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
11	5, 10	eleqtrd 2836	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
12	4, 11	sselid 3980	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
13		cycpmco2.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
14	13	eldifad 3960	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
15	14	s1cld 14550	. . . . . 6 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
16		splcl 14699	. . . . . 6 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
17	12, 15, 16	syl2anc 585	. . . . 5 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
18	3, 17	eqeltrid 2838	. . . 4 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
19		cycpmco2.j	. . . . 5 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
20		cycpmco2.e	. . . . 5 ⊢ 𝐸 = ((^◡𝑊‘𝐽) + 1)
21	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2f1 32271	. . . 4 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
22		id 22	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
23		dmeq 5902	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
24		eqidd 2734	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
25	22, 23, 24	f1eq123d 6823	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
26	25	elrab 3683	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ (𝑊 ∈ Word 𝐷 ∧ 𝑊:dom 𝑊–1-1→𝐷))
27	11, 26	sylib 217	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑊 ∈ Word 𝐷 ∧ 𝑊:dom 𝑊–1-1→𝐷))
28	27	simprd 497	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
29		f1cnv 6855	. . . . . . . . . . . 12 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
30		f1of 6831	. . . . . . . . . . . 12 ⊢ (^◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
31	28, 29, 30	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ^◡𝑊:ran 𝑊⟶dom 𝑊)
32	31, 19	ffvelcdmd 7085	. . . . . . . . . 10 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ dom 𝑊)
33		wrddm 14468	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
34	12, 33	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
35	32, 34	eleqtrd 2836	. . . . . . . . 9 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
36		fzofzp1 13726	. . . . . . . . 9 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
37	35, 36	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
38	20, 37	eqeltrid 2838	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
39		elfzuz3 13495	. . . . . . 7 ⊢ (𝐸 ∈ (0...(♯‘𝑊)) → (♯‘𝑊) ∈ (ℤ_≥‘𝐸))
40		fzoss2 13657	. . . . . . 7 ⊢ ((♯‘𝑊) ∈ (ℤ_≥‘𝐸) → (0..^𝐸) ⊆ (0..^(♯‘𝑊)))
41	38, 39, 40	3syl 18	. . . . . 6 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(♯‘𝑊)))
42	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2lem3 32275	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
43	42	oveq2d 7422	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
44	41, 43	sseqtrrd 4023	. . . . 5 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^((♯‘𝑈) − 1)))
45		cycpmco2lem7.3	. . . . 5 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ (0..^𝐸))
46	44, 45	sseldd 3983	. . . 4 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ (0..^((♯‘𝑈) − 1)))
47	1, 2, 18, 21, 46	cycpmfv1 32260	. . 3 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑈‘𝐾))) = (𝑈‘((^◡𝑈‘𝐾) + 1)))
48		cycpmco2lem7.1	. . . 4 ⊢ (𝜑 → 𝐾 ∈ ran 𝑊)
49		f1f1orn 6842	. . . . . . 7 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
50	21, 49	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
51		ssun1 4172	. . . . . . . 8 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
52	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2rn 32272	. . . . . . . 8 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
53	51, 52	sseqtrrid 4035	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
54	53	sselda 3982	. . . . . 6 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → 𝐾 ∈ ran 𝑈)
55		f1ocnvfv2 7272	. . . . . 6 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝐾 ∈ ran 𝑈) → (𝑈‘(^◡𝑈‘𝐾)) = 𝐾)
56	50, 54, 55	syl2an2r 684	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → (𝑈‘(^◡𝑈‘𝐾)) = 𝐾)
57	56	fveq2d 6893	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑈‘𝐾))) = ((𝑀‘𝑈)‘𝐾))
58	48, 57	mpdan 686	. . 3 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(^◡𝑈‘𝐾))) = ((𝑀‘𝑈)‘𝐾))
59		f1f1orn 6842	. . . . . . . 8 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
60	28, 59	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
61	41, 34	sseqtrrd 4023	. . . . . . . 8 ⊢ (𝜑 → (0..^𝐸) ⊆ dom 𝑊)
62	61, 45	sseldd 3983	. . . . . . 7 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ dom 𝑊)
63		f1ocnvfv1 7271	. . . . . . 7 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ (^◡𝑈‘𝐾) ∈ dom 𝑊) → (^◡𝑊‘(𝑊‘(^◡𝑈‘𝐾))) = (^◡𝑈‘𝐾))
64	60, 62, 63	syl2anc 585	. . . . . 6 ⊢ (𝜑 → (^◡𝑊‘(𝑊‘(^◡𝑈‘𝐾))) = (^◡𝑈‘𝐾))
65	3	fveq1i 6890	. . . . . . . . 9 ⊢ (𝑈‘(^◡𝑈‘𝐾)) = ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘(^◡𝑈‘𝐾))
66		fz0ssnn0 13593	. . . . . . . . . . . 12 ⊢ (0...(♯‘𝑊)) ⊆ ℕ₀
67	66, 38	sselid 3980	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
68		nn0fz0 13596	. . . . . . . . . . 11 ⊢ (𝐸 ∈ ℕ₀ ↔ 𝐸 ∈ (0...𝐸))
69	67, 68	sylib 217	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ (0...𝐸))
70	12, 69, 38, 15, 45	splfv1 14702	. . . . . . . . 9 ⊢ (𝜑 → ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘(^◡𝑈‘𝐾)) = (𝑊‘(^◡𝑈‘𝐾)))
71	65, 70	eqtrid 2785	. . . . . . . 8 ⊢ (𝜑 → (𝑈‘(^◡𝑈‘𝐾)) = (𝑊‘(^◡𝑈‘𝐾)))
72	48, 56	mpdan 686	. . . . . . . 8 ⊢ (𝜑 → (𝑈‘(^◡𝑈‘𝐾)) = 𝐾)
73	71, 72	eqtr3d 2775	. . . . . . 7 ⊢ (𝜑 → (𝑊‘(^◡𝑈‘𝐾)) = 𝐾)
74	73	fveq2d 6893	. . . . . 6 ⊢ (𝜑 → (^◡𝑊‘(𝑊‘(^◡𝑈‘𝐾))) = (^◡𝑊‘𝐾))
75	64, 74	eqtr3d 2775	. . . . 5 ⊢ (𝜑 → (^◡𝑈‘𝐾) = (^◡𝑊‘𝐾))
76	75	oveq1d 7421	. . . 4 ⊢ (𝜑 → ((^◡𝑈‘𝐾) + 1) = ((^◡𝑊‘𝐾) + 1))
77	76	fveq2d 6893	. . 3 ⊢ (𝜑 → (𝑈‘((^◡𝑈‘𝐾) + 1)) = (𝑈‘((^◡𝑊‘𝐾) + 1)))
78	47, 58, 77	3eqtr3d 2781	. 2 ⊢ (𝜑 → ((𝑀‘𝑈)‘𝐾) = (𝑈‘((^◡𝑊‘𝐾) + 1)))
79	3	a1i 11	. . . . 5 ⊢ (𝜑 → 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩))
80	79	fveq1d 6891	. . . 4 ⊢ (𝜑 → (𝑈‘((^◡𝑊‘𝐾) + 1)) = ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘((^◡𝑊‘𝐾) + 1)))
81	38	elfzelzd 13499	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℤ)
82		simpr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1))) → (^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
83	20	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐸 = ((^◡𝑊‘𝐽) + 1))
84	83	oveq1d 7421	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 − 1) = (((^◡𝑊‘𝐽) + 1) − 1))
85		elfzonn0 13674	. . . . . . . . . . . . . . . . 17 ⊢ ((^◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (^◡𝑊‘𝐽) ∈ ℕ₀)
86	35, 85	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ ℕ₀)
87	86	nn0cnd 12531	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (^◡𝑊‘𝐽) ∈ ℂ)
88		1cnd 11206	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
89	87, 88	pncand 11569	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((^◡𝑊‘𝐽) + 1) − 1) = (^◡𝑊‘𝐽))
90	84, 89	eqtr2d 2774	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑊‘𝐽) = (𝐸 − 1))
91	90	adantr 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (^◡𝑊‘𝐽) = (𝐸 − 1))
92		simpr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (^◡𝑈‘𝐾) = (𝐸 − 1))
93	75	adantr 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (^◡𝑈‘𝐾) = (^◡𝑊‘𝐾))
94	91, 92, 93	3eqtr2rd 2780	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (^◡𝑊‘𝐾) = (^◡𝑊‘𝐽))
95	94	fveq2d 6893	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(^◡𝑊‘𝐾)) = (𝑊‘(^◡𝑊‘𝐽)))
96		f1ocnvfv2 7272	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐾 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐾)) = 𝐾)
97	60, 48, 96	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐾)) = 𝐾)
98	97	adantr 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(^◡𝑊‘𝐾)) = 𝐾)
99		f1ocnvfv2 7272	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
100	60, 19, 99	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
101	100	adantr 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(^◡𝑊‘𝐽)) = 𝐽)
102	95, 98, 101	3eqtr3d 2781	. . . . . . . . 9 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → 𝐾 = 𝐽)
103		cycpmco2lem7.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ≠ 𝐽)
104	103	adantr 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → 𝐾 ≠ 𝐽)
105	102, 104	pm2.21ddne 3027	. . . . . . . 8 ⊢ ((𝜑 ∧ (^◡𝑈‘𝐾) = (𝐸 − 1)) → (^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
106		0zd 12567	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℤ)
107		nn0p1nn 12508	. . . . . . . . . . . . . 14 ⊢ ((^◡𝑊‘𝐽) ∈ ℕ₀ → ((^◡𝑊‘𝐽) + 1) ∈ ℕ)
108	86, 107	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((^◡𝑊‘𝐽) + 1) ∈ ℕ)
109	20, 108	eqeltrid 2838	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐸 ∈ ℕ)
110		0p1e1 12331	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
111	110	fveq2i 6892	. . . . . . . . . . . . 13 ⊢ (ℤ_≥‘(0 + 1)) = (ℤ_≥‘1)
112		nnuz 12862	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
113	111, 112	eqtr4i 2764	. . . . . . . . . . . 12 ⊢ (ℤ_≥‘(0 + 1)) = ℕ
114	109, 113	eleqtrrdi 2845	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ (ℤ_≥‘(0 + 1)))
115		fzosplitsnm1 13704	. . . . . . . . . . 11 ⊢ ((0 ∈ ℤ ∧ 𝐸 ∈ (ℤ_≥‘(0 + 1))) → (0..^𝐸) = ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
116	106, 114, 115	syl2anc 585	. . . . . . . . . 10 ⊢ (𝜑 → (0..^𝐸) = ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
117	45, 116	eleqtrd 2836	. . . . . . . . 9 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
118		fvex 6902	. . . . . . . . . 10 ⊢ (^◡𝑈‘𝐾) ∈ V
119		elunsn 31738	. . . . . . . . . 10 ⊢ ((^◡𝑈‘𝐾) ∈ V → ((^◡𝑈‘𝐾) ∈ ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}) ↔ ((^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)) ∨ (^◡𝑈‘𝐾) = (𝐸 − 1))))
120	118, 119	ax-mp 5	. . . . . . . . 9 ⊢ ((^◡𝑈‘𝐾) ∈ ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}) ↔ ((^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)) ∨ (^◡𝑈‘𝐾) = (𝐸 − 1)))
121	117, 120	sylib 217	. . . . . . . 8 ⊢ (𝜑 → ((^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)) ∨ (^◡𝑈‘𝐾) = (𝐸 − 1)))
122	82, 105, 121	mpjaodan 958	. . . . . . 7 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
123		elfzom1elp1fzo 13696	. . . . . . 7 ⊢ ((𝐸 ∈ ℤ ∧ (^◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1))) → ((^◡𝑈‘𝐾) + 1) ∈ (0..^𝐸))
124	81, 122, 123	syl2anc 585	. . . . . 6 ⊢ (𝜑 → ((^◡𝑈‘𝐾) + 1) ∈ (0..^𝐸))
125	76, 124	eqeltrrd 2835	. . . . 5 ⊢ (𝜑 → ((^◡𝑊‘𝐾) + 1) ∈ (0..^𝐸))
126	12, 69, 38, 15, 125	splfv1 14702	. . . 4 ⊢ (𝜑 → ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘((^◡𝑊‘𝐾) + 1)) = (𝑊‘((^◡𝑊‘𝐾) + 1)))
127	80, 126	eqtrd 2773	. . 3 ⊢ (𝜑 → (𝑈‘((^◡𝑊‘𝐾) + 1)) = (𝑊‘((^◡𝑊‘𝐾) + 1)))
128		1zzd 12590	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℤ)
129	81, 128	zsubcld 12668	. . . . . . . 8 ⊢ (𝜑 → (𝐸 − 1) ∈ ℤ)
130		lencl 14480	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ₀)
131		nn0fz0 13596	. . . . . . . . . . . 12 ⊢ ((♯‘𝑊) ∈ ℕ₀ ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
132	131	biimpi 215	. . . . . . . . . . 11 ⊢ ((♯‘𝑊) ∈ ℕ₀ → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
133	12, 130, 132	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
134	133	elfzelzd 13499	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
135	134, 128	zsubcld 12668	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝑊) − 1) ∈ ℤ)
136	109	nnred 12224	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ ℝ)
137	134	zred 12663	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝑊) ∈ ℝ)
138		1red 11212	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℝ)
139		elfzle2 13502	. . . . . . . . . 10 ⊢ (𝐸 ∈ (0...(♯‘𝑊)) → 𝐸 ≤ (♯‘𝑊))
140	38, 139	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ≤ (♯‘𝑊))
141	136, 137, 138, 140	lesub1dd 11827	. . . . . . . 8 ⊢ (𝜑 → (𝐸 − 1) ≤ ((♯‘𝑊) − 1))
142		eluz 12833	. . . . . . . . 9 ⊢ (((𝐸 − 1) ∈ ℤ ∧ ((♯‘𝑊) − 1) ∈ ℤ) → (((♯‘𝑊) − 1) ∈ (ℤ_≥‘(𝐸 − 1)) ↔ (𝐸 − 1) ≤ ((♯‘𝑊) − 1)))
143	142	biimpar 479	. . . . . . . 8 ⊢ ((((𝐸 − 1) ∈ ℤ ∧ ((♯‘𝑊) − 1) ∈ ℤ) ∧ (𝐸 − 1) ≤ ((♯‘𝑊) − 1)) → ((♯‘𝑊) − 1) ∈ (ℤ_≥‘(𝐸 − 1)))
144	129, 135, 141, 143	syl21anc 837	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝑊) − 1) ∈ (ℤ_≥‘(𝐸 − 1)))
145		fzoss2 13657	. . . . . . 7 ⊢ (((♯‘𝑊) − 1) ∈ (ℤ_≥‘(𝐸 − 1)) → (0..^(𝐸 − 1)) ⊆ (0..^((♯‘𝑊) − 1)))
146	144, 145	syl 17	. . . . . 6 ⊢ (𝜑 → (0..^(𝐸 − 1)) ⊆ (0..^((♯‘𝑊) − 1)))
147	146, 122	sseldd 3983	. . . . 5 ⊢ (𝜑 → (^◡𝑈‘𝐾) ∈ (0..^((♯‘𝑊) − 1)))
148	75, 147	eqeltrrd 2835	. . . 4 ⊢ (𝜑 → (^◡𝑊‘𝐾) ∈ (0..^((♯‘𝑊) − 1)))
149	1, 2, 12, 28, 148	cycpmfv1 32260	. . 3 ⊢ (𝜑 → ((𝑀‘𝑊)‘(𝑊‘(^◡𝑊‘𝐾))) = (𝑊‘((^◡𝑊‘𝐾) + 1)))
150	97	fveq2d 6893	. . 3 ⊢ (𝜑 → ((𝑀‘𝑊)‘(𝑊‘(^◡𝑊‘𝐾))) = ((𝑀‘𝑊)‘𝐾))
151	127, 149, 150	3eqtr2rd 2780	. 2 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐾) = (𝑈‘((^◡𝑊‘𝐾) + 1)))
152	78, 151	eqtr4d 2776	1 ⊢ (𝜑 → ((𝑀‘𝑈)‘𝐾) = ((𝑀‘𝑊)‘𝐾))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 397 ∨ wo 846 = wceq 1542 ∈ wcel 2107 ≠ wne 2941 {crab 3433 Vcvv 3475 ∖ cdif 3945 ∪ cun 3946 ⊆ wss 3948 {csn 4628 ⟨cotp 4636 class class class wbr 5148 ^◡ccnv 5675 dom cdm 5676 ran crn 5677 ⟶wf 6537 –1-1→wf1 6538 –1-1-onto→wf1o 6540 ‘cfv 6541 (class class class)co 7406 0cc0 11107 1c1 11108 + caddc 11110 ≤ cle 11246 − cmin 11441 ℕcn 12209 ℕ₀cn0 12469 ℤcz 12555 ℤ_≥cuz 12819 ...cfz 13481 ..^cfzo 13624 ♯chash 14287 Word cword 14461 ⟨“cs1 14542 splice csplice 14696 Basecbs 17141 SymGrpcsymg 19229 toCycctocyc 32253

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7722 ax-cnex 11163 ax-resscn 11164 ax-1cn 11165 ax-icn 11166 ax-addcl 11167 ax-addrcl 11168 ax-mulcl 11169 ax-mulrcl 11170 ax-mulcom 11171 ax-addass 11172 ax-mulass 11173 ax-distr 11174 ax-i2m1 11175 ax-1ne0 11176 ax-1rid 11177 ax-rnegex 11178 ax-rrecex 11179 ax-cnre 11180 ax-pre-lttri 11181 ax-pre-lttrn 11182 ax-pre-ltadd 11183 ax-pre-mulgt0 11184 ax-pre-sup 11185

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-ot 4637 df-uni 4909 df-int 4951 df-iun 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6298 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6493 df-fun 6543 df-fn 6544 df-f 6545 df-f1 6546 df-fo 6547 df-f1o 6548 df-fv 6549 df-riota 7362 df-ov 7409 df-oprab 7410 df-mpo 7411 df-om 7853 df-1st 7972 df-2nd 7973 df-frecs 8263 df-wrecs 8294 df-recs 8368 df-rdg 8407 df-1o 8463 df-er 8700 df-map 8819 df-en 8937 df-dom 8938 df-sdom 8939 df-fin 8940 df-sup 9434 df-inf 9435 df-card 9931 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-div 11869 df-nn 12210 df-2 12272 df-3 12273 df-4 12274 df-5 12275 df-6 12276 df-7 12277 df-8 12278 df-9 12279 df-n0 12470 df-z 12556 df-uz 12820 df-rp 12972 df-fz 13482 df-fzo 13625 df-fl 13754 df-mod 13832 df-hash 14288 df-word 14462 df-concat 14518 df-s1 14543 df-substr 14588 df-pfx 14618 df-splice 14697 df-csh 14736 df-struct 17077 df-sets 17094 df-slot 17112 df-ndx 17124 df-base 17142 df-ress 17171 df-plusg 17207 df-tset 17213 df-efmnd 18747 df-symg 19230 df-tocyc 32254

This theorem is referenced by: cycpmco2 32280

W3C validator