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

Theorem sticksstones12 42643
Description: Establish bijective mapping between strictly monotone functions and functions that sum to a fixed non-negative integer. (Contributed by metakunt, 6-Oct-2024.)
Hypotheses
Ref Expression
sticksstones12.1 (𝜑𝑁 ∈ ℕ0)
sticksstones12.2 (𝜑𝐾 ∈ ℕ)
sticksstones12.3 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))))
sticksstones12.4 𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
sticksstones12.5 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)}
sticksstones12.6 𝐵 = {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓𝑥) < (𝑓𝑦)))}
Assertion
Ref Expression
sticksstones12 (𝜑𝐹:𝐴1-1-onto𝐵)
Distinct variable groups:   𝐴,𝑎,𝑗,𝑘,𝑙   𝐴,𝑏,𝑘,𝑥,𝑦   𝑥,𝑎,𝑦,𝑗,𝑘,𝑙   𝐵,𝑎,𝑖,𝑘,𝑙   𝐵,𝑏   𝐵,𝑗   𝐹,𝑏,𝑘   𝐾,𝑎,𝑓,𝑗,𝑙,𝑥,𝑦   𝐾,𝑏,𝑘,𝑔,𝑖   𝑔,𝑎,𝑖,𝑘,𝑁   𝑓,𝑁,𝑗,𝑙   𝑁,𝑏,𝑘,𝑔,𝑖   𝜑,𝑎,𝑖,𝑘,𝑙   𝜑,𝑏   𝜑,𝑗,𝑥,𝑦   𝑖,𝑏   𝑓,𝑏,𝑥,𝑦   𝑔,𝑏
Allowed substitution hints:   𝜑(𝑓,𝑔)   𝐴(𝑓,𝑔,𝑖)   𝐵(𝑥,𝑦,𝑓,𝑔)   𝐹(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑎,𝑙)   𝐺(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑎,𝑏,𝑙)   𝑁(𝑥,𝑦)

