Users' Mathboxes Mathbox for metakunt < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  sticksstones10 Structured version   Visualization version   GIF version

Theorem sticksstones10 40959
Description: Establish mapping between strictly monotone functions and functions that sum to a fixed non-negative integer. (Contributed by metakunt, 6-Oct-2024.)
Hypotheses
Ref Expression
sticksstones10.1 (πœ‘ β†’ 𝑁 ∈ β„•0)
sticksstones10.2 (πœ‘ β†’ 𝐾 ∈ β„•)
sticksstones10.3 𝐺 = (𝑏 ∈ 𝐡 ↦ if(𝐾 = 0, {⟨1, π‘βŸ©}, (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))))
sticksstones10.4 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁)}
sticksstones10.5 𝐡 = {𝑓 ∣ (𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)))}
Assertion
Ref Expression
sticksstones10 (πœ‘ β†’ 𝐺:𝐡⟢𝐴)
Distinct variable groups:   𝐴,𝑏   𝐡,𝑏,𝑖,π‘˜   𝑓,𝐾,π‘₯,𝑦   𝑔,𝐾,𝑖,π‘˜   𝑓,𝑁   𝑔,𝑁,𝑖,π‘˜   𝑓,𝑏,π‘₯,𝑦   𝑔,𝑏   πœ‘,𝑏,𝑖,π‘˜   π‘₯,π‘˜,𝑦
Allowed substitution hints:   πœ‘(π‘₯,𝑦,𝑓,𝑔)   𝐴(π‘₯,𝑦,𝑓,𝑔,𝑖,π‘˜)   𝐡(π‘₯,𝑦,𝑓,𝑔)   𝐺(π‘₯,𝑦,𝑓,𝑔,𝑖,π‘˜,𝑏)   𝐾(𝑏)   𝑁(π‘₯,𝑦,𝑏)

