Metamath Proof Explorer


Theorem psgnunilem2

Description: Lemma for psgnuni . Induction step for moving a transposition as far to the right as possible. (Contributed by Stefan O'Rear, 24-Aug-2015) (Revised by Mario Carneiro, 28-Feb-2016)

Ref Expression
Hypotheses psgnunilem2.g G = SymGrp D
psgnunilem2.t T = ran pmTrsp D
psgnunilem2.d φ D V
psgnunilem2.w φ W Word T
psgnunilem2.id φ G W = I D
psgnunilem2.l φ W = L
psgnunilem2.ix φ I 0 ..^ L
psgnunilem2.a φ A dom W I I
psgnunilem2.al φ k 0 ..^ I ¬ A dom W k I
psgnunilem2.in φ ¬ x Word T x = L 2 G x = I D
Assertion psgnunilem2 φ w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I

Proof

Step Hyp Ref Expression
1 psgnunilem2.g G = SymGrp D
2 psgnunilem2.t T = ran pmTrsp D
3 psgnunilem2.d φ D V
4 psgnunilem2.w φ W Word T
5 psgnunilem2.id φ G W = I D
6 psgnunilem2.l φ W = L
7 psgnunilem2.ix φ I 0 ..^ L
8 psgnunilem2.a φ A dom W I I
9 psgnunilem2.al φ k 0 ..^ I ¬ A dom W k I
10 psgnunilem2.in φ ¬ x Word T x = L 2 G x = I D
11 wrd0 Word T
12 splcl W Word T Word T W splice I I + 2 Word T
13 4 11 12 sylancl φ W splice I I + 2 Word T
14 13 adantr φ W I W I + 1 = I D W splice I I + 2 Word T
15 fzossfz 0 ..^ L 0 L
16 15 7 sseldi φ I 0 L
17 elfznn0 I 0 L I 0
18 16 17 syl φ I 0
19 2nn0 2 0
20 nn0addcl I 0 2 0 I + 2 0
21 18 19 20 sylancl φ I + 2 0
22 18 nn0red φ I
23 nn0addge1 I 2 0 I I + 2
24 22 19 23 sylancl φ I I + 2
25 elfz2nn0 I 0 I + 2 I 0 I + 2 0 I I + 2
26 18 21 24 25 syl3anbrc φ I 0 I + 2
27 1 2 3 4 5 6 7 8 9 psgnunilem5 φ I + 1 0 ..^ L
28 fzofzp1 I + 1 0 ..^ L I + 1 + 1 0 L
29 27 28 syl φ I + 1 + 1 0 L
30 df-2 2 = 1 + 1
31 30 oveq2i I + 2 = I + 1 + 1
32 18 nn0cnd φ I
33 1cnd φ 1
34 32 33 33 addassd φ I + 1 + 1 = I + 1 + 1
35 31 34 eqtr4id φ I + 2 = I + 1 + 1
36 6 oveq2d φ 0 W = 0 L
37 29 35 36 3eltr4d φ I + 2 0 W
38 11 a1i φ Word T
39 4 26 37 38 spllen φ W splice I I + 2 = W + - I + 2 - I
40 hash0 = 0
41 40 oveq1i I + 2 - I = 0 I + 2 - I
42 df-neg I + 2 - I = 0 I + 2 - I
43 41 42 eqtr4i I + 2 - I = I + 2 - I
44 2cn 2
45 pncan2 I 2 I + 2 - I = 2
46 32 44 45 sylancl φ I + 2 - I = 2
47 46 negeqd φ I + 2 - I = 2
48 43 47 syl5eq φ I + 2 - I = 2
49 6 48 oveq12d φ W + - I + 2 - I = L + -2
50 elfzel2 I 0 L L
51 16 50 syl φ L
52 51 zcnd φ L
53 negsub L 2 L + -2 = L 2
54 52 44 53 sylancl φ L + -2 = L 2
55 39 49 54 3eqtrd φ W splice I I + 2 = L 2
56 55 adantr φ W I W I + 1 = I D W splice I I + 2 = L 2
57 splid W Word T I 0 I + 2 I + 2 0 W W splice I I + 2 W substr I I + 2 = W
58 4 26 37 57 syl12anc φ W splice I I + 2 W substr I I + 2 = W
59 58 oveq2d φ G W splice I I + 2 W substr I I + 2 = G W
60 59 adantr φ W I W I + 1 = I D G W splice I I + 2 W substr I I + 2 = G W
61 eqid Base G = Base G
62 1 symggrp D V G Grp
63 3 62 syl φ G Grp
64 grpmnd G Grp G Mnd
65 63 64 syl φ G Mnd
66 65 adantr φ W I W I + 1 = I D G Mnd
67 2 1 61 symgtrf T Base G
68 sswrd T Base G Word T Word Base G
69 67 68 ax-mp Word T Word Base G
70 69 4 sseldi φ W Word Base G
71 70 adantr φ W I W I + 1 = I D W Word Base G
72 26 adantr φ W I W I + 1 = I D I 0 I + 2
73 37 adantr φ W I W I + 1 = I D I + 2 0 W
74 swrdcl W Word Base G W substr I I + 2 Word Base G
75 70 74 syl φ W substr I I + 2 Word Base G
76 75 adantr φ W I W I + 1 = I D W substr I I + 2 Word Base G
77 wrd0 Word Base G
78 77 a1i φ W I W I + 1 = I D Word Base G
79 6 oveq2d φ 0 ..^ W = 0 ..^ L
80 27 79 eleqtrrd φ I + 1 0 ..^ W
81 swrds2 W Word T I 0 I + 1 0 ..^ W W substr I I + 2 = ⟨“ W I W I + 1 ”⟩
82 4 18 80 81 syl3anc φ W substr I I + 2 = ⟨“ W I W I + 1 ”⟩
83 82 oveq2d φ G W substr I I + 2 = G ⟨“ W I W I + 1 ”⟩
84 wrdf W Word T W : 0 ..^ W T
85 4 84 syl φ W : 0 ..^ W T
86 79 feq2d φ W : 0 ..^ W T W : 0 ..^ L T
87 85 86 mpbid φ W : 0 ..^ L T
88 87 7 ffvelrnd φ W I T
89 67 88 sseldi φ W I Base G
90 87 27 ffvelrnd φ W I + 1 T
91 67 90 sseldi φ W I + 1 Base G
92 eqid + G = + G
93 61 92 gsumws2 G Mnd W I Base G W I + 1 Base G G ⟨“ W I W I + 1 ”⟩ = W I + G W I + 1
94 65 89 91 93 syl3anc φ G ⟨“ W I W I + 1 ”⟩ = W I + G W I + 1
95 1 61 92 symgov W I Base G W I + 1 Base G W I + G W I + 1 = W I W I + 1
96 89 91 95 syl2anc φ W I + G W I + 1 = W I W I + 1
97 83 94 96 3eqtrd φ G W substr I I + 2 = W I W I + 1
98 97 adantr φ W I W I + 1 = I D G W substr I I + 2 = W I W I + 1
99 simpr φ W I W I + 1 = I D W I W I + 1 = I D
100 1 symgid D V I D = 0 G
101 3 100 syl φ I D = 0 G
102 eqid 0 G = 0 G
103 102 gsum0 G = 0 G
104 101 103 eqtr4di φ I D = G
105 104 adantr φ W I W I + 1 = I D I D = G
106 98 99 105 3eqtrd φ W I W I + 1 = I D G W substr I I + 2 = G
107 61 66 71 72 73 76 78 106 gsumspl φ W I W I + 1 = I D G W splice I I + 2 W substr I I + 2 = G W splice I I + 2
108 5 adantr φ W I W I + 1 = I D G W = I D
109 60 107 108 3eqtr3d φ W I W I + 1 = I D G W splice I I + 2 = I D
110 fveqeq2 x = W splice I I + 2 x = L 2 W splice I I + 2 = L 2
111 oveq2 x = W splice I I + 2 G x = G W splice I I + 2
112 111 eqeq1d x = W splice I I + 2 G x = I D G W splice I I + 2 = I D
113 110 112 anbi12d x = W splice I I + 2 x = L 2 G x = I D W splice I I + 2 = L 2 G W splice I I + 2 = I D
114 113 rspcev W splice I I + 2 Word T W splice I I + 2 = L 2 G W splice I I + 2 = I D x Word T x = L 2 G x = I D
115 14 56 109 114 syl12anc φ W I W I + 1 = I D x Word T x = L 2 G x = I D
116 10 adantr φ W I W I + 1 = I D ¬ x Word T x = L 2 G x = I D
117 115 116 pm2.21dd φ W I W I + 1 = I D w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
118 117 ex φ W I W I + 1 = I D w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
119 4 adantr φ r T s T W Word T
120 simprl φ r T s T r T
121 simprr φ r T s T s T
122 120 121 s2cld φ r T s T ⟨“ rs ”⟩ Word T
123 splcl W Word T ⟨“ rs ”⟩ Word T W splice I I + 2 ⟨“ rs ”⟩ Word T
124 119 122 123 syl2anc φ r T s T W splice I I + 2 ⟨“ rs ”⟩ Word T
125 124 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W splice I I + 2 ⟨“ rs ”⟩ Word T
126 65 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G Mnd
127 70 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W Word Base G
128 26 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I I 0 I + 2
129 37 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I I + 2 0 W
130 69 122 sseldi φ r T s T ⟨“ rs ”⟩ Word Base G
131 130 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I ⟨“ rs ”⟩ Word Base G
132 75 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W substr I I + 2 Word Base G
133 simprr1 φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W I W I + 1 = r s
134 97 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W substr I I + 2 = W I W I + 1
135 65 adantr φ r T s T G Mnd
136 67 a1i φ T Base G
137 136 sselda φ r T r Base G
138 137 adantrr φ r T s T r Base G
139 136 sselda φ s T s Base G
140 139 adantrl φ r T s T s Base G
141 61 92 gsumws2 G Mnd r Base G s Base G G ⟨“ rs ”⟩ = r + G s
142 135 138 140 141 syl3anc φ r T s T G ⟨“ rs ”⟩ = r + G s
143 1 61 92 symgov r Base G s Base G r + G s = r s
144 138 140 143 syl2anc φ r T s T r + G s = r s
145 142 144 eqtrd φ r T s T G ⟨“ rs ”⟩ = r s
146 145 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G ⟨“ rs ”⟩ = r s
147 133 134 146 3eqtr4rd φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G ⟨“ rs ”⟩ = G W substr I I + 2
148 61 126 127 128 129 131 132 147 gsumspl φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W splice I I + 2 ⟨“ rs ”⟩ = G W splice I I + 2 W substr I I + 2
149 59 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W splice I I + 2 W substr I I + 2 = G W
150 5 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W = I D
151 148 149 150 3eqtrd φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W splice I I + 2 ⟨“ rs ”⟩ = I D
152 26 adantr φ r T s T I 0 I + 2
153 37 adantr φ r T s T I + 2 0 W
154 119 152 153 122 spllen φ r T s T W splice I I + 2 ⟨“ rs ”⟩ = W + ⟨“ rs ”⟩ - I + 2 - I
155 s2len ⟨“ rs ”⟩ = 2
156 155 oveq1i ⟨“ rs ”⟩ I + 2 - I = 2 I + 2 - I
157 46 oveq2d φ 2 I + 2 - I = 2 2
158 44 subidi 2 2 = 0
159 157 158 eqtrdi φ 2 I + 2 - I = 0
160 156 159 syl5eq φ ⟨“ rs ”⟩ I + 2 - I = 0
161 160 oveq2d φ W + ⟨“ rs ”⟩ - I + 2 - I = W + 0
162 6 52 eqeltrd φ W
163 162 addid1d φ W + 0 = W
164 161 163 6 3eqtrd φ W + ⟨“ rs ”⟩ - I + 2 - I = L
165 164 adantr φ r T s T W + ⟨“ rs ”⟩ - I + 2 - I = L
166 154 165 eqtrd φ r T s T W splice I I + 2 ⟨“ rs ”⟩ = L
167 166 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W splice I I + 2 ⟨“ rs ”⟩ = L
168 151 167 jca φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I G W splice I I + 2 ⟨“ rs ”⟩ = I D W splice I I + 2 ⟨“ rs ”⟩ = L
169 27 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I I + 1 0 ..^ L
170 simprr2 φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I A dom s I
171 1nn0 1 0
172 2nn 2
173 1lt2 1 < 2
174 elfzo0 1 0 ..^ 2 1 0 2 1 < 2
175 171 172 173 174 mpbir3an 1 0 ..^ 2
176 155 oveq2i 0 ..^ ⟨“ rs ”⟩ = 0 ..^ 2
177 175 176 eleqtrri 1 0 ..^ ⟨“ rs ”⟩
178 177 a1i φ r T s T 1 0 ..^ ⟨“ rs ”⟩
179 119 152 153 122 178 splfv2a φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I + 1 = ⟨“ rs ”⟩ 1
180 s2fv1 s T ⟨“ rs ”⟩ 1 = s
181 180 ad2antll φ r T s T ⟨“ rs ”⟩ 1 = s
182 179 181 eqtrd φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I + 1 = s
183 182 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W splice I I + 2 ⟨“ rs ”⟩ I + 1 = s
184 183 difeq1d φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I W splice I I + 2 ⟨“ rs ”⟩ I + 1 I = s I
185 184 dmeqd φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I = dom s I
186 170 185 eleqtrrd φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I
187 fzosplitsni I 0 j 0 ..^ I + 1 j 0 ..^ I j = I
188 nn0uz 0 = 0
189 187 188 eleq2s I 0 j 0 ..^ I + 1 j 0 ..^ I j = I
190 18 189 syl φ j 0 ..^ I + 1 j 0 ..^ I j = I
191 190 adantr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j 0 ..^ I + 1 j 0 ..^ I j = I
192 fveq2 k = j W k = W j
193 192 difeq1d k = j W k I = W j I
194 193 dmeqd k = j dom W k I = dom W j I
195 194 eleq2d k = j A dom W k I A dom W j I
196 195 notbid k = j ¬ A dom W k I ¬ A dom W j I
197 196 rspccva k 0 ..^ I ¬ A dom W k I j 0 ..^ I ¬ A dom W j I
198 9 197 sylan φ j 0 ..^ I ¬ A dom W j I
199 198 adantlr φ r T s T j 0 ..^ I ¬ A dom W j I
200 4 ad2antrr φ r T s T j 0 ..^ I W Word T
201 26 ad2antrr φ r T s T j 0 ..^ I I 0 I + 2
202 37 ad2antrr φ r T s T j 0 ..^ I I + 2 0 W
203 122 adantr φ r T s T j 0 ..^ I ⟨“ rs ”⟩ Word T
204 simpr φ r T s T j 0 ..^ I j 0 ..^ I
205 200 201 202 203 204 splfv1 φ r T s T j 0 ..^ I W splice I I + 2 ⟨“ rs ”⟩ j = W j
206 205 difeq1d φ r T s T j 0 ..^ I W splice I I + 2 ⟨“ rs ”⟩ j I = W j I
207 206 dmeqd φ r T s T j 0 ..^ I dom W splice I I + 2 ⟨“ rs ”⟩ j I = dom W j I
208 199 207 neleqtrrd φ r T s T j 0 ..^ I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
209 208 ex φ r T s T j 0 ..^ I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
210 209 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j 0 ..^ I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
211 simprr3 φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I ¬ A dom r I
212 0nn0 0 0
213 2pos 0 < 2
214 elfzo0 0 0 ..^ 2 0 0 2 0 < 2
215 212 172 213 214 mpbir3an 0 0 ..^ 2
216 215 176 eleqtrri 0 0 ..^ ⟨“ rs ”⟩
217 216 a1i φ r T s T 0 0 ..^ ⟨“ rs ”⟩
218 119 152 153 122 217 splfv2a φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I + 0 = ⟨“ rs ”⟩ 0
219 32 addid1d φ I + 0 = I
220 219 adantr φ r T s T I + 0 = I
221 220 fveq2d φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I + 0 = W splice I I + 2 ⟨“ rs ”⟩ I
222 s2fv0 r T ⟨“ rs ”⟩ 0 = r
223 222 ad2antrl φ r T s T ⟨“ rs ”⟩ 0 = r
224 218 221 223 3eqtr3d φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I = r
225 224 difeq1d φ r T s T W splice I I + 2 ⟨“ rs ”⟩ I I = r I
226 225 dmeqd φ r T s T dom W splice I I + 2 ⟨“ rs ”⟩ I I = dom r I
227 226 eleq2d φ r T s T A dom W splice I I + 2 ⟨“ rs ”⟩ I I A dom r I
228 227 adantrr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I A dom W splice I I + 2 ⟨“ rs ”⟩ I I A dom r I
229 211 228 mtbird φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ I I
230 fveq2 j = I W splice I I + 2 ⟨“ rs ”⟩ j = W splice I I + 2 ⟨“ rs ”⟩ I
231 230 difeq1d j = I W splice I I + 2 ⟨“ rs ”⟩ j I = W splice I I + 2 ⟨“ rs ”⟩ I I
232 231 dmeqd j = I dom W splice I I + 2 ⟨“ rs ”⟩ j I = dom W splice I I + 2 ⟨“ rs ”⟩ I I
233 232 eleq2d j = I A dom W splice I I + 2 ⟨“ rs ”⟩ j I A dom W splice I I + 2 ⟨“ rs ”⟩ I I
234 233 notbid j = I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ I I
235 229 234 syl5ibrcom φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j = I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
236 210 235 jaod φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j 0 ..^ I j = I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
237 191 236 sylbid φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
238 237 ralrimiv φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
239 169 186 238 3jca φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I I + 1 0 ..^ L A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
240 oveq2 w = W splice I I + 2 ⟨“ rs ”⟩ G w = G W splice I I + 2 ⟨“ rs ”⟩
241 240 eqeq1d w = W splice I I + 2 ⟨“ rs ”⟩ G w = I D G W splice I I + 2 ⟨“ rs ”⟩ = I D
242 fveqeq2 w = W splice I I + 2 ⟨“ rs ”⟩ w = L W splice I I + 2 ⟨“ rs ”⟩ = L
243 241 242 anbi12d w = W splice I I + 2 ⟨“ rs ”⟩ G w = I D w = L G W splice I I + 2 ⟨“ rs ”⟩ = I D W splice I I + 2 ⟨“ rs ”⟩ = L
244 fveq1 w = W splice I I + 2 ⟨“ rs ”⟩ w I + 1 = W splice I I + 2 ⟨“ rs ”⟩ I + 1
245 244 difeq1d w = W splice I I + 2 ⟨“ rs ”⟩ w I + 1 I = W splice I I + 2 ⟨“ rs ”⟩ I + 1 I
246 245 dmeqd w = W splice I I + 2 ⟨“ rs ”⟩ dom w I + 1 I = dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I
247 246 eleq2d w = W splice I I + 2 ⟨“ rs ”⟩ A dom w I + 1 I A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I
248 fveq1 w = W splice I I + 2 ⟨“ rs ”⟩ w j = W splice I I + 2 ⟨“ rs ”⟩ j
249 248 difeq1d w = W splice I I + 2 ⟨“ rs ”⟩ w j I = W splice I I + 2 ⟨“ rs ”⟩ j I
250 249 dmeqd w = W splice I I + 2 ⟨“ rs ”⟩ dom w j I = dom W splice I I + 2 ⟨“ rs ”⟩ j I
251 250 eleq2d w = W splice I I + 2 ⟨“ rs ”⟩ A dom w j I A dom W splice I I + 2 ⟨“ rs ”⟩ j I
252 251 notbid w = W splice I I + 2 ⟨“ rs ”⟩ ¬ A dom w j I ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
253 252 ralbidv w = W splice I I + 2 ⟨“ rs ”⟩ j 0 ..^ I + 1 ¬ A dom w j I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
254 247 253 3anbi23d w = W splice I I + 2 ⟨“ rs ”⟩ I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I I + 1 0 ..^ L A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
255 243 254 anbi12d w = W splice I I + 2 ⟨“ rs ”⟩ G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I G W splice I I + 2 ⟨“ rs ”⟩ = I D W splice I I + 2 ⟨“ rs ”⟩ = L I + 1 0 ..^ L A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I
256 255 rspcev W splice I I + 2 ⟨“ rs ”⟩ Word T G W splice I I + 2 ⟨“ rs ”⟩ = I D W splice I I + 2 ⟨“ rs ”⟩ = L I + 1 0 ..^ L A dom W splice I I + 2 ⟨“ rs ”⟩ I + 1 I j 0 ..^ I + 1 ¬ A dom W splice I I + 2 ⟨“ rs ”⟩ j I w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
257 125 168 239 256 syl12anc φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
258 257 expr φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
259 258 rexlimdvva φ r T s T W I W I + 1 = r s A dom s I ¬ A dom r I w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I
260 2 3 88 90 8 psgnunilem1 φ W I W I + 1 = I D r T s T W I W I + 1 = r s A dom s I ¬ A dom r I
261 118 259 260 mpjaod φ w Word T G w = I D w = L I + 1 0 ..^ L A dom w I + 1 I j 0 ..^ I + 1 ¬ A dom w j I