Proof of Theorem sticksstones12
Dummy variables 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sticksstones12.1 . . 3 (𝜑𝑁 ∈ ℕ0)
2 sticksstones12.2 . . . 4 (𝜑𝐾 ∈ ℕ)
32nnnn0d 12489 . . 3 (𝜑𝐾 ∈ ℕ0)
4 sticksstones12.3 . . 3 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))))
5 sticksstones12.5 . . 3 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)}
6 sticksstones12.6 . . 3 𝐵 = {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓𝑥) < (𝑓𝑦)))}
71, 3, 4, 5, 6sticksstones8 42638 . 2 (𝜑𝐹:𝐴𝐵)
8 sticksstones12.4 . . 3 𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
91, 2, 8, 5, 6sticksstones10 42640 . 2 (𝜑𝐺:𝐵𝐴)
108a1i 11 . . . . . . 7 (𝜑𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))))
11 0red 11138 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℝ)
122nngt0d 12217 . . . . . . . . . . . . 13 (𝜑 → 0 < 𝐾)
1311, 12ltned 11273 . . . . . . . . . . . 12 (𝜑 → 0 ≠ 𝐾)
1413necomd 2989 . . . . . . . . . . 11 (𝜑𝐾 ≠ 0)
1514neneqd 2939 . . . . . . . . . 10 (𝜑 → ¬ 𝐾 = 0)
1615iffalsed 4465 . . . . . . . . 9 (𝜑 → if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))
1716adantr 481 . . . . . . . 8 ((𝜑𝑏𝐵) → if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))
1817mpteq2dva 5165 . . . . . . 7 (𝜑 → (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))) = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
1910, 18eqtrd 2774 . . . . . 6 (𝜑𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
2019adantr 481 . . . . 5 ((𝜑𝑐𝐴) → 𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
21 fveq1 6826 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (𝑏𝐾) = ((𝐹𝑐)‘𝐾))
2221oveq2d 7372 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → ((𝑁 + 𝐾) − (𝑏𝐾)) = ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)))
23 fveq1 6826 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → (𝑏‘1) = ((𝐹𝑐)‘1))
2423oveq1d 7371 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → ((𝑏‘1) − 1) = (((𝐹𝑐)‘1) − 1))
25 fveq1 6826 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏𝑘) = ((𝐹𝑐)‘𝑘))
26 fveq1 6826 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏‘(𝑘 − 1)) = ((𝐹𝑐)‘(𝑘 − 1)))
2725, 26oveq12d 7374 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → ((𝑏𝑘) − (𝑏‘(𝑘 − 1))) = (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))))
2827oveq1d 7371 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1) = ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))
2924, 28ifeq12d 4476 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)) = if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))
3022, 29ifeq12d 4476 . . . . . . . 8 (𝑏 = (𝐹𝑐) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3130adantr 481 . . . . . . 7 ((𝑏 = (𝐹𝑐) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3231mpteq2dva 5165 . . . . . 6 (𝑏 = (𝐹𝑐) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
3332adantl 482 . . . . 5 (((𝜑𝑐𝐴) ∧ 𝑏 = (𝐹𝑐)) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
347ffvelcdmda 7025 . . . . 5 ((𝜑𝑐𝐴) → (𝐹𝑐) ∈ 𝐵)
35 fzfid 13926 . . . . . 6 ((𝜑𝑐𝐴) → (1...(𝐾 + 1)) ∈ Fin)
3635mptexd 7168 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) ∈ V)
3720, 33, 34, 36fvmptd 6943 . . . 4 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
384a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
39 simpllr 781 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
4039fveq1d 6829 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
4140sumeq2dv 15655 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
4241oveq2d 7372 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
4342mpteq2dva 5165 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
44 simpr 485 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
45 fzfid 13926 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (1...𝐾) ∈ Fin)
4645mptexd 7168 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
4738, 43, 44, 46fvmptd 6943 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
48 simpr 485 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → 𝑗 = 𝐾)
4948oveq2d 7372 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (1...𝑗) = (1...𝐾))
5049sumeq1d 15653 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
5148, 50oveq12d 7374 . . . . . . . . . . . . . 14 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
52 1zzd 12549 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℤ)
533nn0zd 12540 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℤ)
542nnge1d 12216 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ≤ 𝐾)
552nnred 12180 . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℝ)
5655leidd 11707 . . . . . . . . . . . . . . . 16 (𝜑𝐾𝐾)
5752, 53, 53, 54, 56elfzd 13460 . . . . . . . . . . . . . . 15 (𝜑𝐾 ∈ (1...𝐾))
5857adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝐾 ∈ (1...𝐾))
59 ovexd 7391 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) ∈ V)
6047, 51, 58, 59fvmptd 6943 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘𝐾) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
6160oveq2d 7372 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
621nn0cnd 12491 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℂ)
6362adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑁 ∈ ℂ)
6455recnd 11164 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
6564adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐾 ∈ ℂ)
6663, 65addcomd 11339 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 + 𝐾) = (𝐾 + 𝑁))
6766oveq1d 7371 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
68 1zzd 12549 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ∈ ℤ)
6953ad2antrr 732 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℤ)
7069peano2zd 12627 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℤ)
71 elfzelz 13469 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 𝑙 ∈ ℤ)
7271adantl 482 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℤ)
73 elfzle1 13472 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 1 ≤ 𝑙)
7473adantl 482 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ≤ 𝑙)
7572zred 12624 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℝ)
7655ad2antrr 732 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℝ)
7770zred 12624 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℝ)
78 elfzle2 13473 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ (1...𝐾) → 𝑙𝐾)
7978adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙𝐾)
8076lep1d 12078 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ≤ (𝐾 + 1))
8175, 76, 77, 79, 80letrd 11294 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ≤ (𝐾 + 1))
8268, 70, 72, 74, 81elfzd 13460 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ (1...(𝐾 + 1)))
835eleq2i 2831 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑐𝐴𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
8483bilani 505 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
85 vex 3435 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑐 ∈ V
86 feq1 6633 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (𝑔:(1...(𝐾 + 1))⟶ℕ0𝑐:(1...(𝐾 + 1))⟶ℕ0))
87 simpl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → 𝑔 = 𝑐)
8887fveq1d 6829 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → (𝑔𝑖) = (𝑐𝑖))
8988sumeq2dv 15655 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑔 = 𝑐 → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
9089eqeq1d 2741 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁 ↔ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9186, 90anbi12d 638 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑔 = 𝑐 → ((𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁) ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9285, 91elab 3617 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9392a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑐𝐴) → (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9493biimpd 230 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9584, 94mpd 15 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9695simpld 495 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9796adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9897ffvelcdmda 7025 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
9982, 98mpdan 693 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝑐𝑙) ∈ ℕ0)
10045, 99fsumnn0cl 15689 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℕ0)
101100nn0cnd 12491 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℂ)
10265, 63, 101pnpcand 11533 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
103 eqid 2739 . . . . . . . . . . . . . . . . . . . . . . . 24 1 = 1
104 1p0e1 12291 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 + 0) = 1
105103, 104eqtr4i 2765 . . . . . . . . . . . . . . . . . . . . . . 23 1 = (1 + 0)
106105a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 1 = (1 + 0))
107 1red 11136 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 1 ∈ ℝ)
108 0le1 11664 . . . . . . . . . . . . . . . . . . . . . . . 24 0 ≤ 1
109108a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 0 ≤ 1)
110107, 11, 55, 107, 54, 109le2addd 11760 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (1 + 0) ≤ (𝐾 + 1))
111106, 110eqbrtrd 5094 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ≤ (𝐾 + 1))
11253peano2zd 12627 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝐾 + 1) ∈ ℤ)
113 eluz 12793 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
11452, 112, 113syl2anc 590 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
115111, 114mpbird 258 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ∈ (ℤ‘1))
116115adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (ℤ‘1))
11796ffvelcdmda 7025 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
118117nn0cnd 12491 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℂ)
119 fveq2 6827 . . . . . . . . . . . . . . . . . . 19 (𝑙 = (𝐾 + 1) → (𝑐𝑙) = (𝑐‘(𝐾 + 1)))
120116, 118, 119fsumm1 15704 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
121 1cnd 11130 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 1 ∈ ℂ)
12265, 121pncand 11497 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → ((𝐾 + 1) − 1) = 𝐾)
123122oveq2d 7372 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (1...((𝐾 + 1) − 1)) = (1...𝐾))
124123sumeq1d 15653 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
125124oveq1d 7371 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
126120, 125eqtrd 2774 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
127126eqcomd 2745 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙))
128 fveq2 6827 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (𝑐𝑙) = (𝑐𝑖))
129 nfcv 2901 . . . . . . . . . . . . . . . . . . 19 𝑖(𝑐𝑙)
130 nfcv 2901 . . . . . . . . . . . . . . . . . . 19 𝑙(𝑐𝑖)
131128, 129, 130cbvsum 15648 . . . . . . . . . . . . . . . . . 18 Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖)
132131a1i 11 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
13395simprd 496 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)
134132, 133eqtrd 2774 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = 𝑁)
135127, 134eqtrd 2774 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁)
136 1zzd 12549 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ ℤ)
13753adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝐾 ∈ ℤ)
138137peano2zd 12627 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ ℤ)
139 1e0p1 12677 . . . . . . . . . . . . . . . . . . . . 21 1 = (0 + 1)
140139a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 1 = (0 + 1))
141 0red 11138 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ∈ ℝ)
14255adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 𝐾 ∈ ℝ)
143 1red 11136 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 1 ∈ ℝ)
14411, 55, 12ltled 11285 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 0 ≤ 𝐾)
145144adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ≤ 𝐾)
146141, 142, 143, 145leadd1dd 11755 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (0 + 1) ≤ (𝐾 + 1))
147140, 146eqbrtrd 5094 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ≤ (𝐾 + 1))
14855, 55, 107, 56leadd1dd 11755 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ≤ (𝐾 + 1))
149148adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ≤ (𝐾 + 1))
150136, 138, 138, 147, 149elfzd 13460 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (1...(𝐾 + 1)))
15196, 150ffvelcdmd 7026 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℕ0)
152151nn0cnd 12491 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℂ)
15363, 101, 152subaddd 11514 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)) ↔ (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁))
154135, 153mpbird 258 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)))
155102, 154eqtrd 2774 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15667, 155eqtrd 2774 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15761, 156eqtrd 2774 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
1581573adant3 1138 . . . . . . . . . 10 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
159158adantr 481 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
160 simpr 485 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → 𝑘 = (𝐾 + 1))
161160fveq2d 6831 . . . . . . . . . 10 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) = (𝑐‘(𝐾 + 1)))
162161eqcomd 2745 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐‘(𝐾 + 1)) = (𝑐𝑘))
163159, 162eqtrd 2774 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐𝑘))
16447fveq1d 6829 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘1) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1))
165164oveq1d 7371 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1))
166 eqidd 2740 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
167 simpr 485 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → 𝑗 = 1)
168167oveq2d 7372 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (1...𝑗) = (1...1))
169168sumeq1d 15653 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
170167, 169oveq12d 7374 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
171143leidd 11707 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 1)
17254adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 𝐾)
173136, 137, 136, 171, 172elfzd 13460 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → 1 ∈ (1...𝐾))
174 ovexd 7391 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) ∈ V)
175166, 170, 173, 174fvmptd 6943 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
176175oveq1d 7371 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1))
177 fzfid 13926 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (1...1) ∈ Fin)
178 1zzd 12549 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℤ)
179137adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝐾 ∈ ℤ)
180179peano2zd 12627 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℤ)
181 elfzelz 13469 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 𝑙 ∈ ℤ)
182181adantl 482 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℤ)
183 elfzle1 13472 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 1 ≤ 𝑙)
184183adantl 482 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ≤ 𝑙)
185182zred 12624 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℝ)
186 0red 11138 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 0 ∈ ℝ)
187 1red 11136 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℝ)
188186, 187readdcld 11165 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ∈ ℝ)
189180zred 12624 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℝ)
190 elfzle2 13473 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑙 ∈ (1...1) → 𝑙 ≤ 1)
191190adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ 1)
192139a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 = (0 + 1))
193191, 192breqtrd 5098 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (0 + 1))
194146adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ≤ (𝐾 + 1))
195185, 188, 189, 193, 194letrd 11294 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (𝐾 + 1))
196178, 180, 182, 184, 195elfzd 13460 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ (1...(𝐾 + 1)))
197117adantlr 721 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
198196, 197mpdan 693 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝑐𝑙) ∈ ℕ0)
199177, 198fsumnn0cl 15689 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℕ0)
200199nn0cnd 12491 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℂ)
201121, 200pncan2d 11498 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
202136, 138, 136, 171, 147elfzd 13460 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ (1...(𝐾 + 1)))
20396, 202ffvelcdmd 7026 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ0)
204203nn0cnd 12491 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
205 fveq2 6827 . . . . . . . . . . . . . . . . . 18 (𝑙 = 1 → (𝑐𝑙) = (𝑐‘1))
206205fsum1 15700 . . . . . . . . . . . . . . . . 17 ((1 ∈ ℤ ∧ (𝑐‘1) ∈ ℂ) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
207136, 204, 206syl2anc 590 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
208201, 207eqtrd 2774 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = (𝑐‘1))
209176, 208eqtrd 2774 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = (𝑐‘1))
210165, 209eqtrd 2774 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
2112103adant3 1138 . . . . . . . . . . . 12 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
212211adantr 481 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
213212adantr 481 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
214 simpr 485 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → 𝑘 = 1)
215214fveq2d 6831 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐𝑘) = (𝑐‘1))
216215eqcomd 2745 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐‘1) = (𝑐𝑘))
217213, 216eqtrd 2774 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐𝑘))
2184a1i 11 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
219 simpllr 781 . . . . . . . . . . . . . . . . . 18 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
220219fveq1d 6829 . . . . . . . . . . . . . . . . 17 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
221220sumeq2dv 15655 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
222221oveq2d 7372 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
223222mpteq2dva 5165 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
224 simpll2 1220 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐𝐴)
225 fzfid 13926 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝐾) ∈ Fin)
226225mptexd 7168 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
227218, 223, 224, 226fvmptd 6943 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
228227fveq1d 6829 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘𝑘) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘))
229227fveq1d 6829 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘(𝑘 − 1)) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)))
230228, 229oveq12d 7374 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))))
231230oveq1d 7371 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1))
232 eqidd 2740 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
233 simpr 485 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → 𝑗 = 𝑘)
234233oveq2d 7372 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (1...𝑗) = (1...𝑘))
235234sumeq1d 15653 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
236233, 235oveq12d 7374 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
237 1zzd 12549 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
2381373adant3 1138 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝐾 ∈ ℤ)
239238adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝐾 ∈ ℤ)
240239adantr 481 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
241 elfznn 13498 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℕ)
2422413ad2ant3 1141 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℕ)
243242nnzd 12541 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
244243adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℤ)
245244adantr 481 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
246242nnge1d 12216 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ≤ 𝑘)
247246adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ≤ 𝑘)
248247adantr 481 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
249 simpl3 1200 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (1...(𝐾 + 1)))
250 1zzd 12549 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ∈ ℤ)
251239peano2zd 12627 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℤ)
252 elfz 13458 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑘 ∈ ℤ ∧ 1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
253244, 250, 251, 252syl3anc 1379 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
254253biimpd 230 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
255249, 254mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1)))
256255simprd 496 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
257 neqne 2942 . . . . . . . . . . . . . . . . . . . . 21 𝑘 = (𝐾 + 1) → 𝑘 ≠ (𝐾 + 1))
258257adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≠ (𝐾 + 1))
259258necomd 2989 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑘)
260256, 259jca 516 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘))
261244zred 12624 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℝ)
262251zred 12624 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
263261, 262ltlend 11282 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 < (𝐾 + 1) ↔ (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘)))
264260, 263mpbird 258 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 < (𝐾 + 1))
265 zleltp1 12569 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑘𝐾𝑘 < (𝐾 + 1)))
266244, 239, 265syl2anc 590 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘𝐾𝑘 < (𝐾 + 1)))
267264, 266mpbird 258 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘𝐾)
268267adantr 481 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘𝐾)
269237, 240, 245, 248, 268elfzd 13460 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...𝐾))
270 ovexd 7391 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) ∈ V)
271232, 236, 269, 270fvmptd 6943 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
272 simpr 485 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → 𝑗 = (𝑘 − 1))
273272oveq2d 7372 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (1...𝑗) = (1...(𝑘 − 1)))
274273sumeq1d 15653 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))
275272, 274oveq12d 7374 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
276 1zzd 12549 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
27753ad2antrr 732 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
2782773impa 1115 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
279241nnzd 12541 . . . . . . . . . . . . . . . . . . . . . 22 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℤ)
280279adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
281280adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
2822813impa 1115 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
283282, 276zsubcld 12629 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℤ)
284 neqne 2942 . . . . . . . . . . . . . . . . . . . . . 22 𝑘 = 1 → 𝑘 ≠ 1)
2852843ad2ant3 1141 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≠ 1)
2861073ad2ant1 1139 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
287282zred 12624 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℝ)
288 simp2 1143 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...(𝐾 + 1)))
289 elfzle1 13472 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑘 ∈ (1...(𝐾 + 1)) → 1 ≤ 𝑘)
290288, 289syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
291286, 287, 290leltned 11290 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘𝑘 ≠ 1))
292285, 291mpbird 258 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 < 𝑘)
293276, 282zltp1led 12573 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘 ↔ (1 + 1) ≤ 𝑘))
294292, 293mpbid 233 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 + 1) ≤ 𝑘)
295 leaddsub 11617 . . . . . . . . . . . . . . . . . . . 20 ((1 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑘 ∈ ℝ) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
296286, 286, 287, 295syl3anc 1379 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
297294, 296mpbid 233 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ (𝑘 − 1))
298283zred 12624 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℝ)
299553ad2ant1 1139 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℝ)
300 1red 11136 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
301299, 300readdcld 11165 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐾 + 1) ∈ ℝ)
302301, 300resubcld 11569 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ∈ ℝ)
303 elfzle2 13473 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
3043033ad2ant2 1140 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≤ (𝐾 + 1))
305287, 301, 300, 304lesub1dd 11757 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ ((𝐾 + 1) − 1))
306643ad2ant1 1139 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℂ)
307 1cnd 11130 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
308306, 307pncand 11497 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) = 𝐾)
309563ad2ant1 1139 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾𝐾)
310308, 309eqbrtrd 5094 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ≤ 𝐾)
311298, 302, 299, 305, 310letrd 11294 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ 𝐾)
312276, 278, 283, 297, 311elfzd 13460 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3133123expa 1124 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3143133adantl2 1174 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
315314adantlr 721 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
316 ovexd 7391 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ V)
317232, 275, 315, 316fvmptd 6943 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
318271, 317oveq12d 7374 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) = ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
319318oveq1d 7371 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
320245zcnd 12625 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℂ)
321 fzfid 13926 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝑘) ∈ Fin)
322 1zzd 12549 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ∈ ℤ)
323240adantr 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝐾 ∈ ℤ)
324323peano2zd 12627 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℤ)
325 elfznn 13498 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙 ∈ ℕ)
326325adantl 482 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℕ)
327326nnzd 12541 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℤ)
328326nnge1d 12216 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ≤ 𝑙)
329326nnred 12180 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℝ)
330261ad2antrr 732 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ∈ ℝ)
331262ad2antrr 732 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℝ)
332 elfzle2 13473 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙𝑘)
333332adantl 482 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙𝑘)
334256ad2antrr 732 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ≤ (𝐾 + 1))
335329, 330, 331, 333, 334letrd 11294 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ≤ (𝐾 + 1))
336322, 324, 327, 328, 335elfzd 13460 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ (1...(𝐾 + 1)))
337963adant3 1138 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
338337adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
339338adantr 481 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
340339adantr 481 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
341340ffvelcdmda 7025 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
342336, 341mpdan 693 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℕ0)
343321, 342fsumnn0cl 15689 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℕ0)
344343nn0cnd 12491 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℂ)
345 1cnd 11130 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
346320, 345subcld 11496 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℂ)
347 fzfid 13926 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...(𝑘 − 1)) ∈ Fin)
348 1zzd 12549 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℤ)
349240adantr 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝐾 ∈ ℤ)
350349peano2zd 12627 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℤ)
351 elfznn 13498 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ∈ ℕ)
352351adantl 482 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℕ)
353352nnzd 12541 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℤ)
354352nnge1d 12216 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ≤ 𝑙)
355352nnred 12180 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℝ)
356261ad2antrr 732 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ∈ ℝ)
357 1red 11136 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℝ)
358356, 357resubcld 11569 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ∈ ℝ)
359262ad2antrr 732 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℝ)
360 elfzle2 13473 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ≤ (𝑘 − 1))
361360adantl 482 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝑘 − 1))
362356lem1d 12080 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ 𝑘)
363256ad2antrr 732 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ≤ (𝐾 + 1))
364358, 356, 359, 362, 363letrd 11294 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ (𝐾 + 1))
365355, 358, 359, 361, 364letrd 11294 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝐾 + 1))
366348, 350, 353, 354, 365elfzd 13460 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ (1...(𝐾 + 1)))
367339adantr 481 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
368367ffvelcdmda 7025 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
369366, 368mpdan 693 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑐𝑙) ∈ ℕ0)
370347, 369fsumnn0cl 15689 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℕ0)
371370nn0cnd 12491 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℂ)
372320, 344, 346, 371addsub4d 11543 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
373372oveq1d 7371 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
374320, 345nncand 11501 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − (𝑘 − 1)) = 1)
375374oveq1d 7371 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = (1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
376375oveq1d 7371 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
377344, 371subcld 11496 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ ℂ)
378345, 377pncan2d 11498 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
3791363adant3 1138 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ∈ ℤ)
380379, 243, 2463jca 1134 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
381 eluz2 12785 . . . . . . . . . . . . . . . . . . . 20 (𝑘 ∈ (ℤ‘1) ↔ (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
382380, 381sylibr 235 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (ℤ‘1))
383382adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (ℤ‘1))
384383adantr 481 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (ℤ‘1))
385342nn0cnd 12491 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℂ)
386 fveq2 6827 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑘 → (𝑐𝑙) = (𝑐𝑘))
387384, 385, 386fsumm1 15704 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) = (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)))
388387eqcomd 2745 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
389 simp3 1144 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (1...(𝐾 + 1)))
390337, 389ffvelcdmd 7026 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℕ0)
391390nn0cnd 12491 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℂ)
392391adantr 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) ∈ ℂ)
393392adantr 481 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑐𝑘) ∈ ℂ)
394344, 371, 393subaddd 11514 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘) ↔ (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
395388, 394mpbird 258 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘))
396378, 395eqtrd 2774 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
397376, 396eqtrd 2774 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
398373, 397eqtrd 2774 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
399319, 398eqtrd 2774 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (𝑐𝑘))
400231, 399eqtrd 2774 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = (𝑐𝑘))
401217, 400ifeqda 4491 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)) = (𝑐𝑘))
402163, 401ifeqda 4491 . . . . . . 7 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
4034023expa 1124 . . . . . 6 (((𝜑𝑐𝐴) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
404403mpteq2dva 5165 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
40596ffnd 6656 . . . . . . 7 ((𝜑𝑐𝐴) → 𝑐 Fn (1...(𝐾 + 1)))
406 dffn5 6885 . . . . . . . 8 (𝑐 Fn (1...(𝐾 + 1)) ↔ 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
407406biimpi 217 . . . . . . 7 (𝑐 Fn (1...(𝐾 + 1)) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
408405, 407syl 17 . . . . . 6 ((𝜑𝑐𝐴) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
409408eqcomd 2745 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)) = 𝑐)
410404, 409eqtrd 2774 . . . 4 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = 𝑐)
41137, 410eqtrd 2774 . . 3 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = 𝑐)
412411ralrimiva 3131 . 2 (𝜑 → ∀𝑐𝐴 (𝐺‘(𝐹𝑐)) = 𝑐)
4131, 2, 4, 8, 5, 6sticksstones12a 42642 . 2 (𝜑 → ∀𝑑𝐵 (𝐹‘(𝐺𝑑)) = 𝑑)
4147, 9, 412, 4132fvidf1od 7242 1 (𝜑𝐹:𝐴1-1-onto𝐵)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1092   = wceq 1547  wcel 2119  {cab 2717  wne 2934  wral 3053  Vcvv 3431  ifcif 4454  {csn 4555  cop 4561   class class class wbr 5072  cmpt 5153   Fn wfn 6480  wf 6481  1-1-ontowf1o 6484  cfv 6485  (class class class)co 7356  Fincfn 8883  cc 11027  cr 11028  0cc0 11029  1c1 11030   + caddc 11032   < clt 11170  cle 11171  cmin 11368  cn 12165  0cn0 12428  cz 12515  cuz 12779  ...cfz 13452  Σcsu 15639
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-inf2 9553  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9345  df-oi 9415  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-n0 12429  df-z 12516  df-uz 12780  df-rp 12934  df-ico 13295  df-fz 13453  df-fzo 13600  df-seq 13955  df-exp 14015  df-hash 14284  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-clim 15441  df-sum 15640
This theorem is referenced by:  sticksstones13  42644
  Copyright terms: Public domain W3C validator