Theorem cycpmco2lem7 33675

Description: Lemma for cycpmco2 33676. (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 4028	. . . . . . 7 ⊢ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ⊆ Word 𝐷
5		cycpmco2.w	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ dom 𝑀)
6		cycpmco2.s	. . . . . . . . . . 11 ⊢ 𝑆 = (SymGrp‘𝐷)
7		eqid 2761	. . . . . . . . . . 11 ⊢ (Base‘𝑆) = (Base‘𝑆)
8	1, 6, 7	tocycf 33660	. . . . . . . . . 10 ⊢ (𝐷 ∈ 𝑉 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
9	2, 8	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑀:{𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷}⟶(Base‘𝑆))
10	9	fdmd 6712	. . . . . . . 8 ⊢ (𝜑 → dom 𝑀 = {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
11	5, 10	eleqtrd 2863	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷})
12	4, 11	sselid 3929	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Word 𝐷)
13		cycpmco2.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ (𝐷 ∖ ran 𝑊))
14	13	eldifad 3911	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ 𝐷)
15	14	s1cld 14730	. . . . . 6 ⊢ (𝜑 → ⟨“𝐼”⟩ ∈ Word 𝐷)
16		splcl 14881	. . . . . 6 ⊢ ((𝑊 ∈ Word 𝐷 ∧ ⟨“𝐼”⟩ ∈ Word 𝐷) → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
17	12, 15, 16	syl2anc 596	. . . . 5 ⊢ (𝜑 → (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩) ∈ Word 𝐷)
18	3, 17	eqeltrid 2865	. . . 4 ⊢ (𝜑 → 𝑈 ∈ Word 𝐷)
19		cycpmco2.j	. . . . 5 ⊢ (𝜑 → 𝐽 ∈ ran 𝑊)
20		cycpmco2.e	. . . . 5 ⊢ 𝐸 = ((◡𝑊‘𝐽) + 1)
21	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2f1 33667	. . . 4 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1→𝐷)
22		id 23	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
23		dmeq 5885	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → dom 𝑤 = dom 𝑊)
24		eqidd 2762	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑊 → 𝐷 = 𝐷)
25	22, 23, 24	f1eq123d 6808	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 𝑊 → (𝑤:dom 𝑤–1-1→𝐷 ↔ 𝑊:dom 𝑊–1-1→𝐷))
26	25	elrab 3645	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ {𝑤 ∈ Word 𝐷 ∣ 𝑤:dom 𝑤–1-1→𝐷} ↔ (𝑊 ∈ Word 𝐷 ∧ 𝑊:dom 𝑊–1-1→𝐷))
27	11, 26	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑊 ∈ Word 𝐷 ∧ 𝑊:dom 𝑊–1-1→𝐷))
28	27	simprd 501	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1→𝐷)
29		f1cnv 6841	. . . . . . . . . . . 12 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → ◡𝑊:ran 𝑊–1-1-onto→dom 𝑊)
30		f1of 6816	. . . . . . . . . . . 12 ⊢ (◡𝑊:ran 𝑊–1-1-onto→dom 𝑊 → ◡𝑊:ran 𝑊⟶dom 𝑊)
31	28, 29, 30	3syl 19	. . . . . . . . . . 11 ⊢ (𝜑 → ◡𝑊:ran 𝑊⟶dom 𝑊)
32	31, 19	ffvelcdmd 7077	. . . . . . . . . 10 ⊢ (𝜑 → (◡𝑊‘𝐽) ∈ dom 𝑊)
33		wrddm 14646	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → dom 𝑊 = (0..^(♯‘𝑊)))
34	12, 33	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → dom 𝑊 = (0..^(♯‘𝑊)))
35	32, 34	eleqtrd 2863	. . . . . . . . 9 ⊢ (𝜑 → (◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)))
36		fzofzp1 13879	. . . . . . . . 9 ⊢ ((◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → ((◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
37	35, 36	syl 18	. . . . . . . 8 ⊢ (𝜑 → ((◡𝑊‘𝐽) + 1) ∈ (0...(♯‘𝑊)))
38	20, 37	eqeltrid 2865	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ (0...(♯‘𝑊)))
39		elfzuz3 13634	. . . . . . 7 ⊢ (𝐸 ∈ (0...(♯‘𝑊)) → (♯‘𝑊) ∈ (ℤ≥‘𝐸))
40		fzoss2 13802	. . . . . . 7 ⊢ ((♯‘𝑊) ∈ (ℤ≥‘𝐸) → (0..^𝐸) ⊆ (0..^(♯‘𝑊)))
41	38, 39, 40	3syl 19	. . . . . 6 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^(♯‘𝑊)))
42	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2lem3 33671	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝑈) − 1) = (♯‘𝑊))
43	42	oveq2d 7428	. . . . . 6 ⊢ (𝜑 → (0..^((♯‘𝑈) − 1)) = (0..^(♯‘𝑊)))
44	41, 43	sseqtrrd 3968	. . . . 5 ⊢ (𝜑 → (0..^𝐸) ⊆ (0..^((♯‘𝑈) − 1)))
45		cycpmco2lem7.3	. . . . 5 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ (0..^𝐸))
46	44, 45	sseldd 3932	. . . 4 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ (0..^((♯‘𝑈) − 1)))
47	1, 2, 18, 21, 46	cycpmfv1 33656	. . 3 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(◡𝑈‘𝐾))) = (𝑈‘((◡𝑈‘𝐾) + 1)))
48		cycpmco2lem7.1	. . . 4 ⊢ (𝜑 → 𝐾 ∈ ran 𝑊)
49		f1f1orn 6828	. . . . . . 7 ⊢ (𝑈:dom 𝑈–1-1→𝐷 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
50	21, 49	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑈:dom 𝑈–1-1-onto→ran 𝑈)
51		ssun1 4124	. . . . . . . 8 ⊢ ran 𝑊 ⊆ (ran 𝑊 ∪ {𝐼})
52	1, 6, 2, 5, 13, 19, 20, 3	cycpmco2rn 33668	. . . . . . . 8 ⊢ (𝜑 → ran 𝑈 = (ran 𝑊 ∪ {𝐼}))
53	51, 52	sseqtrrid 3974	. . . . . . 7 ⊢ (𝜑 → ran 𝑊 ⊆ ran 𝑈)
54	53	sselda 3931	. . . . . 6 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → 𝐾 ∈ ran 𝑈)
55		f1ocnvfv2 7277	. . . . . 6 ⊢ ((𝑈:dom 𝑈–1-1-onto→ran 𝑈 ∧ 𝐾 ∈ ran 𝑈) → (𝑈‘(◡𝑈‘𝐾)) = 𝐾)
56	50, 54, 55	syl2an2r 698	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → (𝑈‘(◡𝑈‘𝐾)) = 𝐾)
57	56	fveq2d 6881	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ ran 𝑊) → ((𝑀‘𝑈)‘(𝑈‘(◡𝑈‘𝐾))) = ((𝑀‘𝑈)‘𝐾))
58	48, 57	mpdan 700	. . 3 ⊢ (𝜑 → ((𝑀‘𝑈)‘(𝑈‘(◡𝑈‘𝐾))) = ((𝑀‘𝑈)‘𝐾))
59		f1f1orn 6828	. . . . . . . 8 ⊢ (𝑊:dom 𝑊–1-1→𝐷 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
60	28, 59	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑊:dom 𝑊–1-1-onto→ran 𝑊)
61	41, 34	sseqtrrd 3968	. . . . . . . 8 ⊢ (𝜑 → (0..^𝐸) ⊆ dom 𝑊)
62	61, 45	sseldd 3932	. . . . . . 7 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ dom 𝑊)
63		f1ocnvfv1 7276	. . . . . . 7 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ (◡𝑈‘𝐾) ∈ dom 𝑊) → (◡𝑊‘(𝑊‘(◡𝑈‘𝐾))) = (◡𝑈‘𝐾))
64	60, 62, 63	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (◡𝑊‘(𝑊‘(◡𝑈‘𝐾))) = (◡𝑈‘𝐾))
65	3	fveq1i 6878	. . . . . . . . 9 ⊢ (𝑈‘(◡𝑈‘𝐾)) = ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘(◡𝑈‘𝐾))
66		fz0ssnn0 13736	. . . . . . . . . . . 12 ⊢ (0...(♯‘𝑊)) ⊆ ℕ0
67	66, 38	sselid 3929	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ ℕ0)
68		nn0fz0 13739	. . . . . . . . . . 11 ⊢ (𝐸 ∈ ℕ0 ↔ 𝐸 ∈ (0...𝐸))
69	67, 68	sylib 221	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ (0...𝐸))
70	12, 69, 38, 15, 45	splfv1 14884	. . . . . . . . 9 ⊢ (𝜑 → ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘(◡𝑈‘𝐾)) = (𝑊‘(◡𝑈‘𝐾)))
71	65, 70	eqtrid 2808	. . . . . . . 8 ⊢ (𝜑 → (𝑈‘(◡𝑈‘𝐾)) = (𝑊‘(◡𝑈‘𝐾)))
72	48, 56	mpdan 700	. . . . . . . 8 ⊢ (𝜑 → (𝑈‘(◡𝑈‘𝐾)) = 𝐾)
73	71, 72	eqtr3d 2798	. . . . . . 7 ⊢ (𝜑 → (𝑊‘(◡𝑈‘𝐾)) = 𝐾)
74	73	fveq2d 6881	. . . . . 6 ⊢ (𝜑 → (◡𝑊‘(𝑊‘(◡𝑈‘𝐾))) = (◡𝑊‘𝐾))
75	64, 74	eqtr3d 2798	. . . . 5 ⊢ (𝜑 → (◡𝑈‘𝐾) = (◡𝑊‘𝐾))
76	75	oveq1d 7427	. . . 4 ⊢ (𝜑 → ((◡𝑈‘𝐾) + 1) = ((◡𝑊‘𝐾) + 1))
77	76	fveq2d 6881	. . 3 ⊢ (𝜑 → (𝑈‘((◡𝑈‘𝐾) + 1)) = (𝑈‘((◡𝑊‘𝐾) + 1)))
78	47, 58, 77	3eqtr3d 2804	. 2 ⊢ (𝜑 → ((𝑀‘𝑈)‘𝐾) = (𝑈‘((◡𝑊‘𝐾) + 1)))
79	3	a1i 11	. . . . 5 ⊢ (𝜑 → 𝑈 = (𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩))
80	79	fveq1d 6879	. . . 4 ⊢ (𝜑 → (𝑈‘((◡𝑊‘𝐾) + 1)) = ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘((◡𝑊‘𝐾) + 1)))
81	38	elfzelzd 13638	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℤ)
82		simpr 490	. . . . . . . 8 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1))) → (◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
83	20	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐸 = ((◡𝑊‘𝐽) + 1))
84	83	oveq1d 7427	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 − 1) = (((◡𝑊‘𝐽) + 1) − 1))
85		elfzonn0 13822	. . . . . . . . . . . . . . . . 17 ⊢ ((◡𝑊‘𝐽) ∈ (0..^(♯‘𝑊)) → (◡𝑊‘𝐽) ∈ ℕ0)
86	35, 85	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (◡𝑊‘𝐽) ∈ ℕ0)
87	86	nn0cnd 12650	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (◡𝑊‘𝐽) ∈ ℂ)
88		1cnd 11283	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
89	87, 88	pncand 11651	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((◡𝑊‘𝐽) + 1) − 1) = (◡𝑊‘𝐽))
90	84, 89	eqtr2d 2797	. . . . . . . . . . . . 13 ⊢ (𝜑 → (◡𝑊‘𝐽) = (𝐸 − 1))
91	90	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (◡𝑊‘𝐽) = (𝐸 − 1))
92		simpr 490	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (◡𝑈‘𝐾) = (𝐸 − 1))
93	75	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (◡𝑈‘𝐾) = (◡𝑊‘𝐾))
94	91, 92, 93	3eqtr2rd 2803	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (◡𝑊‘𝐾) = (◡𝑊‘𝐽))
95	94	fveq2d 6881	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(◡𝑊‘𝐾)) = (𝑊‘(◡𝑊‘𝐽)))
96		f1ocnvfv2 7277	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐾 ∈ ran 𝑊) → (𝑊‘(◡𝑊‘𝐾)) = 𝐾)
97	60, 48, 96	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(◡𝑊‘𝐾)) = 𝐾)
98	97	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(◡𝑊‘𝐾)) = 𝐾)
99		f1ocnvfv2 7277	. . . . . . . . . . . 12 ⊢ ((𝑊:dom 𝑊–1-1-onto→ran 𝑊 ∧ 𝐽 ∈ ran 𝑊) → (𝑊‘(◡𝑊‘𝐽)) = 𝐽)
100	60, 19, 99	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊‘(◡𝑊‘𝐽)) = 𝐽)
101	100	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (𝑊‘(◡𝑊‘𝐽)) = 𝐽)
102	95, 98, 101	3eqtr3d 2804	. . . . . . . . 9 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → 𝐾 = 𝐽)
103		cycpmco2lem7.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ≠ 𝐽)
104	103	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → 𝐾 ≠ 𝐽)
105	102, 104	pm2.21ddne 3040	. . . . . . . 8 ⊢ ((𝜑 ∧ (◡𝑈‘𝐾) = (𝐸 − 1)) → (◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
106		0zd 12686	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℤ)
107		nn0p1nn 12626	. . . . . . . . . . . . . 14 ⊢ ((◡𝑊‘𝐽) ∈ ℕ0 → ((◡𝑊‘𝐽) + 1) ∈ ℕ)
108	86, 107	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((◡𝑊‘𝐽) + 1) ∈ ℕ)
109	20, 108	eqeltrid 2865	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐸 ∈ ℕ)
110		0p1e1 12444	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
111	110	fveq2i 6880	. . . . . . . . . . . . 13 ⊢ (ℤ≥‘(0 + 1)) = (ℤ≥‘1)
112		nnuz 12985	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ≥‘1)
113	111, 112	eqtr4i 2787	. . . . . . . . . . . 12 ⊢ (ℤ≥‘(0 + 1)) = ℕ
114	109, 113	eleqtrrdi 2872	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ (ℤ≥‘(0 + 1)))
115		fzosplitsnm1 13855	. . . . . . . . . . 11 ⊢ ((0 ∈ ℤ ∧ 𝐸 ∈ (ℤ≥‘(0 + 1))) → (0..^𝐸) = ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
116	106, 114, 115	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (0..^𝐸) = ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
117	45, 116	eleqtrd 2863	. . . . . . . . 9 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ ((0..^(𝐸 − 1)) ∪ {(𝐸 − 1)}))
118		fvex 6890	. . . . . . . . . 10 ⊢ (◡𝑈‘𝐾) ∈ V
119		elunsn 4644	. . . . . . . . . 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 221	. . . . . . . 8 ⊢ (𝜑 → ((◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)) ∨ (◡𝑈‘𝐾) = (𝐸 − 1)))
122	82, 105, 121	mpjaodan 973	. . . . . . 7 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1)))
123		elfzom1elp1fzo 13847	. . . . . . 7 ⊢ ((𝐸 ∈ ℤ ∧ (◡𝑈‘𝐾) ∈ (0..^(𝐸 − 1))) → ((◡𝑈‘𝐾) + 1) ∈ (0..^𝐸))
124	81, 122, 123	syl2anc 596	. . . . . 6 ⊢ (𝜑 → ((◡𝑈‘𝐾) + 1) ∈ (0..^𝐸))
125	76, 124	eqeltrrd 2862	. . . . 5 ⊢ (𝜑 → ((◡𝑊‘𝐾) + 1) ∈ (0..^𝐸))
126	12, 69, 38, 15, 125	splfv1 14884	. . . 4 ⊢ (𝜑 → ((𝑊 splice ⟨𝐸, 𝐸, ⟨“𝐼”⟩⟩)‘((◡𝑊‘𝐾) + 1)) = (𝑊‘((◡𝑊‘𝐾) + 1)))
127	80, 126	eqtrd 2796	. . 3 ⊢ (𝜑 → (𝑈‘((◡𝑊‘𝐾) + 1)) = (𝑊‘((◡𝑊‘𝐾) + 1)))
128		1zzd 12708	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℤ)
129	81, 128	zsubcld 12789	. . . . . . . 8 ⊢ (𝜑 → (𝐸 − 1) ∈ ℤ)
130		lencl 14658	. . . . . . . . . . 11 ⊢ (𝑊 ∈ Word 𝐷 → (♯‘𝑊) ∈ ℕ0)
131		nn0fz0 13739	. . . . . . . . . . . 12 ⊢ ((♯‘𝑊) ∈ ℕ0 ↔ (♯‘𝑊) ∈ (0...(♯‘𝑊)))
132	131	biimpi 219	. . . . . . . . . . 11 ⊢ ((♯‘𝑊) ∈ ℕ0 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
133	12, 130, 132	3syl 19	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝑊) ∈ (0...(♯‘𝑊)))
134	133	elfzelzd 13638	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝑊) ∈ ℤ)
135	134, 128	zsubcld 12789	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝑊) − 1) ∈ ℤ)
136	109	nnred 12331	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ ℝ)
137	134	zred 12784	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝑊) ∈ ℝ)
138		1red 11290	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℝ)
139		elfzle2 13641	. . . . . . . . . 10 ⊢ (𝐸 ∈ (0...(♯‘𝑊)) → 𝐸 ≤ (♯‘𝑊))
140	38, 139	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ≤ (♯‘𝑊))
141	136, 137, 138, 140	lesub1dd 11913	. . . . . . . 8 ⊢ (𝜑 → (𝐸 − 1) ≤ ((♯‘𝑊) − 1))
142		eluz 12960	. . . . . . . . 9 ⊢ (((𝐸 − 1) ∈ ℤ ∧ ((♯‘𝑊) − 1) ∈ ℤ) → (((♯‘𝑊) − 1) ∈ (ℤ≥‘(𝐸 − 1)) ↔ (𝐸 − 1) ≤ ((♯‘𝑊) − 1)))
143	142	biimpar 483	. . . . . . . 8 ⊢ ((((𝐸 − 1) ∈ ℤ ∧ ((♯‘𝑊) − 1) ∈ ℤ) ∧ (𝐸 − 1) ≤ ((♯‘𝑊) − 1)) → ((♯‘𝑊) − 1) ∈ (ℤ≥‘(𝐸 − 1)))
144	129, 135, 141, 143	syl21anc 851	. . . . . . 7 ⊢ (𝜑 → ((♯‘𝑊) − 1) ∈ (ℤ≥‘(𝐸 − 1)))
145		fzoss2 13802	. . . . . . 7 ⊢ (((♯‘𝑊) − 1) ∈ (ℤ≥‘(𝐸 − 1)) → (0..^(𝐸 − 1)) ⊆ (0..^((♯‘𝑊) − 1)))
146	144, 145	syl 18	. . . . . 6 ⊢ (𝜑 → (0..^(𝐸 − 1)) ⊆ (0..^((♯‘𝑊) − 1)))
147	146, 122	sseldd 3932	. . . . 5 ⊢ (𝜑 → (◡𝑈‘𝐾) ∈ (0..^((♯‘𝑊) − 1)))
148	75, 147	eqeltrrd 2862	. . . 4 ⊢ (𝜑 → (◡𝑊‘𝐾) ∈ (0..^((♯‘𝑊) − 1)))
149	1, 2, 12, 28, 148	cycpmfv1 33656	. . 3 ⊢ (𝜑 → ((𝑀‘𝑊)‘(𝑊‘(◡𝑊‘𝐾))) = (𝑊‘((◡𝑊‘𝐾) + 1)))
150	97	fveq2d 6881	. . 3 ⊢ (𝜑 → ((𝑀‘𝑊)‘(𝑊‘(◡𝑊‘𝐾))) = ((𝑀‘𝑊)‘𝐾))
151	127, 149, 150	3eqtr2rd 2803	. 2 ⊢ (𝜑 → ((𝑀‘𝑊)‘𝐾) = (𝑈‘((◡𝑊‘𝐾) + 1)))
152	78, 151	eqtr4d 2799	1 ⊢ (𝜑 → ((𝑀‘𝑈)‘𝐾) = ((𝑀‘𝑊)‘𝐾))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2145   ≠ wne 2956  {crab 3413  Vcvv 3451   ∖ cdif 3896   ∪ cun 3897   ⊆ wss 3899  {csn 4584  ⟨cotp 4592   class class class wbr 5103  ^◡ccnv 5650  dom cdm 5651  ran crn 5652  ⟶wf 6527  –1-1→wf1 6528  –1-1-onto→wf1o 6530  ‘cfv 6531  (class class class)co 7412  0cc0 11181  1c1 11182   + caddc 11184   ≤ cle 11325   − cmin 11522  ℕcn 12316  ℕ₀cn0 12587  ℤcz 12674  ℤ_≥cuz 12946  ...cfz 13620  ..^cfzo 13768  ♯chash 14454  Word cword 14638  ⟨“cs1 14722   splice csplice 14878  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-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-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-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:  cycpmco2  33676