Metamath Proof Explorer


Theorem sticksstones10

Description: Establish mapping between strictly monotone functions and functions that sum to a fixed non-negative integer. (Contributed by metakunt, 6-Oct-2024)

Ref Expression
Hypotheses sticksstones10.1 φ N 0
sticksstones10.2 φ K
sticksstones10.3 G = b B if K = 0 1 N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
sticksstones10.4 A = g | g : 1 K + 1 0 i = 1 K + 1 g i = N
sticksstones10.5 B = f | f : 1 K 1 N + K x 1 K y 1 K x < y f x < f y
Assertion sticksstones10 φ G : B A

Proof

Step Hyp Ref Expression
1 sticksstones10.1 φ N 0
2 sticksstones10.2 φ K
3 sticksstones10.3 G = b B if K = 0 1 N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
4 sticksstones10.4 A = g | g : 1 K + 1 0 i = 1 K + 1 g i = N
5 sticksstones10.5 B = f | f : 1 K 1 N + K x 1 K y 1 K x < y f x < f y
6 2 nnne0d φ K 0
7 6 adantr φ b B K 0
8 7 neneqd φ b B ¬ K = 0
9 8 iffalsed φ b B if K = 0 1 N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
10 9 eqcomd φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 = if K = 0 1 N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
11 eleq1 N + K - b K = if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 N + K - b K 0 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 0
12 eleq1 if k = 1 b 1 1 b k - b k 1 - 1 = if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 if k = 1 b 1 1 b k - b k 1 - 1 0 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 0
13 1 nn0zd φ N
14 13 adantr φ b B N
15 2 nnzd φ K
16 15 adantr φ b B K
17 14 16 zaddcld φ b B N + K
18 5 eleq2i b B b f | f : 1 K 1 N + K x 1 K y 1 K x < y f x < f y
19 vex b V
20 feq1 f = b f : 1 K 1 N + K b : 1 K 1 N + K
21 fveq1 f = b f x = b x
22 fveq1 f = b f y = b y
23 21 22 breq12d f = b f x < f y b x < b y
24 23 imbi2d f = b x < y f x < f y x < y b x < b y
25 24 2ralbidv f = b x 1 K y 1 K x < y f x < f y x 1 K y 1 K x < y b x < b y
26 20 25 anbi12d f = b f : 1 K 1 N + K x 1 K y 1 K x < y f x < f y b : 1 K 1 N + K x 1 K y 1 K x < y b x < b y
27 19 26 elab b f | f : 1 K 1 N + K x 1 K y 1 K x < y f x < f y b : 1 K 1 N + K x 1 K y 1 K x < y b x < b y
28 18 27 bitri b B b : 1 K 1 N + K x 1 K y 1 K x < y b x < b y
29 28 bilani φ b B b : 1 K 1 N + K x 1 K y 1 K x < y b x < b y
30 29 simpld φ b B b : 1 K 1 N + K
31 1zzd φ b B 1
32 2 nnge1d φ 1 K
33 32 adantr φ b B 1 K
34 16 zred φ b B K
35 34 leidd φ b B K K
36 31 16 16 33 35 elfzd φ b B K 1 K
37 30 36 ffvelcdmd φ b B b K 1 N + K
38 elfznn b K 1 N + K b K
39 37 38 syl φ b B b K
40 39 nnzd φ b B b K
41 17 40 zsubcld φ b B N + K - b K
42 39 nnred φ b B b K
43 42 recnd φ b B b K
44 43 addridd φ b B b K + 0 = b K
45 elfzle2 b K 1 N + K b K N + K
46 37 45 syl φ b B b K N + K
47 44 46 eqbrtrd φ b B b K + 0 N + K
48 0red φ b B 0
49 17 zred φ b B N + K
50 42 48 49 leaddsub2d φ b B b K + 0 N + K 0 N + K - b K
51 47 50 mpbid φ b B 0 N + K - b K
52 41 51 jca φ b B N + K - b K 0 N + K - b K
53 elnn0z N + K - b K 0 N + K - b K 0 N + K - b K
54 52 53 sylibr φ b B N + K - b K 0
55 54 adantr φ b B k 1 K + 1 N + K - b K 0
56 55 3impa φ b B k 1 K + 1 N + K - b K 0
57 56 adantr φ b B k 1 K + 1 k = K + 1 N + K - b K 0
58 eleq1 b 1 1 = if k = 1 b 1 1 b k - b k 1 - 1 b 1 1 0 if k = 1 b 1 1 b k - b k 1 - 1 0
59 eleq1 b k - b k 1 - 1 = if k = 1 b 1 1 b k - b k 1 - 1 b k - b k 1 - 1 0 if k = 1 b 1 1 b k - b k 1 - 1 0
60 1red φ b B 1
61 60 leidd φ b B 1 1
62 31 16 31 61 33 elfzd φ b B 1 1 K
63 30 62 ffvelcdmd φ b B b 1 1 N + K
64 elfznn b 1 1 N + K b 1
65 64 nnzd b 1 1 N + K b 1
66 63 65 syl φ b B b 1
67 66 31 zsubcld φ b B b 1 1
68 1cnd φ b B 1
69 68 addridd φ b B 1 + 0 = 1
70 elfzle1 b 1 1 N + K 1 b 1
71 63 70 syl φ b B 1 b 1
72 69 71 eqbrtrd φ b B 1 + 0 b 1
73 66 zred φ b B b 1
74 60 48 73 leaddsub2d φ b B 1 + 0 b 1 0 b 1 1
75 72 74 mpbid φ b B 0 b 1 1
76 67 75 jca φ b B b 1 1 0 b 1 1
77 elnn0z b 1 1 0 b 1 1 0 b 1 1
78 76 77 sylibr φ b B b 1 1 0
79 78 adantr φ b B k 1 K + 1 b 1 1 0
80 79 3impa φ b B k 1 K + 1 b 1 1 0
81 80 adantr φ b B k 1 K + 1 ¬ k = K + 1 b 1 1 0
82 81 adantr φ b B k 1 K + 1 ¬ k = K + 1 k = 1 b 1 1 0
83 30 3adant3 φ b B k 1 K + 1 b : 1 K 1 N + K
84 83 adantr φ b B k 1 K + 1 ¬ k = K + 1 b : 1 K 1 N + K
85 1zzd φ b B k 1 K + 1 ¬ k = K + 1 1
86 16 3adant3 φ b B k 1 K + 1 K
87 86 adantr φ b B k 1 K + 1 ¬ k = K + 1 K
88 simp3 φ b B k 1 K + 1 k 1 K + 1
89 elfznn k 1 K + 1 k
90 88 89 syl φ b B k 1 K + 1 k
91 90 adantr φ b B k 1 K + 1 ¬ k = K + 1 k
92 91 nnzd φ b B k 1 K + 1 ¬ k = K + 1 k
93 91 nnge1d φ b B k 1 K + 1 ¬ k = K + 1 1 k
94 elfzle2 k 1 K + 1 k K + 1
95 88 94 syl φ b B k 1 K + 1 k K + 1
96 95 adantr φ b B k 1 K + 1 ¬ k = K + 1 k K + 1
97 neqne ¬ k = K + 1 k K + 1
98 97 adantl φ b B k 1 K + 1 ¬ k = K + 1 k K + 1
99 98 necomd φ b B k 1 K + 1 ¬ k = K + 1 K + 1 k
100 96 99 jca φ b B k 1 K + 1 ¬ k = K + 1 k K + 1 K + 1 k
101 91 nnred φ b B k 1 K + 1 ¬ k = K + 1 k
102 87 zred φ b B k 1 K + 1 ¬ k = K + 1 K
103 1red φ b B k 1 K + 1 ¬ k = K + 1 1
104 102 103 readdcld φ b B k 1 K + 1 ¬ k = K + 1 K + 1
105 101 104 ltlend φ b B k 1 K + 1 ¬ k = K + 1 k < K + 1 k K + 1 K + 1 k
106 100 105 mpbird φ b B k 1 K + 1 ¬ k = K + 1 k < K + 1
107 90 nnzd φ b B k 1 K + 1 k
108 zleltp1 k K k K k < K + 1
109 107 86 108 syl2anc φ b B k 1 K + 1 k K k < K + 1
110 109 adantr φ b B k 1 K + 1 ¬ k = K + 1 k K k < K + 1
111 106 110 mpbird φ b B k 1 K + 1 ¬ k = K + 1 k K
112 85 87 92 93 111 elfzd φ b B k 1 K + 1 ¬ k = K + 1 k 1 K
113 84 112 ffvelcdmd φ b B k 1 K + 1 ¬ k = K + 1 b k 1 N + K
114 elfznn b k 1 N + K b k
115 113 114 syl φ b B k 1 K + 1 ¬ k = K + 1 b k
116 115 nnzd φ b B k 1 K + 1 ¬ k = K + 1 b k
117 116 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k
118 84 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b : 1 K 1 N + K
119 1zzd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1
120 87 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 K
121 92 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k
122 121 119 zsubcld φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1
123 93 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 k
124 neqne ¬ k = 1 k 1
125 124 adantl φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1
126 123 125 jca φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 k k 1
127 103 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1
128 101 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k
129 127 128 ltlend φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 < k 1 k k 1
130 126 129 mpbird φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 < k
131 119 121 zltlem1d φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 < k 1 k 1
132 130 131 mpbid φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 k 1
133 90 nnred φ b B k 1 K + 1 k
134 60 3adant3 φ b B k 1 K + 1 1
135 34 3adant3 φ b B k 1 K + 1 K
136 lesubadd k 1 K k 1 K k K + 1
137 133 134 135 136 syl3anc φ b B k 1 K + 1 k 1 K k K + 1
138 95 137 mpbird φ b B k 1 K + 1 k 1 K
139 138 adantr φ b B k 1 K + 1 ¬ k = K + 1 k 1 K
140 139 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 K
141 119 120 122 132 140 elfzd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 1 K
142 118 141 ffvelcdmd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1 1 N + K
143 elfznn b k 1 1 N + K b k 1
144 142 143 syl φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1
145 144 nnzd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1
146 117 145 zsubcld φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k b k 1
147 146 119 zsubcld φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k - b k 1 - 1
148 0p1e1 0 + 1 = 1
149 148 a1i φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0 + 1 = 1
150 1cnd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1
151 150 subidd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 1 = 0
152 145 zred φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1
153 152 recnd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1
154 153 addridd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1 + 0 = b k 1
155 128 ltm1d φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 < k
156 112 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 K
157 141 156 jca φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 1 K k 1 K
158 29 simprd φ b B x 1 K y 1 K x < y b x < b y
159 158 3adant3 φ b B k 1 K + 1 x 1 K y 1 K x < y b x < b y
160 159 adantr φ b B k 1 K + 1 ¬ k = K + 1 x 1 K y 1 K x < y b x < b y
161 160 adantr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 x 1 K y 1 K x < y b x < b y
162 breq1 x = k 1 x < y k 1 < y
163 fveq2 x = k 1 b x = b k 1
164 163 breq1d x = k 1 b x < b y b k 1 < b y
165 162 164 imbi12d x = k 1 x < y b x < b y k 1 < y b k 1 < b y
166 breq2 y = k k 1 < y k 1 < k
167 fveq2 y = k b y = b k
168 167 breq2d y = k b k 1 < b y b k 1 < b k
169 166 168 imbi12d y = k k 1 < y b k 1 < b y k 1 < k b k 1 < b k
170 165 169 rspc2va k 1 1 K k 1 K x 1 K y 1 K x < y b x < b y k 1 < k b k 1 < b k
171 157 161 170 syl2anc φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 k 1 < k b k 1 < b k
172 155 171 mpd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1 < b k
173 154 172 eqbrtrd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1 + 0 < b k
174 0red φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0
175 117 zred φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k
176 152 174 175 ltaddsub2d φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k 1 + 0 < b k 0 < b k b k 1
177 173 176 mpbid φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0 < b k b k 1
178 151 177 eqbrtrd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 1 < b k b k 1
179 zlem1lt 1 b k b k 1 1 b k b k 1 1 1 < b k b k 1
180 119 146 179 syl2anc φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 b k b k 1 1 1 < b k b k 1
181 178 180 mpbird φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 1 b k b k 1
182 149 181 eqbrtrd φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0 + 1 b k b k 1
183 146 zred φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k b k 1
184 leaddsub 0 1 b k b k 1 0 + 1 b k b k 1 0 b k - b k 1 - 1
185 174 127 183 184 syl3anc φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0 + 1 b k b k 1 0 b k - b k 1 - 1
186 182 185 mpbid φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 0 b k - b k 1 - 1
187 147 186 jca φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k - b k 1 - 1 0 b k - b k 1 - 1
188 elnn0z b k - b k 1 - 1 0 b k - b k 1 - 1 0 b k - b k 1 - 1
189 187 188 sylibr φ b B k 1 K + 1 ¬ k = K + 1 ¬ k = 1 b k - b k 1 - 1 0
190 58 59 82 189 ifbothda φ b B k 1 K + 1 ¬ k = K + 1 if k = 1 b 1 1 b k - b k 1 - 1 0
191 11 12 57 190 ifbothda φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 0
192 191 3expa φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 0
193 192 fmpttd φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 : 1 K + 1 0
194 eqidd φ b B i 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
195 simpr φ b B i 1 K + 1 k = i k = i
196 195 eqeq1d φ b B i 1 K + 1 k = i k = K + 1 i = K + 1
197 195 eqeq1d φ b B i 1 K + 1 k = i k = 1 i = 1
198 195 fveq2d φ b B i 1 K + 1 k = i b k = b i
199 195 fvoveq1d φ b B i 1 K + 1 k = i b k 1 = b i 1
200 198 199 oveq12d φ b B i 1 K + 1 k = i b k b k 1 = b i b i 1
201 200 oveq1d φ b B i 1 K + 1 k = i b k - b k 1 - 1 = b i - b i 1 - 1
202 197 201 ifbieq2d φ b B i 1 K + 1 k = i if k = 1 b 1 1 b k - b k 1 - 1 = if i = 1 b 1 1 b i - b i 1 - 1
203 196 202 ifbieq2d φ b B i 1 K + 1 k = i if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 = if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
204 simpr φ b B i 1 K + 1 i 1 K + 1
205 ovexd φ b B i 1 K + 1 N + K - b K V
206 ovexd φ b B i 1 K + 1 b 1 1 V
207 ovexd φ b B i 1 K + 1 b i - b i 1 - 1 V
208 206 207 ifcld φ b B i 1 K + 1 if i = 1 b 1 1 b i - b i 1 - 1 V
209 205 208 ifcld φ b B i 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 V
210 194 203 204 209 fvmptd φ b B i 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
211 210 sumeq2dv φ b B i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = i = 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
212 2 adantr φ b B K
213 nnuz = 1
214 212 213 eleqtrdi φ b B K 1
215 eleq1 N + K - b K = if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 N + K - b K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
216 eleq1 if i = 1 b 1 1 b i - b i 1 - 1 = if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 if i = 1 b 1 1 b i - b i 1 - 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
217 14 3adant3 φ b B i 1 K + 1 N
218 217 adantr φ b B i 1 K + 1 i = K + 1 N
219 16 3adant3 φ b B i 1 K + 1 K
220 219 adantr φ b B i 1 K + 1 i = K + 1 K
221 218 220 zaddcld φ b B i 1 K + 1 i = K + 1 N + K
222 39 3adant3 φ b B i 1 K + 1 b K
223 222 adantr φ b B i 1 K + 1 i = K + 1 b K
224 223 nnzd φ b B i 1 K + 1 i = K + 1 b K
225 221 224 zsubcld φ b B i 1 K + 1 i = K + 1 N + K - b K
226 eleq1 b 1 1 = if i = 1 b 1 1 b i - b i 1 - 1 b 1 1 if i = 1 b 1 1 b i - b i 1 - 1
227 eleq1 b i - b i 1 - 1 = if i = 1 b 1 1 b i - b i 1 - 1 b i - b i 1 - 1 if i = 1 b 1 1 b i - b i 1 - 1
228 66 3adant3 φ b B i 1 K + 1 b 1
229 228 adantr φ b B i 1 K + 1 ¬ i = K + 1 b 1
230 229 adantr φ b B i 1 K + 1 ¬ i = K + 1 i = 1 b 1
231 1zzd φ b B i 1 K + 1 ¬ i = K + 1 i = 1 1
232 230 231 zsubcld φ b B i 1 K + 1 ¬ i = K + 1 i = 1 b 1 1
233 30 3adant3 φ b B i 1 K + 1 b : 1 K 1 N + K
234 233 adantr φ b B i 1 K + 1 ¬ i = K + 1 b : 1 K 1 N + K
235 234 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b : 1 K 1 N + K
236 1zzd φ b B i 1 K + 1 ¬ i = K + 1 1
237 219 adantr φ b B i 1 K + 1 ¬ i = K + 1 K
238 elfznn i 1 K + 1 i
239 238 adantl φ b B i 1 K + 1 i
240 239 3impa φ b B i 1 K + 1 i
241 240 nnzd φ b B i 1 K + 1 i
242 241 adantr φ b B i 1 K + 1 ¬ i = K + 1 i
243 240 nnge1d φ b B i 1 K + 1 1 i
244 243 adantr φ b B i 1 K + 1 ¬ i = K + 1 1 i
245 simp3 φ b B i 1 K + 1 i 1 K + 1
246 elfzle2 i 1 K + 1 i K + 1
247 245 246 syl φ b B i 1 K + 1 i K + 1
248 247 adantr φ b B i 1 K + 1 ¬ i = K + 1 i K + 1
249 neqne ¬ i = K + 1 i K + 1
250 249 adantl φ b B i 1 K + 1 ¬ i = K + 1 i K + 1
251 250 necomd φ b B i 1 K + 1 ¬ i = K + 1 K + 1 i
252 248 251 jca φ b B i 1 K + 1 ¬ i = K + 1 i K + 1 K + 1 i
253 242 zred φ b B i 1 K + 1 ¬ i = K + 1 i
254 237 zred φ b B i 1 K + 1 ¬ i = K + 1 K
255 1red φ b B i 1 K + 1 ¬ i = K + 1 1
256 254 255 readdcld φ b B i 1 K + 1 ¬ i = K + 1 K + 1
257 253 256 ltlend φ b B i 1 K + 1 ¬ i = K + 1 i < K + 1 i K + 1 K + 1 i
258 252 257 mpbird φ b B i 1 K + 1 ¬ i = K + 1 i < K + 1
259 zleltp1 i K i K i < K + 1
260 242 237 259 syl2anc φ b B i 1 K + 1 ¬ i = K + 1 i K i < K + 1
261 258 260 mpbird φ b B i 1 K + 1 ¬ i = K + 1 i K
262 236 237 242 244 261 elfzd φ b B i 1 K + 1 ¬ i = K + 1 i 1 K
263 262 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1 K
264 235 263 ffvelcdmd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i 1 N + K
265 elfznn b i 1 N + K b i
266 264 265 syl φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i
267 266 nnzd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i
268 1zzd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1
269 237 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 K
270 242 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i
271 270 268 zsubcld φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1
272 244 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 i
273 neqne ¬ i = 1 i 1
274 273 adantl φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1
275 272 274 jca φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 i i 1
276 1red φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1
277 270 zred φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i
278 276 277 ltlend φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 < i 1 i i 1
279 275 278 mpbird φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 < i
280 zltp1le 1 i 1 < i 1 + 1 i
281 268 270 280 syl2anc φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 < i 1 + 1 i
282 279 281 mpbid φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 + 1 i
283 leaddsub 1 1 i 1 + 1 i 1 i 1
284 276 276 277 283 syl3anc φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 + 1 i 1 i 1
285 282 284 mpbid φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 1 i 1
286 248 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i K + 1
287 254 adantr φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 K
288 lesubadd i 1 K i 1 K i K + 1
289 277 276 287 288 syl3anc φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1 K i K + 1
290 286 289 mpbird φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1 K
291 268 269 271 285 290 elfzd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 i 1 1 K
292 235 291 ffvelcdmd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i 1 1 N + K
293 elfznn b i 1 1 N + K b i 1
294 292 293 syl φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i 1
295 294 nnzd φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i 1
296 267 295 zsubcld φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i b i 1
297 296 268 zsubcld φ b B i 1 K + 1 ¬ i = K + 1 ¬ i = 1 b i - b i 1 - 1
298 226 227 232 297 ifbothda φ b B i 1 K + 1 ¬ i = K + 1 if i = 1 b 1 1 b i - b i 1 - 1
299 215 216 225 298 ifbothda φ b B i 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
300 299 3expa φ b B i 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
301 300 zcnd φ b B i 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1
302 eqeq1 i = K + 1 i = K + 1 K + 1 = K + 1
303 eqeq1 i = K + 1 i = 1 K + 1 = 1
304 fveq2 i = K + 1 b i = b K + 1
305 fvoveq1 i = K + 1 b i 1 = b K + 1 - 1
306 304 305 oveq12d i = K + 1 b i b i 1 = b K + 1 b K + 1 - 1
307 306 oveq1d i = K + 1 b i - b i 1 - 1 = b K + 1 - b K + 1 - 1 - 1
308 303 307 ifbieq2d i = K + 1 if i = 1 b 1 1 b i - b i 1 - 1 = if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1
309 302 308 ifbieq2d i = K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 = if K + 1 = K + 1 N + K - b K if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1
310 214 301 309 fsump1 φ b B i = 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 = i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + if K + 1 = K + 1 N + K - b K if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1
311 eqidd φ b B K + 1 = K + 1
312 311 iftrued φ b B if K + 1 = K + 1 N + K - b K if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1 = N + K - b K
313 312 oveq2d φ b B i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + if K + 1 = K + 1 N + K - b K if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1 = i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K
314 elfznn i 1 K i
315 314 adantl φ b B i 1 K i
316 315 nnred φ b B i 1 K i
317 34 adantr φ b B i 1 K K
318 1red φ b B i 1 K 1
319 317 318 readdcld φ b B i 1 K K + 1
320 elfzle2 i 1 K i K
321 320 adantl φ b B i 1 K i K
322 317 ltp1d φ b B i 1 K K < K + 1
323 316 317 319 321 322 lelttrd φ b B i 1 K i < K + 1
324 316 323 ltned φ b B i 1 K i K + 1
325 324 neneqd φ b B i 1 K ¬ i = K + 1
326 325 iffalsed φ b B i 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 = if i = 1 b 1 1 b i - b i 1 - 1
327 326 sumeq2dv φ b B i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 = i = 1 K if i = 1 b 1 1 b i - b i 1 - 1
328 327 oveq1d φ b B i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K = i = 1 K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K
329 eqeq1 b 1 1 = if i = 1 b 1 1 b i - b i 1 - 1 b 1 1 = if i = 1 b 1 b i b i 1 1 if i = 1 b 1 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1
330 eqeq1 b i - b i 1 - 1 = if i = 1 b 1 1 b i - b i 1 - 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1 if i = 1 b 1 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1
331 eqidd φ b B i 1 K i = 1 b 1 1 = b 1 1
332 simpr φ b B i 1 K i = 1 i = 1
333 332 iftrued φ b B i 1 K i = 1 if i = 1 b 1 b i b i 1 = b 1
334 333 eqcomd φ b B i 1 K i = 1 b 1 = if i = 1 b 1 b i b i 1
335 334 oveq1d φ b B i 1 K i = 1 b 1 1 = if i = 1 b 1 b i b i 1 1
336 331 335 eqtrd φ b B i 1 K i = 1 b 1 1 = if i = 1 b 1 b i b i 1 1
337 eqidd φ b B i 1 K ¬ i = 1 b i - b i 1 - 1 = b i - b i 1 - 1
338 simpr φ b B i 1 K ¬ i = 1 ¬ i = 1
339 338 iffalsed φ b B i 1 K ¬ i = 1 if i = 1 b 1 b i b i 1 = b i b i 1
340 339 oveq1d φ b B i 1 K ¬ i = 1 if i = 1 b 1 b i b i 1 1 = b i - b i 1 - 1
341 340 eqcomd φ b B i 1 K ¬ i = 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1
342 337 341 eqtrd φ b B i 1 K ¬ i = 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1
343 329 330 336 342 ifbothda φ b B i 1 K if i = 1 b 1 1 b i - b i 1 - 1 = if i = 1 b 1 b i b i 1 1
344 343 sumeq2dv φ b B i = 1 K if i = 1 b 1 1 b i - b i 1 - 1 = i = 1 K if i = 1 b 1 b i b i 1 1
345 344 oveq1d φ b B i = 1 K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K = i = 1 K if i = 1 b 1 b i b i 1 1 + N + K - b K
346 fzfid φ b B 1 K Fin
347 eleq1 b 1 = if i = 1 b 1 b i b i 1 b 1 if i = 1 b 1 b i b i 1
348 eleq1 b i b i 1 = if i = 1 b 1 b i b i 1 b i b i 1 if i = 1 b 1 b i b i 1
349 66 ad2antrr φ b B i 1 K i = 1 b 1
350 30 adantr φ b B i 1 K b : 1 K 1 N + K
351 simpr φ b B i 1 K i 1 K
352 350 351 ffvelcdmd φ b B i 1 K b i 1 N + K
353 265 nnzd b i 1 N + K b i
354 352 353 syl φ b B i 1 K b i
355 354 adantr φ b B i 1 K ¬ i = 1 b i
356 350 adantr φ b B i 1 K ¬ i = 1 b : 1 K 1 N + K
357 1zzd φ b B i 1 K ¬ i = 1 1
358 16 ad2antrr φ b B i 1 K ¬ i = 1 K
359 315 nnzd φ b B i 1 K i
360 359 adantr φ b B i 1 K ¬ i = 1 i
361 360 357 zsubcld φ b B i 1 K ¬ i = 1 i 1
362 315 nnge1d φ b B i 1 K 1 i
363 362 adantr φ b B i 1 K ¬ i = 1 1 i
364 338 273 syl φ b B i 1 K ¬ i = 1 i 1
365 363 364 jca φ b B i 1 K ¬ i = 1 1 i i 1
366 318 adantr φ b B i 1 K ¬ i = 1 1
367 316 adantr φ b B i 1 K ¬ i = 1 i
368 366 367 ltlend φ b B i 1 K ¬ i = 1 1 < i 1 i i 1
369 365 368 mpbird φ b B i 1 K ¬ i = 1 1 < i
370 zltlem1 1 i 1 < i 1 i 1
371 357 360 370 syl2anc φ b B i 1 K ¬ i = 1 1 < i 1 i 1
372 369 371 mpbid φ b B i 1 K ¬ i = 1 1 i 1
373 316 318 resubcld φ b B i 1 K i 1
374 316 lem1d φ b B i 1 K i 1 i
375 373 316 317 374 321 letrd φ b B i 1 K i 1 K
376 375 adantr φ b B i 1 K ¬ i = 1 i 1 K
377 357 358 361 372 376 elfzd φ b B i 1 K ¬ i = 1 i 1 1 K
378 356 377 ffvelcdmd φ b B i 1 K ¬ i = 1 b i 1 1 N + K
379 378 293 syl φ b B i 1 K ¬ i = 1 b i 1
380 379 nnzd φ b B i 1 K ¬ i = 1 b i 1
381 355 380 zsubcld φ b B i 1 K ¬ i = 1 b i b i 1
382 347 348 349 381 ifbothda φ b B i 1 K if i = 1 b 1 b i b i 1
383 382 zcnd φ b B i 1 K if i = 1 b 1 b i b i 1
384 68 adantr φ b B i 1 K 1
385 346 383 384 fsumsub φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = i = 1 K if i = 1 b 1 b i b i 1 i = 1 K 1
386 id i = 1 i = 1
387 386 iftrued i = 1 if i = 1 b 1 b i b i 1 = b 1
388 214 383 387 fsum1p φ b B i = 1 K if i = 1 b 1 b i b i 1 = b 1 + i = 1 + 1 K if i = 1 b 1 b i b i 1
389 60 adantr φ b B i 1 + 1 K 1
390 elfzle1 i 1 + 1 K 1 + 1 i
391 390 adantl φ b B i 1 + 1 K 1 + 1 i
392 31 adantr φ b B i 1 + 1 K 1
393 elfzelz i 1 + 1 K i
394 393 adantl φ b B i 1 + 1 K i
395 392 394 280 syl2anc φ b B i 1 + 1 K 1 < i 1 + 1 i
396 391 395 mpbird φ b B i 1 + 1 K 1 < i
397 389 396 ltned φ b B i 1 + 1 K 1 i
398 397 necomd φ b B i 1 + 1 K i 1
399 398 neneqd φ b B i 1 + 1 K ¬ i = 1
400 399 iffalsed φ b B i 1 + 1 K if i = 1 b 1 b i b i 1 = b i b i 1
401 400 sumeq2dv φ b B i = 1 + 1 K if i = 1 b 1 b i b i 1 = i = 1 + 1 K b i b i 1
402 401 oveq2d φ b B b 1 + i = 1 + 1 K if i = 1 b 1 b i b i 1 = b 1 + i = 1 + 1 K b i b i 1
403 34 recnd φ b B K
404 403 68 npcand φ b B K - 1 + 1 = K
405 404 eqcomd φ b B K = K - 1 + 1
406 405 oveq2d φ b B 1 + 1 K = 1 + 1 K - 1 + 1
407 406 sumeq1d φ b B i = 1 + 1 K b i b i 1 = i = 1 + 1 K - 1 + 1 b i b i 1
408 407 oveq2d φ b B b 1 + i = 1 + 1 K b i b i 1 = b 1 + i = 1 + 1 K - 1 + 1 b i b i 1
409 elfzelz i 1 + 1 K - 1 + 1 i
410 409 adantl φ b B i 1 + 1 K - 1 + 1 i
411 410 zcnd φ b B i 1 + 1 K - 1 + 1 i
412 1cnd φ b B i 1 + 1 K - 1 + 1 1
413 411 412 npcand φ b B i 1 + 1 K - 1 + 1 i - 1 + 1 = i
414 413 eqcomd φ b B i 1 + 1 K - 1 + 1 i = i - 1 + 1
415 414 fveq2d φ b B i 1 + 1 K - 1 + 1 b i = b i - 1 + 1
416 eqidd φ b B i 1 + 1 K - 1 + 1 b i 1 = b i 1
417 415 416 oveq12d φ b B i 1 + 1 K - 1 + 1 b i b i 1 = b i - 1 + 1 b i 1
418 417 sumeq2dv φ b B i = 1 + 1 K - 1 + 1 b i b i 1 = i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1
419 418 oveq2d φ b B b 1 + i = 1 + 1 K - 1 + 1 b i b i 1 = b 1 + i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1
420 16 31 zsubcld φ b B K 1
421 30 adantr φ b B s 1 K 1 b : 1 K 1 N + K
422 1zzd φ b B s 1 K 1 1
423 16 adantr φ b B s 1 K 1 K
424 elfznn s 1 K 1 s
425 424 adantl φ b B s 1 K 1 s
426 425 nnzd φ b B s 1 K 1 s
427 426 peano2zd φ b B s 1 K 1 s + 1
428 1red φ b B s 1 K 1 1
429 425 nnred φ b B s 1 K 1 s
430 429 428 readdcld φ b B s 1 K 1 s + 1
431 425 nnge1d φ b B s 1 K 1 1 s
432 429 lep1d φ b B s 1 K 1 s s + 1
433 428 429 430 431 432 letrd φ b B s 1 K 1 1 s + 1
434 elfzle2 s 1 K 1 s K 1
435 434 adantl φ b B s 1 K 1 s K 1
436 34 adantr φ b B s 1 K 1 K
437 leaddsub s 1 K s + 1 K s K 1
438 429 428 436 437 syl3anc φ b B s 1 K 1 s + 1 K s K 1
439 435 438 mpbird φ b B s 1 K 1 s + 1 K
440 422 423 427 433 439 elfzd φ b B s 1 K 1 s + 1 1 K
441 421 440 ffvelcdmd φ b B s 1 K 1 b s + 1 1 N + K
442 elfznn b s + 1 1 N + K b s + 1
443 441 442 syl φ b B s 1 K 1 b s + 1
444 443 nnzd φ b B s 1 K 1 b s + 1
445 436 428 resubcld φ b B s 1 K 1 K 1
446 436 lem1d φ b B s 1 K 1 K 1 K
447 429 445 436 435 446 letrd φ b B s 1 K 1 s K
448 422 423 426 431 447 elfzd φ b B s 1 K 1 s 1 K
449 421 448 ffvelcdmd φ b B s 1 K 1 b s 1 N + K
450 elfznn b s 1 N + K b s
451 450 nnzd b s 1 N + K b s
452 449 451 syl φ b B s 1 K 1 b s
453 444 452 zsubcld φ b B s 1 K 1 b s + 1 b s
454 453 zcnd φ b B s 1 K 1 b s + 1 b s
455 fvoveq1 s = i 1 b s + 1 = b i - 1 + 1
456 fveq2 s = i 1 b s = b i 1
457 455 456 oveq12d s = i 1 b s + 1 b s = b i - 1 + 1 b i 1
458 31 31 420 454 457 fsumshft φ b B s = 1 K 1 b s + 1 b s = i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1
459 458 oveq2d φ b B b 1 + s = 1 K 1 b s + 1 b s = b 1 + i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1
460 459 eqcomd φ b B b 1 + i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1 = b 1 + s = 1 K 1 b s + 1 b s
461 fvoveq1 s = i b s + 1 = b i + 1
462 fveq2 s = i b s = b i
463 461 462 oveq12d s = i b s + 1 b s = b i + 1 b i
464 nfcv _ i b s + 1 b s
465 nfcv _ s b i + 1 b i
466 463 464 465 cbvsum s = 1 K 1 b s + 1 b s = i = 1 K 1 b i + 1 b i
467 466 a1i φ b B s = 1 K 1 b s + 1 b s = i = 1 K 1 b i + 1 b i
468 467 oveq2d φ b B b 1 + s = 1 K 1 b s + 1 b s = b 1 + i = 1 K 1 b i + 1 b i
469 fveq2 w = i b w = b i
470 fveq2 w = i + 1 b w = b i + 1
471 fveq2 w = 1 b w = b 1
472 fveq2 w = K - 1 + 1 b w = b K - 1 + 1
473 404 214 eqeltrd φ b B K - 1 + 1 1
474 30 adantr φ b B w 1 K - 1 + 1 b : 1 K 1 N + K
475 1zzd φ b B w 1 K - 1 + 1 1
476 16 adantr φ b B w 1 K - 1 + 1 K
477 elfzelz w 1 K - 1 + 1 w
478 477 adantl φ b B w 1 K - 1 + 1 w
479 elfzle1 w 1 K - 1 + 1 1 w
480 479 adantl φ b B w 1 K - 1 + 1 1 w
481 elfzle2 w 1 K - 1 + 1 w K - 1 + 1
482 481 adantl φ b B w 1 K - 1 + 1 w K - 1 + 1
483 404 adantr φ b B w 1 K - 1 + 1 K - 1 + 1 = K
484 482 483 breqtrd φ b B w 1 K - 1 + 1 w K
485 475 476 478 480 484 elfzd φ b B w 1 K - 1 + 1 w 1 K
486 474 485 ffvelcdmd φ b B w 1 K - 1 + 1 b w 1 N + K
487 elfznn b w 1 N + K b w
488 487 nncnd b w 1 N + K b w
489 486 488 syl φ b B w 1 K - 1 + 1 b w
490 469 470 471 472 420 473 489 telfsum2 φ b B i = 1 K 1 b i + 1 b i = b K - 1 + 1 b 1
491 490 oveq2d φ b B b 1 + i = 1 K 1 b i + 1 b i = b 1 + b K - 1 + 1 - b 1
492 73 recnd φ b B b 1
493 39 nncnd φ b B b K
494 404 fveq2d φ b B b K - 1 + 1 = b K
495 494 eleq1d φ b B b K - 1 + 1 b K
496 493 495 mpbird φ b B b K - 1 + 1
497 492 496 pncan3d φ b B b 1 + b K - 1 + 1 - b 1 = b K - 1 + 1
498 497 494 eqtrd φ b B b 1 + b K - 1 + 1 - b 1 = b K
499 491 498 eqtrd φ b B b 1 + i = 1 K 1 b i + 1 b i = b K
500 468 499 eqtrd φ b B b 1 + s = 1 K 1 b s + 1 b s = b K
501 460 500 eqtrd φ b B b 1 + i = 1 + 1 K - 1 + 1 b i - 1 + 1 b i 1 = b K
502 419 501 eqtrd φ b B b 1 + i = 1 + 1 K - 1 + 1 b i b i 1 = b K
503 408 502 eqtrd φ b B b 1 + i = 1 + 1 K b i b i 1 = b K
504 402 503 eqtrd φ b B b 1 + i = 1 + 1 K if i = 1 b 1 b i b i 1 = b K
505 388 504 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 = b K
506 fsumconst 1 K Fin 1 i = 1 K 1 = 1 K 1
507 346 68 506 syl2anc φ b B i = 1 K 1 = 1 K 1
508 212 nnnn0d φ b B K 0
509 hashfz1 K 0 1 K = K
510 508 509 syl φ b B 1 K = K
511 510 oveq1d φ b B 1 K 1 = K 1
512 403 mulridd φ b B K 1 = K
513 511 512 eqtrd φ b B 1 K 1 = K
514 507 513 eqtrd φ b B i = 1 K 1 = K
515 505 514 oveq12d φ b B i = 1 K if i = 1 b 1 b i b i 1 i = 1 K 1 = b K K
516 385 515 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = b K K
517 43 addlidd φ b B 0 + b K = b K
518 517 eqcomd φ b B b K = 0 + b K
519 518 oveq1d φ b B b K K = 0 + b K - K
520 516 519 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = 0 + b K - K
521 0cnd φ b B 0
522 521 403 43 subsub3d φ b B 0 K b K = 0 + b K - K
523 522 eqcomd φ b B 0 + b K - K = 0 K b K
524 520 523 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = 0 K b K
525 14 zcnd φ b B N
526 525 subidd φ b B N N = 0
527 526 eqcomd φ b B 0 = N N
528 527 oveq1d φ b B 0 K b K = N - N - K b K
529 524 528 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = N - N - K b K
530 403 43 subcld φ b B K b K
531 525 525 530 subsub4d φ b B N - N - K b K = N N + K - b K
532 529 531 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = N N + K - b K
533 525 403 43 addsubassd φ b B N + K - b K = N + K - b K
534 533 eqcomd φ b B N + K - b K = N + K - b K
535 534 oveq2d φ b B N N + K - b K = N N + K - b K
536 532 535 eqtrd φ b B i = 1 K if i = 1 b 1 b i b i 1 1 = N N + K - b K
537 1zzd φ b B i 1 K 1
538 382 537 zsubcld φ b B i 1 K if i = 1 b 1 b i b i 1 1
539 346 538 fsumzcl φ b B i = 1 K if i = 1 b 1 b i b i 1 1
540 539 zcnd φ b B i = 1 K if i = 1 b 1 b i b i 1 1
541 54 nn0cnd φ b B N + K - b K
542 540 541 525 addlsub φ b B i = 1 K if i = 1 b 1 b i b i 1 1 + N + K - b K = N i = 1 K if i = 1 b 1 b i b i 1 1 = N N + K - b K
543 536 542 mpbird φ b B i = 1 K if i = 1 b 1 b i b i 1 1 + N + K - b K = N
544 345 543 eqtrd φ b B i = 1 K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K = N
545 328 544 eqtrd φ b B i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + N + K - b K = N
546 313 545 eqtrd φ b B i = 1 K if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 + if K + 1 = K + 1 N + K - b K if K + 1 = 1 b 1 1 b K + 1 - b K + 1 - 1 - 1 = N
547 310 546 eqtrd φ b B i = 1 K + 1 if i = K + 1 N + K - b K if i = 1 b 1 1 b i - b i 1 - 1 = N
548 211 547 eqtrd φ b B i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = N
549 193 548 jca φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 : 1 K + 1 0 i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = N
550 ovex 1 K + 1 V
551 550 mptex k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 V
552 feq1 g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 g : 1 K + 1 0 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 : 1 K + 1 0
553 simpl g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i 1 K + 1 g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1
554 553 fveq1d g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i 1 K + 1 g i = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i
555 554 sumeq2dv g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = 1 K + 1 g i = i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i
556 555 eqeq1d g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = 1 K + 1 g i = N i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = N
557 552 556 anbi12d g = k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 g : 1 K + 1 0 i = 1 K + 1 g i = N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 : 1 K + 1 0 i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = N
558 551 557 elab k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 g | g : 1 K + 1 0 i = 1 K + 1 g i = N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 : 1 K + 1 0 i = 1 K + 1 k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 i = N
559 549 558 sylibr φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 g | g : 1 K + 1 0 i = 1 K + 1 g i = N
560 4 a1i φ b B A = g | g : 1 K + 1 0 i = 1 K + 1 g i = N
561 559 560 eleqtrrd φ b B k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 A
562 10 561 eqeltrrd φ b B if K = 0 1 N k 1 K + 1 if k = K + 1 N + K - b K if k = 1 b 1 1 b k - b k 1 - 1 A
563 562 3 fmptd φ G : B A