Proof of Theorem sticksstones10
Dummy variables 𝑠 𝑀 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sticksstones10.2 . . . . . . . 8 (πœ‘ β†’ 𝐾 ∈ β„•)
21nnne0d 12258 . . . . . . 7 (πœ‘ β†’ 𝐾 β‰  0)
32adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 β‰  0)
43neneqd 2945 . . . . 5 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Β¬ 𝐾 = 0)
54iffalsed 4538 . . . 4 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ if(𝐾 = 0, {⟨1, π‘βŸ©}, (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))) = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))))
65eqcomd 2738 . . 3 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) = if(𝐾 = 0, {⟨1, π‘βŸ©}, (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))))
7 eleq1 2821 . . . . . . . . 9 (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) = if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) β†’ (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0 ↔ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) ∈ β„•0))
8 eleq1 2821 . . . . . . . . 9 (if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) = if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) β†’ (if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) ∈ β„•0 ↔ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) ∈ β„•0))
9 sticksstones10.1 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑁 ∈ β„•0)
109nn0zd 12580 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑁 ∈ β„€)
1110adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝑁 ∈ β„€)
121nnzd 12581 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝐾 ∈ β„€)
1312adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ β„€)
1411, 13zaddcld 12666 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑁 + 𝐾) ∈ β„€)
15 sticksstones10.5 . . . . . . . . . . . . . . . . . . . . . . 23 𝐡 = {𝑓 ∣ (𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)))}
1615eleq2i 2825 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 ∈ 𝐡 ↔ 𝑏 ∈ {𝑓 ∣ (𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)))})
17 vex 3478 . . . . . . . . . . . . . . . . . . . . . . 23 𝑏 ∈ V
18 feq1 6695 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑓 = 𝑏 β†’ (𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ↔ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾))))
19 fveq1 6887 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑓 = 𝑏 β†’ (π‘“β€˜π‘₯) = (π‘β€˜π‘₯))
20 fveq1 6887 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑓 = 𝑏 β†’ (π‘“β€˜π‘¦) = (π‘β€˜π‘¦))
2119, 20breq12d 5160 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓 = 𝑏 β†’ ((π‘“β€˜π‘₯) < (π‘“β€˜π‘¦) ↔ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))
2221imbi2d 340 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑓 = 𝑏 β†’ ((π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)) ↔ (π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
23222ralbidv 3218 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑓 = 𝑏 β†’ (βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)) ↔ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
2418, 23anbi12d 631 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑓 = 𝑏 β†’ ((𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦))) ↔ (𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))))
2517, 24elab 3667 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 ∈ {𝑓 ∣ (𝑓:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘“β€˜π‘₯) < (π‘“β€˜π‘¦)))} ↔ (𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
2616, 25bitri 274 . . . . . . . . . . . . . . . . . . . . 21 (𝑏 ∈ 𝐡 ↔ (𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
2726biimpi 215 . . . . . . . . . . . . . . . . . . . 20 (𝑏 ∈ 𝐡 β†’ (𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
2827adantl 482 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))))
2928simpld 495 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
30 1zzd 12589 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ∈ β„€)
311nnge1d 12256 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 1 ≀ 𝐾)
3231adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ≀ 𝐾)
3313zred 12662 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ ℝ)
3433leidd 11776 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ≀ 𝐾)
3530, 13, 13, 32, 34elfzd 13488 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ (1...𝐾))
3629, 35ffvelcdmd 7084 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ (1...(𝑁 + 𝐾)))
37 elfznn 13526 . . . . . . . . . . . . . . . . 17 ((π‘β€˜πΎ) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜πΎ) ∈ β„•)
3836, 37syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ β„•)
3938nnzd 12581 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ β„€)
4014, 39zsubcld 12667 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„€)
4138nnred 12223 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ ℝ)
4241recnd 11238 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ β„‚)
4342addridd 11410 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜πΎ) + 0) = (π‘β€˜πΎ))
44 elfzle2 13501 . . . . . . . . . . . . . . . . 17 ((π‘β€˜πΎ) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜πΎ) ≀ (𝑁 + 𝐾))
4536, 44syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ≀ (𝑁 + 𝐾))
4643, 45eqbrtrd 5169 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜πΎ) + 0) ≀ (𝑁 + 𝐾))
47 0red 11213 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 0 ∈ ℝ)
4814zred 12662 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑁 + 𝐾) ∈ ℝ)
4941, 47, 48leaddsub2d 11812 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (((π‘β€˜πΎ) + 0) ≀ (𝑁 + 𝐾) ↔ 0 ≀ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
5046, 49mpbid 231 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 0 ≀ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)))
5140, 50jca 512 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„€ ∧ 0 ≀ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
52 elnn0z 12567 . . . . . . . . . . . . 13 (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0 ↔ (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„€ ∧ 0 ≀ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
5351, 52sylibr 233 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0)
5453adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0)
55543impa 1110 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0)
5655adantr 481 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ π‘˜ = (𝐾 + 1)) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„•0)
57 eleq1 2821 . . . . . . . . . 10 (((π‘β€˜1) βˆ’ 1) = if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) β†’ (((π‘β€˜1) βˆ’ 1) ∈ β„•0 ↔ if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) ∈ β„•0))
58 eleq1 2821 . . . . . . . . . 10 ((((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) = if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) β†’ ((((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„•0 ↔ if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) ∈ β„•0))
59 1red 11211 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ∈ ℝ)
6059leidd 11776 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ≀ 1)
6130, 13, 30, 60, 32elfzd 13488 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ∈ (1...𝐾))
6229, 61ffvelcdmd 7084 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜1) ∈ (1...(𝑁 + 𝐾)))
63 elfznn 13526 . . . . . . . . . . . . . . . . . . 19 ((π‘β€˜1) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜1) ∈ β„•)
6463nnzd 12581 . . . . . . . . . . . . . . . . . 18 ((π‘β€˜1) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜1) ∈ β„€)
6562, 64syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜1) ∈ β„€)
6665, 30zsubcld 12667 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„€)
67 1cnd 11205 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ∈ β„‚)
6867addridd 11410 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (1 + 0) = 1)
69 elfzle1 13500 . . . . . . . . . . . . . . . . . . 19 ((π‘β€˜1) ∈ (1...(𝑁 + 𝐾)) β†’ 1 ≀ (π‘β€˜1))
7062, 69syl 17 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 1 ≀ (π‘β€˜1))
7168, 70eqbrtrd 5169 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (1 + 0) ≀ (π‘β€˜1))
7265zred 12662 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜1) ∈ ℝ)
7359, 47, 72leaddsub2d 11812 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((1 + 0) ≀ (π‘β€˜1) ↔ 0 ≀ ((π‘β€˜1) βˆ’ 1)))
7471, 73mpbid 231 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 0 ≀ ((π‘β€˜1) βˆ’ 1))
7566, 74jca 512 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (((π‘β€˜1) βˆ’ 1) ∈ β„€ ∧ 0 ≀ ((π‘β€˜1) βˆ’ 1)))
76 elnn0z 12567 . . . . . . . . . . . . . . 15 (((π‘β€˜1) βˆ’ 1) ∈ β„•0 ↔ (((π‘β€˜1) βˆ’ 1) ∈ β„€ ∧ 0 ≀ ((π‘β€˜1) βˆ’ 1)))
7775, 76sylibr 233 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„•0)
7877adantr 481 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„•0)
79783impa 1110 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„•0)
8079adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„•0)
8180adantr 481 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ π‘˜ = 1) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„•0)
82293adant3 1132 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
8382adantr 481 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
84 1zzd 12589 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 1 ∈ β„€)
85133adant3 1132 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ 𝐾 ∈ β„€)
8685adantr 481 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 𝐾 ∈ β„€)
87 simp3 1138 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ π‘˜ ∈ (1...(𝐾 + 1)))
88 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...(𝐾 + 1)) β†’ π‘˜ ∈ β„•)
8987, 88syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ π‘˜ ∈ β„•)
9089adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ∈ β„•)
9190nnzd 12581 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ∈ β„€)
9290nnge1d 12256 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 1 ≀ π‘˜)
93 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ ∈ (1...(𝐾 + 1)) β†’ π‘˜ ≀ (𝐾 + 1))
9487, 93syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ π‘˜ ≀ (𝐾 + 1))
9594adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ≀ (𝐾 + 1))
96 neqne 2948 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ π‘˜ = (𝐾 + 1) β†’ π‘˜ β‰  (𝐾 + 1))
9796adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ β‰  (𝐾 + 1))
9897necomd 2996 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (𝐾 + 1) β‰  π‘˜)
9995, 98jca 512 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘˜ ≀ (𝐾 + 1) ∧ (𝐾 + 1) β‰  π‘˜))
10090nnred 12223 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ∈ ℝ)
10186zred 12662 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 𝐾 ∈ ℝ)
102 1red 11211 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ 1 ∈ ℝ)
103101, 102readdcld 11239 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (𝐾 + 1) ∈ ℝ)
104100, 103ltlend 11355 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘˜ < (𝐾 + 1) ↔ (π‘˜ ≀ (𝐾 + 1) ∧ (𝐾 + 1) β‰  π‘˜)))
10599, 104mpbird 256 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ < (𝐾 + 1))
10689nnzd 12581 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ π‘˜ ∈ β„€)
107 zleltp1 12609 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘˜ ∈ β„€ ∧ 𝐾 ∈ β„€) β†’ (π‘˜ ≀ 𝐾 ↔ π‘˜ < (𝐾 + 1)))
108106, 85, 107syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ (π‘˜ ≀ 𝐾 ↔ π‘˜ < (𝐾 + 1)))
109108adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘˜ ≀ 𝐾 ↔ π‘˜ < (𝐾 + 1)))
110105, 109mpbird 256 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ≀ 𝐾)
11184, 86, 91, 92, 110elfzd 13488 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ π‘˜ ∈ (1...𝐾))
11283, 111ffvelcdmd 7084 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘β€˜π‘˜) ∈ (1...(𝑁 + 𝐾)))
113 elfznn 13526 . . . . . . . . . . . . . . . . 17 ((π‘β€˜π‘˜) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘˜) ∈ β„•)
114112, 113syl 17 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘β€˜π‘˜) ∈ β„•)
115114nnzd 12581 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘β€˜π‘˜) ∈ β„€)
116115adantr 481 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜π‘˜) ∈ β„€)
11783adantr 481 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
118 1zzd 12589 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ∈ β„€)
11986adantr 481 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 𝐾 ∈ β„€)
12091adantr 481 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ π‘˜ ∈ β„€)
121120, 118zsubcld 12667 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘˜ βˆ’ 1) ∈ β„€)
12292adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ≀ π‘˜)
123 neqne 2948 . . . . . . . . . . . . . . . . . . . . . 22 (Β¬ π‘˜ = 1 β†’ π‘˜ β‰  1)
124123adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ π‘˜ β‰  1)
125122, 124jca 512 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 ≀ π‘˜ ∧ π‘˜ β‰  1))
126102adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ∈ ℝ)
127100adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ π‘˜ ∈ ℝ)
128126, 127ltlend 11355 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 < π‘˜ ↔ (1 ≀ π‘˜ ∧ π‘˜ β‰  1)))
129125, 128mpbird 256 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 < π‘˜)
130118, 120zltlem1d 40832 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 < π‘˜ ↔ 1 ≀ (π‘˜ βˆ’ 1)))
131129, 130mpbid 231 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ≀ (π‘˜ βˆ’ 1))
13289nnred 12223 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ π‘˜ ∈ ℝ)
133593adant3 1132 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ 1 ∈ ℝ)
134333adant3 1132 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ 𝐾 ∈ ℝ)
135 lesubadd 11682 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘˜ ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝐾 ∈ ℝ) β†’ ((π‘˜ βˆ’ 1) ≀ 𝐾 ↔ π‘˜ ≀ (𝐾 + 1)))
136132, 133, 134, 135syl3anc 1371 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ ((π‘˜ βˆ’ 1) ≀ 𝐾 ↔ π‘˜ ≀ (𝐾 + 1)))
13794, 136mpbird 256 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ (π‘˜ βˆ’ 1) ≀ 𝐾)
138137adantr 481 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ (π‘˜ βˆ’ 1) ≀ 𝐾)
139138adantr 481 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘˜ βˆ’ 1) ≀ 𝐾)
140118, 119, 121, 131, 139elfzd 13488 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘˜ βˆ’ 1) ∈ (1...𝐾))
141117, 140ffvelcdmd 7084 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ (1...(𝑁 + 𝐾)))
142 elfznn 13526 . . . . . . . . . . . . . . . 16 ((π‘β€˜(π‘˜ βˆ’ 1)) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ β„•)
143141, 142syl 17 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ β„•)
144143nnzd 12581 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ β„€)
145116, 144zsubcld 12667 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ∈ β„€)
146145, 118zsubcld 12667 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„€)
147 0p1e1 12330 . . . . . . . . . . . . . . 15 (0 + 1) = 1
148147a1i 11 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (0 + 1) = 1)
149 1cnd 11205 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ∈ β„‚)
150149subidd 11555 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 βˆ’ 1) = 0)
151144zred 12662 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ ℝ)
152151recnd 11238 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) ∈ β„‚)
153152addridd 11410 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘β€˜(π‘˜ βˆ’ 1)) + 0) = (π‘β€˜(π‘˜ βˆ’ 1)))
154127ltm1d 12142 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘˜ βˆ’ 1) < π‘˜)
155111adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ π‘˜ ∈ (1...𝐾))
156140, 155jca 512 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘˜ βˆ’ 1) ∈ (1...𝐾) ∧ π‘˜ ∈ (1...𝐾)))
15728simprd 496 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))
1581573adant3 1132 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))
159158adantr 481 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))
160159adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)))
161 breq1 5150 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = (π‘˜ βˆ’ 1) β†’ (π‘₯ < 𝑦 ↔ (π‘˜ βˆ’ 1) < 𝑦))
162 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = (π‘˜ βˆ’ 1) β†’ (π‘β€˜π‘₯) = (π‘β€˜(π‘˜ βˆ’ 1)))
163162breq1d 5157 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = (π‘˜ βˆ’ 1) β†’ ((π‘β€˜π‘₯) < (π‘β€˜π‘¦) ↔ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘¦)))
164161, 163imbi12d 344 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = (π‘˜ βˆ’ 1) β†’ ((π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦)) ↔ ((π‘˜ βˆ’ 1) < 𝑦 β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘¦))))
165 breq2 5151 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = π‘˜ β†’ ((π‘˜ βˆ’ 1) < 𝑦 ↔ (π‘˜ βˆ’ 1) < π‘˜))
166 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 = π‘˜ β†’ (π‘β€˜π‘¦) = (π‘β€˜π‘˜))
167166breq2d 5159 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = π‘˜ β†’ ((π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘¦) ↔ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘˜)))
168165, 167imbi12d 344 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = π‘˜ β†’ (((π‘˜ βˆ’ 1) < 𝑦 β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘¦)) ↔ ((π‘˜ βˆ’ 1) < π‘˜ β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘˜))))
169164, 168rspc2va 3622 . . . . . . . . . . . . . . . . . . . 20 ((((π‘˜ βˆ’ 1) ∈ (1...𝐾) ∧ π‘˜ ∈ (1...𝐾)) ∧ βˆ€π‘₯ ∈ (1...𝐾)βˆ€π‘¦ ∈ (1...𝐾)(π‘₯ < 𝑦 β†’ (π‘β€˜π‘₯) < (π‘β€˜π‘¦))) β†’ ((π‘˜ βˆ’ 1) < π‘˜ β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘˜)))
170156, 160, 169syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘˜ βˆ’ 1) < π‘˜ β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘˜)))
171154, 170mpd 15 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) < (π‘β€˜π‘˜))
172153, 171eqbrtrd 5169 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘β€˜(π‘˜ βˆ’ 1)) + 0) < (π‘β€˜π‘˜))
173 0red 11213 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 0 ∈ ℝ)
174116zred 12662 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (π‘β€˜π‘˜) ∈ ℝ)
175151, 173, 174ltaddsub2d 11811 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (((π‘β€˜(π‘˜ βˆ’ 1)) + 0) < (π‘β€˜π‘˜) ↔ 0 < ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1)))))
176172, 175mpbid 231 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 0 < ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))))
177150, 176eqbrtrd 5169 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 βˆ’ 1) < ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))))
178 zlem1lt 12610 . . . . . . . . . . . . . . . 16 ((1 ∈ β„€ ∧ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ∈ β„€) β†’ (1 ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ↔ (1 βˆ’ 1) < ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1)))))
179118, 145, 178syl2anc 584 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (1 ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ↔ (1 βˆ’ 1) < ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1)))))
180177, 179mpbird 256 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 1 ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))))
181148, 180eqbrtrd 5169 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (0 + 1) ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))))
182145zred 12662 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ∈ ℝ)
183 leaddsub 11686 . . . . . . . . . . . . . 14 ((0 ∈ ℝ ∧ 1 ∈ ℝ ∧ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ∈ ℝ) β†’ ((0 + 1) ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ↔ 0 ≀ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))
184173, 126, 182, 183syl3anc 1371 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((0 + 1) ≀ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) ↔ 0 ≀ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))
185181, 184mpbid 231 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ 0 ≀ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))
186146, 185jca 512 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ ((((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„€ ∧ 0 ≀ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))
187 elnn0z 12567 . . . . . . . . . . 11 ((((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„•0 ↔ ((((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„€ ∧ 0 ≀ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))
188186, 187sylibr 233 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) ∧ Β¬ π‘˜ = 1) β†’ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) ∈ β„•0)
18957, 58, 81, 188ifbothda 4565 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) ∧ Β¬ π‘˜ = (𝐾 + 1)) β†’ if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) ∈ β„•0)
1907, 8, 56, 189ifbothda 4565 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) ∈ β„•0)
1911903expa 1118 . . . . . . 7 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ π‘˜ ∈ (1...(𝐾 + 1))) β†’ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) ∈ β„•0)
192191fmpttd 7111 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))):(1...(𝐾 + 1))βŸΆβ„•0)
193 eqidd 2733 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))))
194 simpr 485 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ π‘˜ = 𝑖)
195194eqeq1d 2734 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ (π‘˜ = (𝐾 + 1) ↔ 𝑖 = (𝐾 + 1)))
196194eqeq1d 2734 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ (π‘˜ = 1 ↔ 𝑖 = 1))
197194fveq2d 6892 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ (π‘β€˜π‘˜) = (π‘β€˜π‘–))
198194fvoveq1d 7427 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ (π‘β€˜(π‘˜ βˆ’ 1)) = (π‘β€˜(𝑖 βˆ’ 1)))
199197, 198oveq12d 7423 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ ((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) = ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
200199oveq1d 7420 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1) = (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))
201196, 200ifbieq2d 4553 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)))
202195, 201ifbieq2d 4553 . . . . . . . . 9 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ π‘˜ = 𝑖) β†’ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))) = if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))))
203 simpr 485 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ∈ (1...(𝐾 + 1)))
204 ovexd 7440 . . . . . . . . . 10 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ V)
205 ovexd 7440 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ ((π‘β€˜1) βˆ’ 1) ∈ V)
206 ovexd 7440 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) ∈ V)
207205, 206ifcld 4573 . . . . . . . . . 10 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) ∈ V)
208204, 207ifcld 4573 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ V)
209193, 202, 203, 208fvmptd 7002 . . . . . . . 8 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))))
210209sumeq2dv 15645 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = Σ𝑖 ∈ (1...(𝐾 + 1))if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))))
2111adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ β„•)
212 nnuz 12861 . . . . . . . . . 10 β„• = (β„€β‰₯β€˜1)
213211, 212eleqtrdi 2843 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ (β„€β‰₯β€˜1))
214 eleq1 2821 . . . . . . . . . . . 12 (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) = if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) β†’ (((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„€ ↔ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ β„€))
215 eleq1 2821 . . . . . . . . . . . 12 (if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) β†’ (if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) ∈ β„€ ↔ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ β„€))
216113adant3 1132 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑁 ∈ β„€)
217216adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ 𝑁 ∈ β„€)
218133adant3 1132 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝐾 ∈ β„€)
219218adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ 𝐾 ∈ β„€)
220217, 219zaddcld 12666 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ (𝑁 + 𝐾) ∈ β„€)
221383adant3 1132 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ (π‘β€˜πΎ) ∈ β„•)
222221adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ (π‘β€˜πΎ) ∈ β„•)
223222nnzd 12581 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ (π‘β€˜πΎ) ∈ β„€)
224220, 223zsubcld 12667 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ 𝑖 = (𝐾 + 1)) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„€)
225 eleq1 2821 . . . . . . . . . . . . 13 (((π‘β€˜1) βˆ’ 1) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) β†’ (((π‘β€˜1) βˆ’ 1) ∈ β„€ ↔ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) ∈ β„€))
226 eleq1 2821 . . . . . . . . . . . . 13 ((((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) β†’ ((((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) ∈ β„€ ↔ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) ∈ β„€))
227653adant3 1132 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ (π‘β€˜1) ∈ β„€)
228227adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (π‘β€˜1) ∈ β„€)
229228adantr 481 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ 𝑖 = 1) β†’ (π‘β€˜1) ∈ β„€)
230 1zzd 12589 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ 𝑖 = 1) β†’ 1 ∈ β„€)
231229, 230zsubcld 12667 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ 𝑖 = 1) β†’ ((π‘β€˜1) βˆ’ 1) ∈ β„€)
232293adant3 1132 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
233232adantr 481 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
234233adantr 481 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
235 1zzd 12589 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 1 ∈ β„€)
236218adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝐾 ∈ β„€)
237 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 ∈ (1...(𝐾 + 1)) β†’ 𝑖 ∈ β„•)
238237adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ∈ β„•)
2392383impa 1110 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ∈ β„•)
240239nnzd 12581 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ∈ β„€)
241240adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 ∈ β„€)
242239nnge1d 12256 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 1 ≀ 𝑖)
243242adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 1 ≀ 𝑖)
244 simp3 1138 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ∈ (1...(𝐾 + 1)))
245 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑖 ∈ (1...(𝐾 + 1)) β†’ 𝑖 ≀ (𝐾 + 1))
246244, 245syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑖 ≀ (𝐾 + 1))
247246adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 ≀ (𝐾 + 1))
248 neqne 2948 . . . . . . . . . . . . . . . . . . . . . . . . 25 (Β¬ 𝑖 = (𝐾 + 1) β†’ 𝑖 β‰  (𝐾 + 1))
249248adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 β‰  (𝐾 + 1))
250249necomd 2996 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (𝐾 + 1) β‰  𝑖)
251247, 250jca 512 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (𝑖 ≀ (𝐾 + 1) ∧ (𝐾 + 1) β‰  𝑖))
252241zred 12662 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 ∈ ℝ)
253236zred 12662 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝐾 ∈ ℝ)
254 1red 11211 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 1 ∈ ℝ)
255253, 254readdcld 11239 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (𝐾 + 1) ∈ ℝ)
256252, 255ltlend 11355 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (𝑖 < (𝐾 + 1) ↔ (𝑖 ≀ (𝐾 + 1) ∧ (𝐾 + 1) β‰  𝑖)))
257251, 256mpbird 256 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 < (𝐾 + 1))
258 zleltp1 12609 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ β„€ ∧ 𝐾 ∈ β„€) β†’ (𝑖 ≀ 𝐾 ↔ 𝑖 < (𝐾 + 1)))
259241, 236, 258syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ (𝑖 ≀ 𝐾 ↔ 𝑖 < (𝐾 + 1)))
260257, 259mpbird 256 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 ≀ 𝐾)
261235, 236, 241, 243, 260elfzd 13488 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ 𝑖 ∈ (1...𝐾))
262261adantr 481 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ∈ (1...𝐾))
263234, 262ffvelcdmd 7084 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜π‘–) ∈ (1...(𝑁 + 𝐾)))
264 elfznn 13526 . . . . . . . . . . . . . . . . 17 ((π‘β€˜π‘–) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘–) ∈ β„•)
265263, 264syl 17 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜π‘–) ∈ β„•)
266265nnzd 12581 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜π‘–) ∈ β„€)
267 1zzd 12589 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 1 ∈ β„€)
268236adantr 481 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝐾 ∈ β„€)
269241adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ∈ β„€)
270269, 267zsubcld 12667 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ∈ β„€)
271243adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 1 ≀ 𝑖)
272 neqne 2948 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ 𝑖 = 1 β†’ 𝑖 β‰  1)
273272adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 β‰  1)
274271, 273jca 512 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (1 ≀ 𝑖 ∧ 𝑖 β‰  1))
275 1red 11211 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 1 ∈ ℝ)
276269zred 12662 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ∈ ℝ)
277275, 276ltlend 11355 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (1 < 𝑖 ↔ (1 ≀ 𝑖 ∧ 𝑖 β‰  1)))
278274, 277mpbird 256 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 1 < 𝑖)
279 zltp1le 12608 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ β„€ ∧ 𝑖 ∈ β„€) β†’ (1 < 𝑖 ↔ (1 + 1) ≀ 𝑖))
280267, 269, 279syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (1 < 𝑖 ↔ (1 + 1) ≀ 𝑖))
281278, 280mpbid 231 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (1 + 1) ≀ 𝑖)
282 leaddsub 11686 . . . . . . . . . . . . . . . . . . . . 21 ((1 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑖 ∈ ℝ) β†’ ((1 + 1) ≀ 𝑖 ↔ 1 ≀ (𝑖 βˆ’ 1)))
283275, 275, 276, 282syl3anc 1371 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ ((1 + 1) ≀ 𝑖 ↔ 1 ≀ (𝑖 βˆ’ 1)))
284281, 283mpbid 231 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 1 ≀ (𝑖 βˆ’ 1))
285247adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ≀ (𝐾 + 1))
286253adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ 𝐾 ∈ ℝ)
287 lesubadd 11682 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝐾 ∈ ℝ) β†’ ((𝑖 βˆ’ 1) ≀ 𝐾 ↔ 𝑖 ≀ (𝐾 + 1)))
288276, 275, 286, 287syl3anc 1371 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ ((𝑖 βˆ’ 1) ≀ 𝐾 ↔ 𝑖 ≀ (𝐾 + 1)))
289285, 288mpbird 256 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ≀ 𝐾)
290267, 268, 270, 284, 289elfzd 13488 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ∈ (1...𝐾))
291234, 290ffvelcdmd 7084 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ (1...(𝑁 + 𝐾)))
292 elfznn 13526 . . . . . . . . . . . . . . . . 17 ((π‘β€˜(𝑖 βˆ’ 1)) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ β„•)
293291, 292syl 17 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ β„•)
294293nnzd 12581 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ β„€)
295266, 294zsubcld 12667 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) ∈ β„€)
296295, 267zsubcld 12667 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) ∧ Β¬ 𝑖 = 1) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) ∈ β„€)
297225, 226, 231, 296ifbothda 4565 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) ∧ Β¬ 𝑖 = (𝐾 + 1)) β†’ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) ∈ β„€)
298214, 215, 224, 297ifbothda 4565 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ 𝐡 ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ β„€)
2992983expa 1118 . . . . . . . . . 10 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ β„€)
300299zcnd 12663 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) ∈ β„‚)
301 eqeq1 2736 . . . . . . . . . 10 (𝑖 = (𝐾 + 1) β†’ (𝑖 = (𝐾 + 1) ↔ (𝐾 + 1) = (𝐾 + 1)))
302 eqeq1 2736 . . . . . . . . . . 11 (𝑖 = (𝐾 + 1) β†’ (𝑖 = 1 ↔ (𝐾 + 1) = 1))
303 fveq2 6888 . . . . . . . . . . . . 13 (𝑖 = (𝐾 + 1) β†’ (π‘β€˜π‘–) = (π‘β€˜(𝐾 + 1)))
304 fvoveq1 7428 . . . . . . . . . . . . 13 (𝑖 = (𝐾 + 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) = (π‘β€˜((𝐾 + 1) βˆ’ 1)))
305303, 304oveq12d 7423 . . . . . . . . . . . 12 (𝑖 = (𝐾 + 1) β†’ ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) = ((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))))
306305oveq1d 7420 . . . . . . . . . . 11 (𝑖 = (𝐾 + 1) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1))
307302, 306ifbieq2d 4553 . . . . . . . . . 10 (𝑖 = (𝐾 + 1) β†’ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1)))
308301, 307ifbieq2d 4553 . . . . . . . . 9 (𝑖 = (𝐾 + 1) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) = if((𝐾 + 1) = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1))))
309213, 300, 308fsump1 15698 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...(𝐾 + 1))if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) = (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + if((𝐾 + 1) = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1)))))
310 eqidd 2733 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝐾 + 1) = (𝐾 + 1))
311310iftrued 4535 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ if((𝐾 + 1) = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1))) = ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)))
312311oveq2d 7421 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + if((𝐾 + 1) = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1)))) = (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
313 elfznn 13526 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (1...𝐾) β†’ 𝑖 ∈ β„•)
314313adantl 482 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 ∈ β„•)
315314nnred 12223 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 ∈ ℝ)
31633adantr 481 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝐾 ∈ ℝ)
317 1red 11211 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 1 ∈ ℝ)
318316, 317readdcld 11239 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (𝐾 + 1) ∈ ℝ)
319 elfzle2 13501 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (1...𝐾) β†’ 𝑖 ≀ 𝐾)
320319adantl 482 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 ≀ 𝐾)
321316ltp1d 12140 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝐾 < (𝐾 + 1))
322315, 316, 318, 320, 321lelttrd 11368 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 < (𝐾 + 1))
323315, 322ltned 11346 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 β‰  (𝐾 + 1))
324323neneqd 2945 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ Β¬ 𝑖 = (𝐾 + 1))
325324iffalsed 4538 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)))
326325sumeq2dv 15645 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) = Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)))
327326oveq1d 7420 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = (Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
328 eqeq1 2736 . . . . . . . . . . . . . 14 (((π‘β€˜1) βˆ’ 1) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) β†’ (((π‘β€˜1) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) ↔ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1)))
329 eqeq1 2736 . . . . . . . . . . . . . 14 ((((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) β†’ ((((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) ↔ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1)))
330 eqidd 2733 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ ((π‘β€˜1) βˆ’ 1) = ((π‘β€˜1) βˆ’ 1))
331 simpr 485 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ 𝑖 = 1)
332331iftrued 4535 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜1))
333332eqcomd 2738 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ (π‘β€˜1) = if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))))
334333oveq1d 7420 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ ((π‘β€˜1) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
335330, 334eqtrd 2772 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ ((π‘β€˜1) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
336 eqidd 2733 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))
337 simpr 485 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ Β¬ 𝑖 = 1)
338337iffalsed 4538 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
339338oveq1d 7420 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))
340339eqcomd 2738 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
341336, 340eqtrd 2772 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
342328, 329, 335, 341ifbothda 4565 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
343342sumeq2dv 15645 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) = Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1))
344343oveq1d 7420 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = (Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
345 fzfid 13934 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (1...𝐾) ∈ Fin)
346 eleq1 2821 . . . . . . . . . . . . . . . . . . . . 21 ((π‘β€˜1) = if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) β†’ ((π‘β€˜1) ∈ β„€ ↔ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) ∈ β„€))
347 eleq1 2821 . . . . . . . . . . . . . . . . . . . . 21 (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) = if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) β†’ (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) ∈ β„€ ↔ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) ∈ β„€))
34865ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ 𝑖 = 1) β†’ (π‘β€˜1) ∈ β„€)
34929adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
350 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 ∈ (1...𝐾))
351349, 350ffvelcdmd 7084 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (π‘β€˜π‘–) ∈ (1...(𝑁 + 𝐾)))
352264nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘β€˜π‘–) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘–) ∈ β„€)
353351, 352syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (π‘β€˜π‘–) ∈ β„€)
354353adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜π‘–) ∈ β„€)
355349adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
356 1zzd 12589 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 1 ∈ β„€)
35713ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 𝐾 ∈ β„€)
358314nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 𝑖 ∈ β„€)
359358adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ∈ β„€)
360359, 356zsubcld 12667 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ∈ β„€)
361314nnge1d 12256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 1 ≀ 𝑖)
362361adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 1 ≀ 𝑖)
363337, 272syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 β‰  1)
364362, 363jca 512 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (1 ≀ 𝑖 ∧ 𝑖 β‰  1))
365317adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 1 ∈ ℝ)
366315adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 𝑖 ∈ ℝ)
367365, 366ltlend 11355 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (1 < 𝑖 ↔ (1 ≀ 𝑖 ∧ 𝑖 β‰  1)))
368364, 367mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 1 < 𝑖)
369 zltlem1 12611 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((1 ∈ β„€ ∧ 𝑖 ∈ β„€) β†’ (1 < 𝑖 ↔ 1 ≀ (𝑖 βˆ’ 1)))
370356, 359, 369syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (1 < 𝑖 ↔ 1 ≀ (𝑖 βˆ’ 1)))
371368, 370mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ 1 ≀ (𝑖 βˆ’ 1))
372315, 317resubcld 11638 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (𝑖 βˆ’ 1) ∈ ℝ)
373315lem1d 12143 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (𝑖 βˆ’ 1) ≀ 𝑖)
374372, 315, 316, 373, 320letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (𝑖 βˆ’ 1) ≀ 𝐾)
375374adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ≀ 𝐾)
376356, 357, 360, 371, 375elfzd 13488 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (𝑖 βˆ’ 1) ∈ (1...𝐾))
377355, 376ffvelcdmd 7084 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ (1...(𝑁 + 𝐾)))
378377, 292syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ β„•)
379378nnzd 12581 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ (π‘β€˜(𝑖 βˆ’ 1)) ∈ β„€)
380354, 379zsubcld 12667 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) ∧ Β¬ 𝑖 = 1) β†’ ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) ∈ β„€)
381346, 347, 348, 380ifbothda 4565 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) ∈ β„€)
382381zcnd 12663 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) ∈ β„‚)
38367adantr 481 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 1 ∈ β„‚)
384345, 382, 383fsumsub 15730 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ Σ𝑖 ∈ (1...𝐾)1))
385 id 22 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 1 β†’ 𝑖 = 1)
386385iftrued 4535 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 1 β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜1))
387213, 382, 386fsum1p 15695 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))))
38859adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 1 ∈ ℝ)
389 elfzle1 13500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 ∈ ((1 + 1)...𝐾) β†’ (1 + 1) ≀ 𝑖)
390389adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ (1 + 1) ≀ 𝑖)
39130adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 1 ∈ β„€)
392 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 ∈ ((1 + 1)...𝐾) β†’ 𝑖 ∈ β„€)
393392adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 𝑖 ∈ β„€)
394391, 393, 279syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ (1 < 𝑖 ↔ (1 + 1) ≀ 𝑖))
395390, 394mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 1 < 𝑖)
396388, 395ltned 11346 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 1 β‰  𝑖)
397396necomd 2996 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ 𝑖 β‰  1)
398397neneqd 2945 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ Β¬ 𝑖 = 1)
399398iffalsed 4538 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...𝐾)) β†’ if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
400399sumeq2dv 15645 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ ((1 + 1)...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = Σ𝑖 ∈ ((1 + 1)...𝐾)((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
401400oveq2d 7421 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))) = ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))))
40233recnd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ β„‚)
403402, 67npcand 11571 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝐾 βˆ’ 1) + 1) = 𝐾)
404403eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 = ((𝐾 βˆ’ 1) + 1))
405404oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((1 + 1)...𝐾) = ((1 + 1)...((𝐾 βˆ’ 1) + 1)))
406405sumeq1d 15643 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ ((1 + 1)...𝐾)((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) = Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
407406oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))))
408 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1)) β†’ 𝑖 ∈ β„€)
409408adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ 𝑖 ∈ β„€)
410409zcnd 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ 𝑖 ∈ β„‚)
411 1cnd 11205 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ 1 ∈ β„‚)
412410, 411npcand 11571 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ ((𝑖 βˆ’ 1) + 1) = 𝑖)
413412eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ 𝑖 = ((𝑖 βˆ’ 1) + 1))
414413fveq2d 6892 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ (π‘β€˜π‘–) = (π‘β€˜((𝑖 βˆ’ 1) + 1)))
415 eqidd 2733 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ (π‘β€˜(𝑖 βˆ’ 1)) = (π‘β€˜(𝑖 βˆ’ 1)))
416414, 415oveq12d 7423 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))) β†’ ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) = ((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
417416sumeq2dv 15645 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) = Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
418417oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))))
41913, 30zsubcld 12667 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝐾 βˆ’ 1) ∈ β„€)
42029adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
421 1zzd 12589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 1 ∈ β„€)
42213adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝐾 ∈ β„€)
423 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑠 ∈ (1...(𝐾 βˆ’ 1)) β†’ 𝑠 ∈ β„•)
424423adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ∈ β„•)
425424nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ∈ β„€)
426425peano2zd 12665 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝑠 + 1) ∈ β„€)
427 1red 11211 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 1 ∈ ℝ)
428424nnred 12223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ∈ ℝ)
429428, 427readdcld 11239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝑠 + 1) ∈ ℝ)
430424nnge1d 12256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 1 ≀ 𝑠)
431428lep1d 12141 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ≀ (𝑠 + 1))
432427, 428, 429, 430, 431letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 1 ≀ (𝑠 + 1))
433 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑠 ∈ (1...(𝐾 βˆ’ 1)) β†’ 𝑠 ≀ (𝐾 βˆ’ 1))
434433adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ≀ (𝐾 βˆ’ 1))
43533adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝐾 ∈ ℝ)
436 leaddsub 11686 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑠 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝐾 ∈ ℝ) β†’ ((𝑠 + 1) ≀ 𝐾 ↔ 𝑠 ≀ (𝐾 βˆ’ 1)))
437428, 427, 435, 436syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ ((𝑠 + 1) ≀ 𝐾 ↔ 𝑠 ≀ (𝐾 βˆ’ 1)))
438434, 437mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝑠 + 1) ≀ 𝐾)
439421, 422, 426, 432, 438elfzd 13488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝑠 + 1) ∈ (1...𝐾))
440420, 439ffvelcdmd 7084 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (π‘β€˜(𝑠 + 1)) ∈ (1...(𝑁 + 𝐾)))
441 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘β€˜(𝑠 + 1)) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜(𝑠 + 1)) ∈ β„•)
442440, 441syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (π‘β€˜(𝑠 + 1)) ∈ β„•)
443442nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (π‘β€˜(𝑠 + 1)) ∈ β„€)
444435, 427resubcld 11638 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝐾 βˆ’ 1) ∈ ℝ)
445435lem1d 12143 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (𝐾 βˆ’ 1) ≀ 𝐾)
446428, 444, 435, 434, 445letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ≀ 𝐾)
447421, 422, 425, 430, 446elfzd 13488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ 𝑠 ∈ (1...𝐾))
448420, 447ffvelcdmd 7084 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (π‘β€˜π‘ ) ∈ (1...(𝑁 + 𝐾)))
449 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘β€˜π‘ ) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘ ) ∈ β„•)
450449nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((π‘β€˜π‘ ) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘ ) ∈ β„€)
451448, 450syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ (π‘β€˜π‘ ) ∈ β„€)
452443, 451zsubcld 12667 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ ((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) ∈ β„€)
453452zcnd 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑠 ∈ (1...(𝐾 βˆ’ 1))) β†’ ((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) ∈ β„‚)
454 fvoveq1 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑠 = (𝑖 βˆ’ 1) β†’ (π‘β€˜(𝑠 + 1)) = (π‘β€˜((𝑖 βˆ’ 1) + 1)))
455 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑠 = (𝑖 βˆ’ 1) β†’ (π‘β€˜π‘ ) = (π‘β€˜(𝑖 βˆ’ 1)))
456454, 455oveq12d 7423 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑠 = (𝑖 βˆ’ 1) β†’ ((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) = ((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
45730, 30, 419, 453, 456fsumshft 15722 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) = Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))
458457oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ ))) = ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))))
459458eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = ((π‘β€˜1) + Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ ))))
460 fvoveq1 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑠 = 𝑖 β†’ (π‘β€˜(𝑠 + 1)) = (π‘β€˜(𝑖 + 1)))
461 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑠 = 𝑖 β†’ (π‘β€˜π‘ ) = (π‘β€˜π‘–))
462460, 461oveq12d 7423 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑠 = 𝑖 β†’ ((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) = ((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–)))
463 nfcv 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Ⅎ𝑖(1...(𝐾 βˆ’ 1))
464 nfcv 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Ⅎ𝑠(1...(𝐾 βˆ’ 1))
465 nfcv 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Ⅎ𝑖((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ ))
466 nfcv 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Ⅎ𝑠((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–))
467462, 463, 464, 465, 466cbvsum 15637 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) = Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–))
468467a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ )) = Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–)))
469468oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ ))) = ((π‘β€˜1) + Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–))))
470 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑀 = 𝑖 β†’ (π‘β€˜π‘€) = (π‘β€˜π‘–))
471 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑀 = (𝑖 + 1) β†’ (π‘β€˜π‘€) = (π‘β€˜(𝑖 + 1)))
472 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑀 = 1 β†’ (π‘β€˜π‘€) = (π‘β€˜1))
473 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑀 = ((𝐾 βˆ’ 1) + 1) β†’ (π‘β€˜π‘€) = (π‘β€˜((𝐾 βˆ’ 1) + 1)))
474403, 213eqeltrd 2833 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝐾 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1))
47529adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝑏:(1...𝐾)⟢(1...(𝑁 + 𝐾)))
476 1zzd 12589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 1 ∈ β„€)
47713adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝐾 ∈ β„€)
478 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1)) β†’ 𝑀 ∈ β„€)
479478adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝑀 ∈ β„€)
480 elfzle1 13500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1)) β†’ 1 ≀ 𝑀)
481480adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 1 ≀ 𝑀)
482 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1)) β†’ 𝑀 ≀ ((𝐾 βˆ’ 1) + 1))
483482adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝑀 ≀ ((𝐾 βˆ’ 1) + 1))
484403adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ ((𝐾 βˆ’ 1) + 1) = 𝐾)
485483, 484breqtrd 5173 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝑀 ≀ 𝐾)
486476, 477, 479, 481, 485elfzd 13488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ 𝑀 ∈ (1...𝐾))
487475, 486ffvelcdmd 7084 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ (π‘β€˜π‘€) ∈ (1...(𝑁 + 𝐾)))
488 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((π‘β€˜π‘€) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘€) ∈ β„•)
489488nncnd 12224 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((π‘β€˜π‘€) ∈ (1...(𝑁 + 𝐾)) β†’ (π‘β€˜π‘€) ∈ β„‚)
490487, 489syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑀 ∈ (1...((𝐾 βˆ’ 1) + 1))) β†’ (π‘β€˜π‘€) ∈ β„‚)
491470, 471, 472, 473, 419, 474, 490telfsum2 15747 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–)) = ((π‘β€˜((𝐾 βˆ’ 1) + 1)) βˆ’ (π‘β€˜1)))
492491oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–))) = ((π‘β€˜1) + ((π‘β€˜((𝐾 βˆ’ 1) + 1)) βˆ’ (π‘β€˜1))))
49372recnd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜1) ∈ β„‚)
49438nncnd 12224 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) ∈ β„‚)
495403fveq2d 6892 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜((𝐾 βˆ’ 1) + 1)) = (π‘β€˜πΎ))
496495eleq1d 2818 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜((𝐾 βˆ’ 1) + 1)) ∈ β„‚ ↔ (π‘β€˜πΎ) ∈ β„‚))
497494, 496mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜((𝐾 βˆ’ 1) + 1)) ∈ β„‚)
498493, 497pncan3d 11570 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + ((π‘β€˜((𝐾 βˆ’ 1) + 1)) βˆ’ (π‘β€˜1))) = (π‘β€˜((𝐾 βˆ’ 1) + 1)))
499498, 495eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + ((π‘β€˜((𝐾 βˆ’ 1) + 1)) βˆ’ (π‘β€˜1))) = (π‘β€˜πΎ))
500492, 499eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑖 + 1)) βˆ’ (π‘β€˜π‘–))) = (π‘β€˜πΎ))
501469, 500eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑠 ∈ (1...(𝐾 βˆ’ 1))((π‘β€˜(𝑠 + 1)) βˆ’ (π‘β€˜π‘ ))) = (π‘β€˜πΎ))
502459, 501eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜((𝑖 βˆ’ 1) + 1)) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜πΎ))
503418, 502eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...((𝐾 βˆ’ 1) + 1))((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜πΎ))
504407, 503eqtrd 2772 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜πΎ))
505401, 504eqtrd 2772 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜1) + Σ𝑖 ∈ ((1 + 1)...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))))) = (π‘β€˜πΎ))
506387, 505eqtrd 2772 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) = (π‘β€˜πΎ))
507 fsumconst 15732 . . . . . . . . . . . . . . . . . . . . 21 (((1...𝐾) ∈ Fin ∧ 1 ∈ β„‚) β†’ Σ𝑖 ∈ (1...𝐾)1 = ((β™―β€˜(1...𝐾)) Β· 1))
508345, 67, 507syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)1 = ((β™―β€˜(1...𝐾)) Β· 1))
509211nnnn0d 12528 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐾 ∈ β„•0)
510 hashfz1 14302 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐾 ∈ β„•0 β†’ (β™―β€˜(1...𝐾)) = 𝐾)
511509, 510syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (β™―β€˜(1...𝐾)) = 𝐾)
512511oveq1d 7420 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((β™―β€˜(1...𝐾)) Β· 1) = (𝐾 Β· 1))
513402mulridd 11227 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝐾 Β· 1) = 𝐾)
514512, 513eqtrd 2772 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((β™―β€˜(1...𝐾)) Β· 1) = 𝐾)
515508, 514eqtrd 2772 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)1 = 𝐾)
516506, 515oveq12d 7423 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ Σ𝑖 ∈ (1...𝐾)1) = ((π‘β€˜πΎ) βˆ’ 𝐾))
517384, 516eqtrd 2772 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = ((π‘β€˜πΎ) βˆ’ 𝐾))
51842addlidd 11411 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (0 + (π‘β€˜πΎ)) = (π‘β€˜πΎ))
519518eqcomd 2738 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘β€˜πΎ) = (0 + (π‘β€˜πΎ)))
520519oveq1d 7420 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘β€˜πΎ) βˆ’ 𝐾) = ((0 + (π‘β€˜πΎ)) βˆ’ 𝐾))
521517, 520eqtrd 2772 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = ((0 + (π‘β€˜πΎ)) βˆ’ 𝐾))
522 0cnd 11203 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 0 ∈ β„‚)
523522, 402, 42subsub3d 11597 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (0 βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))) = ((0 + (π‘β€˜πΎ)) βˆ’ 𝐾))
524523eqcomd 2738 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((0 + (π‘β€˜πΎ)) βˆ’ 𝐾) = (0 βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))))
525521, 524eqtrd 2772 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (0 βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))))
52611zcnd 12663 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝑁 ∈ β„‚)
527526subidd 11555 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑁 βˆ’ 𝑁) = 0)
528527eqcomd 2738 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 0 = (𝑁 βˆ’ 𝑁))
529528oveq1d 7420 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (0 βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))) = ((𝑁 βˆ’ 𝑁) βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))))
530525, 529eqtrd 2772 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = ((𝑁 βˆ’ 𝑁) βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))))
531402, 42subcld 11567 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝐾 βˆ’ (π‘β€˜πΎ)) ∈ β„‚)
532526, 526, 531subsub4d 11598 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝑁 βˆ’ 𝑁) βˆ’ (𝐾 βˆ’ (π‘β€˜πΎ))) = (𝑁 βˆ’ (𝑁 + (𝐾 βˆ’ (π‘β€˜πΎ)))))
533530, 532eqtrd 2772 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (𝑁 βˆ’ (𝑁 + (𝐾 βˆ’ (π‘β€˜πΎ)))))
534526, 402, 42addsubassd 11587 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) = (𝑁 + (𝐾 βˆ’ (π‘β€˜πΎ))))
535534eqcomd 2738 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑁 + (𝐾 βˆ’ (π‘β€˜πΎ))) = ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)))
536535oveq2d 7421 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (𝑁 βˆ’ (𝑁 + (𝐾 βˆ’ (π‘β€˜πΎ)))) = (𝑁 βˆ’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
537533, 536eqtrd 2772 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (𝑁 βˆ’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))))
538 1zzd 12589 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ 1 ∈ β„€)
539381, 538zsubcld 12667 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑏 ∈ 𝐡) ∧ 𝑖 ∈ (1...𝐾)) β†’ (if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) ∈ β„€)
540345, 539fsumzcl 15677 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) ∈ β„€)
541540zcnd 12663 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) ∈ β„‚)
54253nn0cnd 12530 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)) ∈ β„‚)
543541, 542, 526addlsub 11626 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = 𝑁 ↔ Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) = (𝑁 βˆ’ ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)))))
544537, 543mpbird 256 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)(if(𝑖 = 1, (π‘β€˜1), ((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1)))) βˆ’ 1) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = 𝑁)
545344, 544eqtrd 2772 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1)) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = 𝑁)
546327, 545eqtrd 2772 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ))) = 𝑁)
547312, 546eqtrd 2772 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (Σ𝑖 ∈ (1...𝐾)if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) + if((𝐾 + 1) = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if((𝐾 + 1) = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜(𝐾 + 1)) βˆ’ (π‘β€˜((𝐾 + 1) βˆ’ 1))) βˆ’ 1)))) = 𝑁)
548309, 547eqtrd 2772 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...(𝐾 + 1))if(𝑖 = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(𝑖 = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘–) βˆ’ (π‘β€˜(𝑖 βˆ’ 1))) βˆ’ 1))) = 𝑁)
549210, 548eqtrd 2772 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = 𝑁)
550192, 549jca 512 . . . . 5 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))):(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = 𝑁))
551 ovex 7438 . . . . . . 7 (1...(𝐾 + 1)) ∈ V
552551mptex 7221 . . . . . 6 (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∈ V
553 feq1 6695 . . . . . . 7 (𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) β†’ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ↔ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))):(1...(𝐾 + 1))βŸΆβ„•0))
554 simpl 483 . . . . . . . . . 10 ((𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ 𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))))
555554fveq1d 6890 . . . . . . . . 9 ((𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∧ 𝑖 ∈ (1...(𝐾 + 1))) β†’ (π‘”β€˜π‘–) = ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–))
556555sumeq2dv 15645 . . . . . . . 8 (𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) β†’ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–))
557556eqeq1d 2734 . . . . . . 7 (𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) β†’ (Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁 ↔ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = 𝑁))
558553, 557anbi12d 631 . . . . . 6 (𝑔 = (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) β†’ ((𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁) ↔ ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))):(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = 𝑁)))
559552, 558elab 3667 . . . . 5 ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁)} ↔ ((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))):(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))((π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))β€˜π‘–) = 𝑁))
560550, 559sylibr 233 . . . 4 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁)})
561 sticksstones10.4 . . . . 5 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁)}
562561a1i 11 . . . 4 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))βŸΆβ„•0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(π‘”β€˜π‘–) = 𝑁)})
563560, 562eleqtrrd 2836 . . 3 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1)))) ∈ 𝐴)
5646, 563eqeltrrd 2834 . 2 ((πœ‘ ∧ 𝑏 ∈ 𝐡) β†’ if(𝐾 = 0, {⟨1, π‘βŸ©}, (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))) ∈ 𝐴)
565 sticksstones10.3 . 2 𝐺 = (𝑏 ∈ 𝐡 ↦ if(𝐾 = 0, {⟨1, π‘βŸ©}, (π‘˜ ∈ (1...(𝐾 + 1)) ↦ if(π‘˜ = (𝐾 + 1), ((𝑁 + 𝐾) βˆ’ (π‘β€˜πΎ)), if(π‘˜ = 1, ((π‘β€˜1) βˆ’ 1), (((π‘β€˜π‘˜) βˆ’ (π‘β€˜(π‘˜ βˆ’ 1))) βˆ’ 1))))))
566564, 565fmptd 7110 1 (πœ‘ β†’ 𝐺:𝐡⟢𝐴)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  {cab 2709   β‰  wne 2940  βˆ€wral 3061  Vcvv 3474  ifcif 4527  {csn 4627  βŸ¨cop 4633   class class class wbr 5147   ↦ cmpt 5230  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405  Fincfn 8935  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  β„•cn 12208  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  ...cfz 13480  β™―chash 14286  Ξ£csu 15628
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-fz 13481  df-fzo 13624  df-seq 13963  df-exp 14024  df-hash 14287  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-clim 15428  df-sum 15629
This theorem is referenced by:  sticksstones12  40962
  Copyright terms: Public domain W3C validator