Metamath Proof Explorer


Theorem cycpmco2lem6

Description: Lemma for cycpmco2 . (Contributed by Thierry Arnoux, 4-Jan-2024)

Ref Expression
Hypotheses cycpmco2.c ⊢ M = toCyc ⁡ D
cycpmco2.s ⊢ S = SymGrp ⁡ D
cycpmco2.d ⊢ φ → D ∈ V
cycpmco2.w ⊢ φ → W ∈ dom ⁡ M
cycpmco2.i ⊢ φ → I ∈ D ∖ ran ⁡ W
cycpmco2.j ⊢ φ → J ∈ ran ⁡ W
cycpmco2.e ⊢ E = W -1 ⁡ J + 1
cycpmco2.1 ⊢ U = W splice E E ⟨“ I ”⟩
cycpmco2lem.1 ⊢ φ → K ∈ ran ⁡ W
cycpmco2lem6.2 ⊢ φ → K ≠ I
cycpmco2lem6.1 ⊢ φ → U -1 ⁡ K ∈ E ..^ U − 1
Assertion cycpmco2lem6 ⊢ φ → M ⁡ U ⁡ K = M ⁡ W ⁡ K

Proof

Step Hyp Ref Expression
1 cycpmco2.c ⊢ M = toCyc ⁡ D
2 cycpmco2.s ⊢ S = SymGrp ⁡ D
3 cycpmco2.d ⊢ φ → D ∈ V
4 cycpmco2.w ⊢ φ → W ∈ dom ⁡ M
5 cycpmco2.i ⊢ φ → I ∈ D ∖ ran ⁡ W
6 cycpmco2.j ⊢ φ → J ∈ ran ⁡ W
7 cycpmco2.e ⊢ E = W -1 ⁡ J + 1
8 cycpmco2.1 ⊢ U = W splice E E ⟨“ I ”⟩
9 cycpmco2lem.1 ⊢ φ → K ∈ ran ⁡ W
10 cycpmco2lem6.2 ⊢ φ → K ≠ I
11 cycpmco2lem6.1 ⊢ φ → U -1 ⁡ K ∈ E ..^ U − 1
12 ssrab2 ⊢ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ⊆ Word D
13 eqid ⊢ Base S = Base S
14 1 2 13 tocycf ⊢ D ∈ V → M : w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ⟶ Base S
15 3 14 syl ⊢ φ → M : w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ⟶ Base S
16 15 fdmd ⊢ φ → dom ⁡ M = w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D
17 4 16 eleqtrd ⊢ φ → W ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D
18 12 17 sselid ⊢ φ → W ∈ Word D
19 5 eldifad ⊢ φ → I ∈ D
20 19 s1cld ⊢ φ → ⟨“ I ”⟩ ∈ Word D
21 splcl ⊢ W ∈ Word D ∧ ⟨“ I ”⟩ ∈ Word D → W splice E E ⟨“ I ”⟩ ∈ Word D
22 18 20 21 syl2anc ⊢ φ → W splice E E ⟨“ I ”⟩ ∈ Word D
23 8 22 eqeltrid ⊢ φ → U ∈ Word D
24 1 2 3 4 5 6 7 8 cycpmco2f1 ⊢ φ → U : dom ⁡ U ⟶ 1-1 D
25 fz0ssnn0 ⊢ 0 … W ⊆ ℕ 0
26 id ⊢ w = W → w = W
27 dmeq ⊢ w = W → dom ⁡ w = dom ⁡ W
28 eqidd ⊢ w = W → D = D
29 26 27 28 f1eq123d ⊢ w = W → w : dom ⁡ w ⟶ 1-1 D ↔ W : dom ⁡ W ⟶ 1-1 D
30 29 elrab ⊢ W ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ↔ W ∈ Word D ∧ W : dom ⁡ W ⟶ 1-1 D
31 17 30 sylib ⊢ φ → W ∈ Word D ∧ W : dom ⁡ W ⟶ 1-1 D
32 31 simprd ⊢ φ → W : dom ⁡ W ⟶ 1-1 D
33 f1cnv ⊢ W : dom ⁡ W ⟶ 1-1 D → W -1 : ran ⁡ W ⟶ 1-1 onto dom ⁡ W
34 f1of ⊢ W -1 : ran ⁡ W ⟶ 1-1 onto dom ⁡ W → W -1 : ran ⁡ W ⟶ dom ⁡ W
35 32 33 34 3syl ⊢ φ → W -1 : ran ⁡ W ⟶ dom ⁡ W
36 35 6 ffvelcdmd ⊢ φ → W -1 ⁡ J ∈ dom ⁡ W
37 wrddm ⊢ W ∈ Word D → dom ⁡ W = 0 ..^ W
38 18 37 syl ⊢ φ → dom ⁡ W = 0 ..^ W
39 36 38 eleqtrd ⊢ φ → W -1 ⁡ J ∈ 0 ..^ W
40 fzofzp1 ⊢ W -1 ⁡ J ∈ 0 ..^ W → W -1 ⁡ J + 1 ∈ 0 … W
41 39 40 syl ⊢ φ → W -1 ⁡ J + 1 ∈ 0 … W
42 7 41 eqeltrid ⊢ φ → E ∈ 0 … W
43 25 42 sselid ⊢ φ → E ∈ ℕ 0
44 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
45 43 44 eleqtrdi ⊢ φ → E ∈ ℤ ≥ 0
46 fzoss1 ⊢ E ∈ ℤ ≥ 0 → E ..^ U − 1 ⊆ 0 ..^ U − 1
47 45 46 syl ⊢ φ → E ..^ U − 1 ⊆ 0 ..^ U − 1
48 47 11 sseldd ⊢ φ → U -1 ⁡ K ∈ 0 ..^ U − 1
49 1 3 23 24 48 cycpmfv1 ⊢ φ → M ⁡ U ⁡ U ⁡ U -1 ⁡ K = U ⁡ U -1 ⁡ K + 1
50 f1f1orn ⊢ U : dom ⁡ U ⟶ 1-1 D → U : dom ⁡ U ⟶ 1-1 onto ran ⁡ U
51 24 50 syl ⊢ φ → U : dom ⁡ U ⟶ 1-1 onto ran ⁡ U
52 ssun1 ⊢ ran ⁡ W ⊆ ran ⁡ W ∪ I
53 1 2 3 4 5 6 7 8 cycpmco2rn ⊢ φ → ran ⁡ U = ran ⁡ W ∪ I
54 52 53 sseqtrrid ⊢ φ → ran ⁡ W ⊆ ran ⁡ U
55 54 sselda ⊢ φ ∧ K ∈ ran ⁡ W → K ∈ ran ⁡ U
56 f1ocnvfv2 ⊢ U : dom ⁡ U ⟶ 1-1 onto ran ⁡ U ∧ K ∈ ran ⁡ U → U ⁡ U -1 ⁡ K = K
57 51 55 56 syl2an2r ⊢ φ ∧ K ∈ ran ⁡ W → U ⁡ U -1 ⁡ K = K
58 9 57 mpdan ⊢ φ → U ⁡ U -1 ⁡ K = K
59 58 fveq2d ⊢ φ → M ⁡ U ⁡ U ⁡ U -1 ⁡ K = M ⁡ U ⁡ K
60 8 a1i ⊢ φ → U = W splice E E ⟨“ I ”⟩
61 fzossz ⊢ E ..^ U − 1 ⊆ ℤ
62 61 11 sselid ⊢ φ → U -1 ⁡ K ∈ ℤ
63 62 zcnd ⊢ φ → U -1 ⁡ K ∈ ℂ
64 43 nn0cnd ⊢ φ → E ∈ ℂ
65 1cnd ⊢ φ → 1 ∈ ℂ
66 63 64 65 nppcan3d ⊢ φ → U -1 ⁡ K − E + 1 + E = U -1 ⁡ K + 1
67 66 eqcomd ⊢ φ → U -1 ⁡ K + 1 = U -1 ⁡ K − E + 1 + E
68 60 67 fveq12d ⊢ φ → U ⁡ U -1 ⁡ K + 1 = W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K − E + 1 + E
69 49 59 68 3eqtr3d ⊢ φ → M ⁡ U ⁡ K = W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K − E + 1 + E
70 63 64 npcand ⊢ φ → U -1 ⁡ K - E + E = U -1 ⁡ K
71 70 fveq2d ⊢ φ → W ⁡ U -1 ⁡ K - E + E = W ⁡ U -1 ⁡ K
72 nn0fz0 ⊢ E ∈ ℕ 0 ↔ E ∈ 0 … E
73 43 72 sylib ⊢ φ → E ∈ 0 … E
74 lencl ⊢ W ∈ Word D → W ∈ ℕ 0
75 18 74 syl ⊢ φ → W ∈ ℕ 0
76 75 nn0cnd ⊢ φ → W ∈ ℂ
77 ovexd ⊢ φ → W -1 ⁡ J + 1 ∈ V
78 7 77 eqeltrid ⊢ φ → E ∈ V
79 splval ⊢ W ∈ dom ⁡ M ∧ E ∈ V ∧ E ∈ V ∧ ⟨“ I ”⟩ ∈ Word D → W splice E E ⟨“ I ”⟩ = W prefix E ++ ⟨“ I ”⟩ ++ W substr E W
80 4 78 78 20 79 syl13anc ⊢ φ → W splice E E ⟨“ I ”⟩ = W prefix E ++ ⟨“ I ”⟩ ++ W substr E W
81 8 80 eqtrid ⊢ φ → U = W prefix E ++ ⟨“ I ”⟩ ++ W substr E W
82 81 fveq2d ⊢ φ → U = W prefix E ++ ⟨“ I ”⟩ ++ W substr E W
83 pfxcl ⊢ W ∈ Word D → W prefix E ∈ Word D
84 18 83 syl ⊢ φ → W prefix E ∈ Word D
85 ccatcl ⊢ W prefix E ∈ Word D ∧ ⟨“ I ”⟩ ∈ Word D → W prefix E ++ ⟨“ I ”⟩ ∈ Word D
86 84 20 85 syl2anc ⊢ φ → W prefix E ++ ⟨“ I ”⟩ ∈ Word D
87 swrdcl ⊢ W ∈ Word D → W substr E W ∈ Word D
88 18 87 syl ⊢ φ → W substr E W ∈ Word D
89 ccatlen ⊢ W prefix E ++ ⟨“ I ”⟩ ∈ Word D ∧ W substr E W ∈ Word D → W prefix E ++ ⟨“ I ”⟩ ++ W substr E W = W prefix E ++ ⟨“ I ”⟩ + W substr E W
90 86 88 89 syl2anc ⊢ φ → W prefix E ++ ⟨“ I ”⟩ ++ W substr E W = W prefix E ++ ⟨“ I ”⟩ + W substr E W
91 ccatws1len ⊢ W prefix E ∈ Word D → W prefix E ++ ⟨“ I ”⟩ = W prefix E + 1
92 18 83 91 3syl ⊢ φ → W prefix E ++ ⟨“ I ”⟩ = W prefix E + 1
93 pfxlen ⊢ W ∈ Word D ∧ E ∈ 0 … W → W prefix E = E
94 18 42 93 syl2anc ⊢ φ → W prefix E = E
95 94 oveq1d ⊢ φ → W prefix E + 1 = E + 1
96 92 95 eqtrd ⊢ φ → W prefix E ++ ⟨“ I ”⟩ = E + 1
97 nn0fz0 ⊢ W ∈ ℕ 0 ↔ W ∈ 0 … W
98 75 97 sylib ⊢ φ → W ∈ 0 … W
99 swrdlen ⊢ W ∈ Word D ∧ E ∈ 0 … W ∧ W ∈ 0 … W → W substr E W = W − E
100 18 42 98 99 syl3anc ⊢ φ → W substr E W = W − E
101 96 100 oveq12d ⊢ φ → W prefix E ++ ⟨“ I ”⟩ + W substr E W = E + 1 + W − E
102 82 90 101 3eqtrd ⊢ φ → U = E + 1 + W − E
103 43 nn0zd ⊢ φ → E ∈ ℤ
104 103 peano2zd ⊢ φ → E + 1 ∈ ℤ
105 104 zcnd ⊢ φ → E + 1 ∈ ℂ
106 105 76 64 addsubassd ⊢ φ → E + 1 + W - E = E + 1 + W − E
107 64 65 76 addassd ⊢ φ → E + 1 + W = E + 1 + W
108 107 oveq1d ⊢ φ → E + 1 + W - E = E + 1 + W - E
109 102 106 108 3eqtr2d ⊢ φ → U = E + 1 + W - E
110 65 76 addcld ⊢ φ → 1 + W ∈ ℂ
111 64 110 pncan2d ⊢ φ → E + 1 + W - E = 1 + W
112 65 76 addcomd ⊢ φ → 1 + W = W + 1
113 109 111 112 3eqtrd ⊢ φ → U = W + 1
114 76 65 113 mvrraddd ⊢ φ → U − 1 = W
115 114 oveq2d ⊢ φ → E ..^ U − 1 = E ..^ W
116 11 115 eleqtrd ⊢ φ → U -1 ⁡ K ∈ E ..^ W
117 fzosubel ⊢ U -1 ⁡ K ∈ E ..^ W ∧ E ∈ ℤ → U -1 ⁡ K − E ∈ E − E ..^ W − E
118 116 103 117 syl2anc ⊢ φ → U -1 ⁡ K − E ∈ E − E ..^ W − E
119 64 subidd ⊢ φ → E − E = 0
120 119 oveq1d ⊢ φ → E − E ..^ W − E = 0 ..^ W − E
121 118 120 eleqtrd ⊢ φ → U -1 ⁡ K − E ∈ 0 ..^ W − E
122 65 64 addcomd ⊢ φ → 1 + E = E + 1
123 s1len ⊢ ⟨“ I ”⟩ = 1
124 123 oveq2i ⊢ E + ⟨“ I ”⟩ = E + 1
125 122 124 eqtr4di ⊢ φ → 1 + E = E + ⟨“ I ”⟩
126 18 73 42 20 121 125 splfv3 ⊢ φ → W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K − E + 1 + E = W ⁡ U -1 ⁡ K - E + E
127 114 oveq1d ⊢ φ → U - 1 - 1 = W − 1
128 127 oveq2d ⊢ φ → E ..^ U - 1 - 1 = E ..^ W − 1
129 fzoss1 ⊢ E ∈ ℤ ≥ 0 → E ..^ W − 1 ⊆ 0 ..^ W − 1
130 45 129 syl ⊢ φ → E ..^ W − 1 ⊆ 0 ..^ W − 1
131 128 130 eqsstrd ⊢ φ → E ..^ U - 1 - 1 ⊆ 0 ..^ W − 1
132 f1ocnvdm ⊢ U : dom ⁡ U ⟶ 1-1 onto ran ⁡ U ∧ K ∈ ran ⁡ U → U -1 ⁡ K ∈ dom ⁡ U
133 51 55 132 syl2an2r ⊢ φ ∧ K ∈ ran ⁡ W → U -1 ⁡ K ∈ dom ⁡ U
134 9 133 mpdan ⊢ φ → U -1 ⁡ K ∈ dom ⁡ U
135 75 nn0zd ⊢ φ → W ∈ ℤ
136 135 peano2zd ⊢ φ → W + 1 ∈ ℤ
137 elfzonn0 ⊢ W -1 ⁡ J ∈ 0 ..^ W → W -1 ⁡ J ∈ ℕ 0
138 nn0p1nn ⊢ W -1 ⁡ J ∈ ℕ 0 → W -1 ⁡ J + 1 ∈ ℕ
139 39 137 138 3syl ⊢ φ → W -1 ⁡ J + 1 ∈ ℕ
140 7 139 eqeltrid ⊢ φ → E ∈ ℕ
141 140 nnred ⊢ φ → E ∈ ℝ
142 135 zred ⊢ φ → W ∈ ℝ
143 1red ⊢ φ → 1 ∈ ℝ
144 elfzle2 ⊢ E ∈ 0 … W → E ≤ W
145 42 144 syl ⊢ φ → E ≤ W
146 141 142 143 145 leadd1dd ⊢ φ → E + 1 ≤ W + 1
147 eluz2 ⊢ W + 1 ∈ ℤ ≥ E + 1 ↔ E + 1 ∈ ℤ ∧ W + 1 ∈ ℤ ∧ E + 1 ≤ W + 1
148 104 136 146 147 syl3anbrc ⊢ φ → W + 1 ∈ ℤ ≥ E + 1
149 fzoss2 ⊢ W + 1 ∈ ℤ ≥ E + 1 → 0 ..^ E + 1 ⊆ 0 ..^ W + 1
150 148 149 syl ⊢ φ → 0 ..^ E + 1 ⊆ 0 ..^ W + 1
151 fzonn0p1 ⊢ E ∈ ℕ 0 → E ∈ 0 ..^ E + 1
152 43 151 syl ⊢ φ → E ∈ 0 ..^ E + 1
153 150 152 sseldd ⊢ φ → E ∈ 0 ..^ W + 1
154 113 oveq2d ⊢ φ → 0 ..^ U = 0 ..^ W + 1
155 153 154 eleqtrrd ⊢ φ → E ∈ 0 ..^ U
156 wrddm ⊢ U ∈ Word D → dom ⁡ U = 0 ..^ U
157 23 156 syl ⊢ φ → dom ⁡ U = 0 ..^ U
158 155 157 eleqtrrd ⊢ φ → E ∈ dom ⁡ U
159 1 2 3 4 5 6 7 8 cycpmco2lem2 ⊢ φ → U ⁡ E = I
160 10 58 159 3netr4d ⊢ φ → U ⁡ U -1 ⁡ K ≠ U ⁡ E
161 f1fveq ⊢ U : dom ⁡ U ⟶ 1-1 D ∧ U -1 ⁡ K ∈ dom ⁡ U ∧ E ∈ dom ⁡ U → U ⁡ U -1 ⁡ K = U ⁡ E ↔ U -1 ⁡ K = E
162 161 necon3bid ⊢ U : dom ⁡ U ⟶ 1-1 D ∧ U -1 ⁡ K ∈ dom ⁡ U ∧ E ∈ dom ⁡ U → U ⁡ U -1 ⁡ K ≠ U ⁡ E ↔ U -1 ⁡ K ≠ E
163 162 biimp3a ⊢ U : dom ⁡ U ⟶ 1-1 D ∧ U -1 ⁡ K ∈ dom ⁡ U ∧ E ∈ dom ⁡ U ∧ U ⁡ U -1 ⁡ K ≠ U ⁡ E → U -1 ⁡ K ≠ E
164 24 134 158 160 163 syl121anc ⊢ φ → U -1 ⁡ K ≠ E
165 fzom1ne1 ⊢ U -1 ⁡ K ∈ E ..^ U − 1 ∧ U -1 ⁡ K ≠ E → U -1 ⁡ K − 1 ∈ E ..^ U - 1 - 1
166 11 164 165 syl2anc ⊢ φ → U -1 ⁡ K − 1 ∈ E ..^ U - 1 - 1
167 131 166 sseldd ⊢ φ → U -1 ⁡ K − 1 ∈ 0 ..^ W − 1
168 1 3 18 32 167 cycpmfv1 ⊢ φ → M ⁡ W ⁡ W ⁡ U -1 ⁡ K − 1 = W ⁡ U -1 ⁡ K - 1 + 1
169 63 65 64 subsub4d ⊢ φ → U -1 ⁡ K - 1 - E = U -1 ⁡ K − 1 + E
170 169 oveq1d ⊢ φ → U -1 ⁡ K - 1 - E + 1 + E = U -1 ⁡ K − 1 + E + 1 + E
171 65 64 addcld ⊢ φ → 1 + E ∈ ℂ
172 63 171 npcand ⊢ φ → U -1 ⁡ K − 1 + E + 1 + E = U -1 ⁡ K
173 170 172 eqtr2d ⊢ φ → U -1 ⁡ K = U -1 ⁡ K - 1 - E + 1 + E
174 60 173 fveq12d ⊢ φ → U ⁡ U -1 ⁡ K = W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K - 1 - E + 1 + E
175 64 76 pncan3d ⊢ φ → E + W - E = W
176 114 135 eqeltrd ⊢ φ → U − 1 ∈ ℤ
177 1zzd ⊢ φ → 1 ∈ ℤ
178 176 177 zsubcld ⊢ φ → U - 1 - 1 ∈ ℤ
179 178 zred ⊢ φ → U - 1 - 1 ∈ ℝ
180 114 142 eqeltrd ⊢ φ → U − 1 ∈ ℝ
181 180 ltm1d ⊢ φ → U - 1 - 1 < U − 1
182 181 114 breqtrd ⊢ φ → U - 1 - 1 < W
183 179 142 182 ltled ⊢ φ → U - 1 - 1 ≤ W
184 eluz1 ⊢ U - 1 - 1 ∈ ℤ → W ∈ ℤ ≥ U - 1 - 1 ↔ W ∈ ℤ ∧ U - 1 - 1 ≤ W
185 184 biimpar ⊢ U - 1 - 1 ∈ ℤ ∧ W ∈ ℤ ∧ U - 1 - 1 ≤ W → W ∈ ℤ ≥ U - 1 - 1
186 178 135 183 185 syl12anc ⊢ φ → W ∈ ℤ ≥ U - 1 - 1
187 175 186 eqeltrd ⊢ φ → E + W - E ∈ ℤ ≥ U - 1 - 1
188 fzoss2 ⊢ E + W - E ∈ ℤ ≥ U - 1 - 1 → E ..^ U - 1 - 1 ⊆ E ..^ E + W - E
189 187 188 syl ⊢ φ → E ..^ U - 1 - 1 ⊆ E ..^ E + W - E
190 189 166 sseldd ⊢ φ → U -1 ⁡ K − 1 ∈ E ..^ E + W - E
191 135 103 zsubcld ⊢ φ → W − E ∈ ℤ
192 fzosubel3 ⊢ U -1 ⁡ K − 1 ∈ E ..^ E + W - E ∧ W − E ∈ ℤ → U -1 ⁡ K - 1 - E ∈ 0 ..^ W − E
193 190 191 192 syl2anc ⊢ φ → U -1 ⁡ K - 1 - E ∈ 0 ..^ W − E
194 18 73 42 20 193 125 splfv3 ⊢ φ → W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K - 1 - E + 1 + E = W ⁡ U -1 ⁡ K − 1 - E + E
195 63 65 subcld ⊢ φ → U -1 ⁡ K − 1 ∈ ℂ
196 195 64 npcand ⊢ φ → U -1 ⁡ K − 1 - E + E = U -1 ⁡ K − 1
197 196 fveq2d ⊢ φ → W ⁡ U -1 ⁡ K − 1 - E + E = W ⁡ U -1 ⁡ K − 1
198 174 194 197 3eqtrd ⊢ φ → U ⁡ U -1 ⁡ K = W ⁡ U -1 ⁡ K − 1
199 198 58 eqtr3d ⊢ φ → W ⁡ U -1 ⁡ K − 1 = K
200 199 fveq2d ⊢ φ → M ⁡ W ⁡ W ⁡ U -1 ⁡ K − 1 = M ⁡ W ⁡ K
201 63 65 npcand ⊢ φ → U -1 ⁡ K - 1 + 1 = U -1 ⁡ K
202 201 fveq2d ⊢ φ → W ⁡ U -1 ⁡ K - 1 + 1 = W ⁡ U -1 ⁡ K
203 168 200 202 3eqtr3d ⊢ φ → M ⁡ W ⁡ K = W ⁡ U -1 ⁡ K
204 71 126 203 3eqtr4rd ⊢ φ → M ⁡ W ⁡ K = W splice E E ⟨“ I ”⟩ ⁡ U -1 ⁡ K − E + 1 + E
205 69 204 eqtr4d ⊢ φ → M ⁡ U ⁡ K = M ⁡ W ⁡ K