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 42815
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 12565 . . 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 42810 . 2 (𝜑𝐹:𝐴𝐵)
8 sticksstones12.4 . . 3 𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
91, 2, 8, 5, 6sticksstones10 42812 . 2 (𝜑𝐺:𝐵𝐴)
108a1i 11 . . . . . . 7 (𝜑𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))))
11 0red 11211 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℝ)
122nngt0d 12285 . . . . . . . . . . . . 13 (𝜑 → 0 < 𝐾)
1311, 12ltned 11346 . . . . . . . . . . . 12 (𝜑 → 0 ≠ 𝐾)
1413necomd 3019 . . . . . . . . . . 11 (𝜑𝐾 ≠ 0)
1514neneqd 2969 . . . . . . . . . 10 (𝜑 → ¬ 𝐾 = 0)
1615iffalsed 4503 . . . . . . . . 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 485 . . . . . . . 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 5208 . . . . . . 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 2804 . . . . . 6 (𝜑𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
2019adantr 485 . . . . 5 ((𝜑𝑐𝐴) → 𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
21 fveq1 6881 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (𝑏𝐾) = ((𝐹𝑐)‘𝐾))
2221oveq2d 7427 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → ((𝑁 + 𝐾) − (𝑏𝐾)) = ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)))
23 fveq1 6881 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → (𝑏‘1) = ((𝐹𝑐)‘1))
2423oveq1d 7426 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → ((𝑏‘1) − 1) = (((𝐹𝑐)‘1) − 1))
25 fveq1 6881 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏𝑘) = ((𝐹𝑐)‘𝑘))
26 fveq1 6881 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏‘(𝑘 − 1)) = ((𝐹𝑐)‘(𝑘 − 1)))
2725, 26oveq12d 7429 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → ((𝑏𝑘) − (𝑏‘(𝑘 − 1))) = (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))))
2827oveq1d 7426 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1) = ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))
2924, 28ifeq12d 4514 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)) = if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))
3022, 29ifeq12d 4514 . . . . . . . 8 (𝑏 = (𝐹𝑐) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3130adantr 485 . . . . . . 7 ((𝑏 = (𝐹𝑐) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3231mpteq2dva 5208 . . . . . 6 (𝑏 = (𝐹𝑐) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
3332adantl 486 . . . . 5 (((𝜑𝑐𝐴) ∧ 𝑏 = (𝐹𝑐)) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
347ffvelcdmda 7080 . . . . 5 ((𝜑𝑐𝐴) → (𝐹𝑐) ∈ 𝐵)
35 fzfid 14009 . . . . . 6 ((𝜑𝑐𝐴) → (1...(𝐾 + 1)) ∈ Fin)
3635mptexd 7223 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) ∈ V)
3720, 33, 34, 36fvmptd 6998 . . . 4 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
384a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
39 simpllr 787 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
4039fveq1d 6884 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
4140sumeq2dv 15753 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
4241oveq2d 7427 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
4342mpteq2dva 5208 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
44 simpr 489 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
45 fzfid 14009 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (1...𝐾) ∈ Fin)
4645mptexd 7223 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
4738, 43, 44, 46fvmptd 6998 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
48 simpr 489 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → 𝑗 = 𝐾)
4948oveq2d 7427 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (1...𝑗) = (1...𝐾))
5049sumeq1d 15751 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
5148, 50oveq12d 7429 . . . . . . . . . . . . . 14 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
52 1zzd 12625 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℤ)
533nn0zd 12616 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℤ)
542nnge1d 12284 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ≤ 𝐾)
552nnred 12248 . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℝ)
5655leidd 11780 . . . . . . . . . . . . . . . 16 (𝜑𝐾𝐾)
5752, 53, 53, 54, 56elfzd 13543 . . . . . . . . . . . . . . 15 (𝜑𝐾 ∈ (1...𝐾))
5857adantr 485 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝐾 ∈ (1...𝐾))
59 ovexd 7446 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) ∈ V)
6047, 51, 58, 59fvmptd 6998 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘𝐾) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
6160oveq2d 7427 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
621nn0cnd 12567 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℂ)
6362adantr 485 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑁 ∈ ℂ)
6455recnd 11237 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
6564adantr 485 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐾 ∈ ℂ)
6663, 65addcomd 11412 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 + 𝐾) = (𝐾 + 𝑁))
6766oveq1d 7426 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
68 1zzd 12625 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ∈ ℤ)
6953ad2antrr 738 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℤ)
7069peano2zd 12703 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℤ)
71 elfzelz 13552 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 𝑙 ∈ ℤ)
7271adantl 486 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℤ)
73 elfzle1 13555 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 1 ≤ 𝑙)
7473adantl 486 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ≤ 𝑙)
7572zred 12700 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℝ)
7655ad2antrr 738 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℝ)
7770zred 12700 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℝ)
78 elfzle2 13556 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ (1...𝐾) → 𝑙𝐾)
7978adantl 486 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙𝐾)
8076lep1d 12146 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ≤ (𝐾 + 1))
8175, 76, 77, 79, 80letrd 11367 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ≤ (𝐾 + 1))
8268, 70, 72, 74, 81elfzd 13543 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ (1...(𝐾 + 1)))
835eleq2i 2861 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑐𝐴𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
8483bilani 509 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
85 vex 3467 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑐 ∈ V
86 feq1 6684 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (𝑔:(1...(𝐾 + 1))⟶ℕ0𝑐:(1...(𝐾 + 1))⟶ℕ0))
87 simpl 487 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → 𝑔 = 𝑐)
8887fveq1d 6884 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → (𝑔𝑖) = (𝑐𝑖))
8988sumeq2dv 15753 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑔 = 𝑐 → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
9089eqeq1d 2771 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁 ↔ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9186, 90anbi12d 643 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑔 = 𝑐 → ((𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁) ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9285, 91elab 3647 . . . . . . . . . . . . . . . . . . . . . . . 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 232 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9584, 94mpd 16 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9695simpld 499 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9796adantr 485 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9897ffvelcdmda 7080 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
9982, 98mpdan 699 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝑐𝑙) ∈ ℕ0)
10045, 99fsumnn0cl 15787 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℕ0)
101100nn0cnd 12567 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℂ)
10265, 63, 101pnpcand 11606 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
103 eqid 2769 . . . . . . . . . . . . . . . . . . . . . . . 24 1 = 1
104 1p0e1 12363 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 + 0) = 1
105103, 104eqtr4i 2795 . . . . . . . . . . . . . . . . . . . . . . 23 1 = (1 + 0)
106105a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 1 = (1 + 0))
107 1red 11209 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 1 ∈ ℝ)
108 0le1 11737 . . . . . . . . . . . . . . . . . . . . . . . 24 0 ≤ 1
109108a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 0 ≤ 1)
110107, 11, 55, 107, 54, 109le2addd 11833 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (1 + 0) ≤ (𝐾 + 1))
111106, 110eqbrtrd 5137 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ≤ (𝐾 + 1))
11253peano2zd 12703 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝐾 + 1) ∈ ℤ)
113 eluz 12876 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
11452, 112, 113syl2anc 595 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
115111, 114mpbird 260 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ∈ (ℤ‘1))
116115adantr 485 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (ℤ‘1))
11796ffvelcdmda 7080 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
118117nn0cnd 12567 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℂ)
119 fveq2 6882 . . . . . . . . . . . . . . . . . . 19 (𝑙 = (𝐾 + 1) → (𝑐𝑙) = (𝑐‘(𝐾 + 1)))
120116, 118, 119fsumm1 15802 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
121 1cnd 11202 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 1 ∈ ℂ)
12265, 121pncand 11570 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → ((𝐾 + 1) − 1) = 𝐾)
123122oveq2d 7427 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (1...((𝐾 + 1) − 1)) = (1...𝐾))
124123sumeq1d 15751 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
125124oveq1d 7426 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
126120, 125eqtrd 2804 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
127126eqcomd 2775 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙))
128 fveq2 6882 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (𝑐𝑙) = (𝑐𝑖))
129 nfcv 2931 . . . . . . . . . . . . . . . . . . 19 𝑖(𝑐𝑙)
130 nfcv 2931 . . . . . . . . . . . . . . . . . . 19 𝑙(𝑐𝑖)
131128, 129, 130cbvsum 15746 . . . . . . . . . . . . . . . . . 18 Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖)
132131a1i 11 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
13395simprd 500 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)
134132, 133eqtrd 2804 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = 𝑁)
135127, 134eqtrd 2804 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁)
136 1zzd 12625 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ ℤ)
13753adantr 485 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝐾 ∈ ℤ)
138137peano2zd 12703 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ ℤ)
139 1e0p1 12758 . . . . . . . . . . . . . . . . . . . . 21 1 = (0 + 1)
140139a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 1 = (0 + 1))
141 0red 11211 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ∈ ℝ)
14255adantr 485 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 𝐾 ∈ ℝ)
143 1red 11209 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 1 ∈ ℝ)
14411, 55, 12ltled 11358 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 0 ≤ 𝐾)
145144adantr 485 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ≤ 𝐾)
146141, 142, 143, 145leadd1dd 11828 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (0 + 1) ≤ (𝐾 + 1))
147140, 146eqbrtrd 5137 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ≤ (𝐾 + 1))
14855, 55, 107, 56leadd1dd 11828 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ≤ (𝐾 + 1))
149148adantr 485 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ≤ (𝐾 + 1))
150136, 138, 138, 147, 149elfzd 13543 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (1...(𝐾 + 1)))
15196, 150ffvelcdmd 7081 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℕ0)
152151nn0cnd 12567 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℂ)
15363, 101, 152subaddd 11587 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)) ↔ (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁))
154135, 153mpbird 260 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)))
155102, 154eqtrd 2804 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15667, 155eqtrd 2804 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15761, 156eqtrd 2804 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
1581573adant3 1148 . . . . . . . . . 10 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
159158adantr 485 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
160 simpr 489 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → 𝑘 = (𝐾 + 1))
161160fveq2d 6886 . . . . . . . . . 10 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) = (𝑐‘(𝐾 + 1)))
162161eqcomd 2775 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐‘(𝐾 + 1)) = (𝑐𝑘))
163159, 162eqtrd 2804 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐𝑘))
16447fveq1d 6884 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘1) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1))
165164oveq1d 7426 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1))
166 eqidd 2770 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
167 simpr 489 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → 𝑗 = 1)
168167oveq2d 7427 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (1...𝑗) = (1...1))
169168sumeq1d 15751 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
170167, 169oveq12d 7429 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
171143leidd 11780 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 1)
17254adantr 485 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 𝐾)
173136, 137, 136, 171, 172elfzd 13543 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → 1 ∈ (1...𝐾))
174 ovexd 7446 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) ∈ V)
175166, 170, 173, 174fvmptd 6998 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
176175oveq1d 7426 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1))
177 fzfid 14009 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (1...1) ∈ Fin)
178 1zzd 12625 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℤ)
179137adantr 485 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝐾 ∈ ℤ)
180179peano2zd 12703 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℤ)
181 elfzelz 13552 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 𝑙 ∈ ℤ)
182181adantl 486 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℤ)
183 elfzle1 13555 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 1 ≤ 𝑙)
184183adantl 486 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ≤ 𝑙)
185182zred 12700 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℝ)
186 0red 11211 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 0 ∈ ℝ)
187 1red 11209 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℝ)
188186, 187readdcld 11238 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ∈ ℝ)
189180zred 12700 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℝ)
190 elfzle2 13556 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑙 ∈ (1...1) → 𝑙 ≤ 1)
191190adantl 486 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ 1)
192139a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 = (0 + 1))
193191, 192breqtrd 5141 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (0 + 1))
194146adantr 485 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ≤ (𝐾 + 1))
195185, 188, 189, 193, 194letrd 11367 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (𝐾 + 1))
196178, 180, 182, 184, 195elfzd 13543 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ (1...(𝐾 + 1)))
197117adantlr 727 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
198196, 197mpdan 699 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝑐𝑙) ∈ ℕ0)
199177, 198fsumnn0cl 15787 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℕ0)
200199nn0cnd 12567 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℂ)
201121, 200pncan2d 11571 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
202136, 138, 136, 171, 147elfzd 13543 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ (1...(𝐾 + 1)))
20396, 202ffvelcdmd 7081 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ0)
204203nn0cnd 12567 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
205 fveq2 6882 . . . . . . . . . . . . . . . . . 18 (𝑙 = 1 → (𝑐𝑙) = (𝑐‘1))
206205fsum1 15798 . . . . . . . . . . . . . . . . 17 ((1 ∈ ℤ ∧ (𝑐‘1) ∈ ℂ) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
207136, 204, 206syl2anc 595 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
208201, 207eqtrd 2804 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = (𝑐‘1))
209176, 208eqtrd 2804 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = (𝑐‘1))
210165, 209eqtrd 2804 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
2112103adant3 1148 . . . . . . . . . . . 12 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
212211adantr 485 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
213212adantr 485 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
214 simpr 489 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → 𝑘 = 1)
215214fveq2d 6886 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐𝑘) = (𝑐‘1))
216215eqcomd 2775 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐‘1) = (𝑐𝑘))
217213, 216eqtrd 2804 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐𝑘))
2184a1i 11 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
219 simpllr 787 . . . . . . . . . . . . . . . . . 18 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
220219fveq1d 6884 . . . . . . . . . . . . . . . . 17 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
221220sumeq2dv 15753 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
222221oveq2d 7427 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
223222mpteq2dva 5208 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
224 simpll2 1230 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐𝐴)
225 fzfid 14009 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝐾) ∈ Fin)
226225mptexd 7223 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
227218, 223, 224, 226fvmptd 6998 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
228227fveq1d 6884 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘𝑘) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘))
229227fveq1d 6884 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘(𝑘 − 1)) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)))
230228, 229oveq12d 7429 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))))
231230oveq1d 7426 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1))
232 eqidd 2770 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
233 simpr 489 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → 𝑗 = 𝑘)
234233oveq2d 7427 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (1...𝑗) = (1...𝑘))
235234sumeq1d 15751 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
236233, 235oveq12d 7429 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
237 1zzd 12625 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
2381373adant3 1148 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝐾 ∈ ℤ)
239238adantr 485 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝐾 ∈ ℤ)
240239adantr 485 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
241 elfznn 13581 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℕ)
2422413ad2ant3 1151 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℕ)
243242nnzd 12617 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
244243adantr 485 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℤ)
245244adantr 485 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
246242nnge1d 12284 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ≤ 𝑘)
247246adantr 485 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ≤ 𝑘)
248247adantr 485 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
249 simpl3 1210 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (1...(𝐾 + 1)))
250 1zzd 12625 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ∈ ℤ)
251239peano2zd 12703 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℤ)
252 elfz 13541 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑘 ∈ ℤ ∧ 1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
253244, 250, 251, 252syl3anc 1396 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
254253biimpd 232 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
255249, 254mpd 16 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1)))
256255simprd 500 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
257 neqne 2972 . . . . . . . . . . . . . . . . . . . . 21 𝑘 = (𝐾 + 1) → 𝑘 ≠ (𝐾 + 1))
258257adantl 486 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≠ (𝐾 + 1))
259258necomd 3019 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑘)
260256, 259jca 520 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘))
261244zred 12700 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℝ)
262251zred 12700 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
263261, 262ltlend 11355 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 < (𝐾 + 1) ↔ (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘)))
264260, 263mpbird 260 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 < (𝐾 + 1))
265 zleltp1 12645 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑘𝐾𝑘 < (𝐾 + 1)))
266244, 239, 265syl2anc 595 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘𝐾𝑘 < (𝐾 + 1)))
267264, 266mpbird 260 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘𝐾)
268267adantr 485 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘𝐾)
269237, 240, 245, 248, 268elfzd 13543 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...𝐾))
270 ovexd 7446 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) ∈ V)
271232, 236, 269, 270fvmptd 6998 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
272 simpr 489 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → 𝑗 = (𝑘 − 1))
273272oveq2d 7427 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (1...𝑗) = (1...(𝑘 − 1)))
274273sumeq1d 15751 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))
275272, 274oveq12d 7429 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
276 1zzd 12625 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
27753ad2antrr 738 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
2782773impa 1125 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
279241nnzd 12617 . . . . . . . . . . . . . . . . . . . . . 22 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℤ)
280279adantl 486 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
281280adantr 485 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
2822813impa 1125 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
283282, 276zsubcld 12705 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℤ)
284 neqne 2972 . . . . . . . . . . . . . . . . . . . . . 22 𝑘 = 1 → 𝑘 ≠ 1)
2852843ad2ant3 1151 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≠ 1)
2861073ad2ant1 1149 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
287282zred 12700 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℝ)
288 simp2 1153 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...(𝐾 + 1)))
289 elfzle1 13555 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑘 ∈ (1...(𝐾 + 1)) → 1 ≤ 𝑘)
290288, 289syl 18 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
291286, 287, 290leltned 11363 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘𝑘 ≠ 1))
292285, 291mpbird 260 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 < 𝑘)
293276, 282zltp1led 12649 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘 ↔ (1 + 1) ≤ 𝑘))
294292, 293mpbid 235 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 + 1) ≤ 𝑘)
295 leaddsub 11690 . . . . . . . . . . . . . . . . . . . 20 ((1 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑘 ∈ ℝ) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
296286, 286, 287, 295syl3anc 1396 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
297294, 296mpbid 235 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ (𝑘 − 1))
298283zred 12700 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℝ)
299553ad2ant1 1149 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℝ)
300 1red 11209 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
301299, 300readdcld 11238 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐾 + 1) ∈ ℝ)
302301, 300resubcld 11642 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ∈ ℝ)
303 elfzle2 13556 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
3043033ad2ant2 1150 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≤ (𝐾 + 1))
305287, 301, 300, 304lesub1dd 11830 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ ((𝐾 + 1) − 1))
306643ad2ant1 1149 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℂ)
307 1cnd 11202 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
308306, 307pncand 11570 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) = 𝐾)
309563ad2ant1 1149 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾𝐾)
310308, 309eqbrtrd 5137 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ≤ 𝐾)
311298, 302, 299, 305, 310letrd 11367 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ 𝐾)
312276, 278, 283, 297, 311elfzd 13543 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3133123expa 1134 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3143133adantl2 1184 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
315314adantlr 727 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
316 ovexd 7446 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ V)
317232, 275, 315, 316fvmptd 6998 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
318271, 317oveq12d 7429 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) = ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
319318oveq1d 7426 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
320245zcnd 12701 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℂ)
321 fzfid 14009 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝑘) ∈ Fin)
322 1zzd 12625 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ∈ ℤ)
323240adantr 485 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝐾 ∈ ℤ)
324323peano2zd 12703 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℤ)
325 elfznn 13581 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙 ∈ ℕ)
326325adantl 486 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℕ)
327326nnzd 12617 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℤ)
328326nnge1d 12284 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ≤ 𝑙)
329326nnred 12248 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℝ)
330261ad2antrr 738 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ∈ ℝ)
331262ad2antrr 738 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℝ)
332 elfzle2 13556 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙𝑘)
333332adantl 486 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙𝑘)
334256ad2antrr 738 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ≤ (𝐾 + 1))
335329, 330, 331, 333, 334letrd 11367 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ≤ (𝐾 + 1))
336322, 324, 327, 328, 335elfzd 13543 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ (1...(𝐾 + 1)))
337963adant3 1148 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
338337adantr 485 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
339338adantr 485 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
340339adantr 485 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
341340ffvelcdmda 7080 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
342336, 341mpdan 699 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℕ0)
343321, 342fsumnn0cl 15787 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℕ0)
344343nn0cnd 12567 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℂ)
345 1cnd 11202 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
346320, 345subcld 11569 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℂ)
347 fzfid 14009 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...(𝑘 − 1)) ∈ Fin)
348 1zzd 12625 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℤ)
349240adantr 485 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝐾 ∈ ℤ)
350349peano2zd 12703 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℤ)
351 elfznn 13581 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ∈ ℕ)
352351adantl 486 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℕ)
353352nnzd 12617 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℤ)
354352nnge1d 12284 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ≤ 𝑙)
355352nnred 12248 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℝ)
356261ad2antrr 738 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ∈ ℝ)
357 1red 11209 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℝ)
358356, 357resubcld 11642 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ∈ ℝ)
359262ad2antrr 738 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℝ)
360 elfzle2 13556 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ≤ (𝑘 − 1))
361360adantl 486 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝑘 − 1))
362356lem1d 12148 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ 𝑘)
363256ad2antrr 738 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ≤ (𝐾 + 1))
364358, 356, 359, 362, 363letrd 11367 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ (𝐾 + 1))
365355, 358, 359, 361, 364letrd 11367 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝐾 + 1))
366348, 350, 353, 354, 365elfzd 13543 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ (1...(𝐾 + 1)))
367339adantr 485 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
368367ffvelcdmda 7080 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
369366, 368mpdan 699 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑐𝑙) ∈ ℕ0)
370347, 369fsumnn0cl 15787 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℕ0)
371370nn0cnd 12567 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℂ)
372320, 344, 346, 371addsub4d 11616 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
373372oveq1d 7426 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
374320, 345nncand 11574 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − (𝑘 − 1)) = 1)
375374oveq1d 7426 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = (1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
376375oveq1d 7426 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
377344, 371subcld 11569 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ ℂ)
378345, 377pncan2d 11571 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
3791363adant3 1148 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ∈ ℤ)
380379, 243, 2463jca 1144 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
381 eluz2 12868 . . . . . . . . . . . . . . . . . . . 20 (𝑘 ∈ (ℤ‘1) ↔ (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
382380, 381sylibr 237 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (ℤ‘1))
383382adantr 485 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (ℤ‘1))
384383adantr 485 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (ℤ‘1))
385342nn0cnd 12567 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℂ)
386 fveq2 6882 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑘 → (𝑐𝑙) = (𝑐𝑘))
387384, 385, 386fsumm1 15802 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) = (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)))
388387eqcomd 2775 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
389 simp3 1154 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (1...(𝐾 + 1)))
390337, 389ffvelcdmd 7081 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℕ0)
391390nn0cnd 12567 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℂ)
392391adantr 485 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) ∈ ℂ)
393392adantr 485 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑐𝑘) ∈ ℂ)
394344, 371, 393subaddd 11587 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘) ↔ (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
395388, 394mpbird 260 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘))
396378, 395eqtrd 2804 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
397376, 396eqtrd 2804 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
398373, 397eqtrd 2804 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
399319, 398eqtrd 2804 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (𝑐𝑘))
400231, 399eqtrd 2804 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = (𝑐𝑘))
401217, 400ifeqda 4529 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)) = (𝑐𝑘))
402163, 401ifeqda 4529 . . . . . . 7 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
4034023expa 1134 . . . . . 6 (((𝜑𝑐𝐴) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
404403mpteq2dva 5208 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
40596ffnd 6707 . . . . . . 7 ((𝜑𝑐𝐴) → 𝑐 Fn (1...(𝐾 + 1)))
406 dffn5 6940 . . . . . . . 8 (𝑐 Fn (1...(𝐾 + 1)) ↔ 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
407406biimpi 219 . . . . . . 7 (𝑐 Fn (1...(𝐾 + 1)) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
408405, 407syl 18 . . . . . 6 ((𝜑𝑐𝐴) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
409408eqcomd 2775 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)) = 𝑐)
410404, 409eqtrd 2804 . . . 4 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = 𝑐)
41137, 410eqtrd 2804 . . 3 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = 𝑐)
412411ralrimiva 3163 . 2 (𝜑 → ∀𝑐𝐴 (𝐺‘(𝐹𝑐)) = 𝑐)
4131, 2, 4, 8, 5, 6sticksstones12a 42814 . 2 (𝜑 → ∀𝑑𝐵 (𝐹‘(𝐺𝑑)) = 𝑑)
4147, 9, 412, 4132fvidf1od 7297 1 (𝜑𝐹:𝐴1-1-onto𝐵)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  {cab 2747  wne 2964  wral 3085  Vcvv 3463  ifcif 4492  {csn 4594  cop 4600   class class class wbr 5113  cmpt 5196   Fn wfn 6532  wf 6533  1-1-ontowf1o 6536  cfv 6537  (class class class)co 7411  Fincfn 8943  cc 11098  cr 11099  0cc0 11100  1c1 11101   + caddc 11103   < clt 11243  cle 11244  cmin 11441  cn 12233  0cn0 12504  cz 12591  cuz 12862  ...cfz 13535  Σcsu 15737
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-inf2 9610  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177  ax-pre-sup 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7863  df-1st 7986  df-2nd 7987  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8453  df-er 8694  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-sup 9402  df-oi 9472  df-card 9925  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-div 11872  df-nn 12234  df-2 12303  df-3 12304  df-n0 12505  df-z 12592  df-uz 12863  df-rp 13017  df-ico 13378  df-fz 13536  df-fzo 13683  df-seq 14038  df-exp 14098  df-hash 14367  df-cj 15150  df-re 15151  df-im 15152  df-sqrt 15286  df-abs 15287  df-clim 15539  df-sum 15738
This theorem is referenced by:  sticksstones13  42816
  Copyright terms: Public domain W3C validator