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 42115
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 12613 . . 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 42110 . 2 (𝜑𝐹:𝐴𝐵)
8 sticksstones12.4 . . 3 𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
91, 2, 8, 5, 6sticksstones10 42112 . 2 (𝜑𝐺:𝐵𝐴)
108a1i 11 . . . . . . 7 (𝜑𝐺 = (𝑏𝐵 ↦ if(𝐾 = 0, {⟨1, 𝑁⟩}, (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))))))
11 0red 11293 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℝ)
122nngt0d 12342 . . . . . . . . . . . . 13 (𝜑 → 0 < 𝐾)
1311, 12ltned 11426 . . . . . . . . . . . 12 (𝜑 → 0 ≠ 𝐾)
1413necomd 3002 . . . . . . . . . . 11 (𝜑𝐾 ≠ 0)
1514neneqd 2951 . . . . . . . . . 10 (𝜑 → ¬ 𝐾 = 0)
1615iffalsed 4559 . . . . . . . . 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 480 . . . . . . . 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 5266 . . . . . . 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 2780 . . . . . 6 (𝜑𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
2019adantr 480 . . . . 5 ((𝜑𝑐𝐴) → 𝐺 = (𝑏𝐵 ↦ (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))))))
21 fveq1 6919 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (𝑏𝐾) = ((𝐹𝑐)‘𝐾))
2221oveq2d 7464 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → ((𝑁 + 𝐾) − (𝑏𝐾)) = ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)))
23 fveq1 6919 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → (𝑏‘1) = ((𝐹𝑐)‘1))
2423oveq1d 7463 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → ((𝑏‘1) − 1) = (((𝐹𝑐)‘1) − 1))
25 fveq1 6919 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏𝑘) = ((𝐹𝑐)‘𝑘))
26 fveq1 6919 . . . . . . . . . . . 12 (𝑏 = (𝐹𝑐) → (𝑏‘(𝑘 − 1)) = ((𝐹𝑐)‘(𝑘 − 1)))
2725, 26oveq12d 7466 . . . . . . . . . . 11 (𝑏 = (𝐹𝑐) → ((𝑏𝑘) − (𝑏‘(𝑘 − 1))) = (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))))
2827oveq1d 7463 . . . . . . . . . 10 (𝑏 = (𝐹𝑐) → (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1) = ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))
2924, 28ifeq12d 4569 . . . . . . . . 9 (𝑏 = (𝐹𝑐) → if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)) = if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))
3022, 29ifeq12d 4569 . . . . . . . 8 (𝑏 = (𝐹𝑐) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3130adantr 480 . . . . . . 7 ((𝑏 = (𝐹𝑐) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1))) = if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))))
3231mpteq2dva 5266 . . . . . 6 (𝑏 = (𝐹𝑐) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
3332adantl 481 . . . . 5 (((𝜑𝑐𝐴) ∧ 𝑏 = (𝐹𝑐)) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − (𝑏𝐾)), if(𝑘 = 1, ((𝑏‘1) − 1), (((𝑏𝑘) − (𝑏‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
347ffvelcdmda 7118 . . . . 5 ((𝜑𝑐𝐴) → (𝐹𝑐) ∈ 𝐵)
35 fzfid 14024 . . . . . 6 ((𝜑𝑐𝐴) → (1...(𝐾 + 1)) ∈ Fin)
3635mptexd 7261 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) ∈ V)
3720, 33, 34, 36fvmptd 7036 . . . 4 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))))
384a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
39 simpllr 775 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
4039fveq1d 6922 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
4140sumeq2dv 15750 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
4241oveq2d 7464 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
4342mpteq2dva 5266 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
44 simpr 484 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
45 fzfid 14024 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (1...𝐾) ∈ Fin)
4645mptexd 7261 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
4738, 43, 44, 46fvmptd 7036 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
48 simpr 484 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → 𝑗 = 𝐾)
4948oveq2d 7464 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (1...𝑗) = (1...𝐾))
5049sumeq1d 15748 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
5148, 50oveq12d 7466 . . . . . . . . . . . . . 14 (((𝜑𝑐𝐴) ∧ 𝑗 = 𝐾) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
52 1zzd 12674 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℤ)
533nn0zd 12665 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℤ)
542nnge1d 12341 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ≤ 𝐾)
552nnred 12308 . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℝ)
5655leidd 11856 . . . . . . . . . . . . . . . 16 (𝜑𝐾𝐾)
5752, 53, 53, 54, 56elfzd 13575 . . . . . . . . . . . . . . 15 (𝜑𝐾 ∈ (1...𝐾))
5857adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝐾 ∈ (1...𝐾))
59 ovexd 7483 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) ∈ V)
6047, 51, 58, 59fvmptd 7036 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘𝐾) = (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
6160oveq2d 7464 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
621nn0cnd 12615 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℂ)
6362adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑁 ∈ ℂ)
6455recnd 11318 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
6564adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝐾 ∈ ℂ)
6663, 65addcomd 11492 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 + 𝐾) = (𝐾 + 𝑁))
6766oveq1d 7463 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))))
68 1zzd 12674 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ∈ ℤ)
6953ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℤ)
7069peano2zd 12750 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℤ)
71 elfzelz 13584 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 𝑙 ∈ ℤ)
7271adantl 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℤ)
73 elfzle1 13587 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝐾) → 1 ≤ 𝑙)
7473adantl 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 1 ≤ 𝑙)
7572zred 12747 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ ℝ)
7655ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ∈ ℝ)
7770zred 12747 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝐾 + 1) ∈ ℝ)
78 elfzle2 13588 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 ∈ (1...𝐾) → 𝑙𝐾)
7978adantl 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙𝐾)
8076lep1d 12226 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝐾 ≤ (𝐾 + 1))
8175, 76, 77, 79, 80letrd 11447 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ≤ (𝐾 + 1))
8268, 70, 72, 74, 81elfzd 13575 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑙 ∈ (1...(𝐾 + 1)))
835eleq2i 2836 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑐𝐴𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
8483biimpi 216 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑐𝐴𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
8584adantl 481 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)})
86 vex 3492 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑐 ∈ V
87 feq1 6728 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (𝑔:(1...(𝐾 + 1))⟶ℕ0𝑐:(1...(𝐾 + 1))⟶ℕ0))
88 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → 𝑔 = 𝑐)
8988fveq1d 6922 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑔 = 𝑐𝑖 ∈ (1...(𝐾 + 1))) → (𝑔𝑖) = (𝑐𝑖))
9089sumeq2dv 15750 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑔 = 𝑐 → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
9190eqeq1d 2742 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑔 = 𝑐 → (Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁 ↔ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9287, 91anbi12d 631 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑔 = 𝑐 → ((𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁) ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9386, 92elab 3694 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9493a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑐𝐴) → (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} ↔ (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9594biimpd 229 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → (𝑐 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔𝑖) = 𝑁)} → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)))
9685, 95mpd 15 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → (𝑐:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁))
9796simpld 494 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9897adantr 480 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
9998ffvelcdmda 7118 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
10082, 99mpdan 686 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...𝐾)) → (𝑐𝑙) ∈ ℕ0)
10145, 100fsumnn0cl 15784 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℕ0)
102101nn0cnd 12615 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) ∈ ℂ)
10365, 63, 102pnpcand 11684 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)))
104 eqid 2740 . . . . . . . . . . . . . . . . . . . . . . . 24 1 = 1
105 1p0e1 12417 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 + 0) = 1
106104, 105eqtr4i 2771 . . . . . . . . . . . . . . . . . . . . . . 23 1 = (1 + 0)
107106a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 1 = (1 + 0))
108 1red 11291 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 1 ∈ ℝ)
109 0le1 11813 . . . . . . . . . . . . . . . . . . . . . . . 24 0 ≤ 1
110109a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 0 ≤ 1)
111108, 11, 55, 108, 54, 110le2addd 11909 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (1 + 0) ≤ (𝐾 + 1))
112107, 111eqbrtrd 5188 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ≤ (𝐾 + 1))
11353peano2zd 12750 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝐾 + 1) ∈ ℤ)
114 eluz 12917 . . . . . . . . . . . . . . . . . . . . . 22 ((1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
11552, 113, 114syl2anc 583 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐾 + 1) ∈ (ℤ‘1) ↔ 1 ≤ (𝐾 + 1)))
116112, 115mpbird 257 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ∈ (ℤ‘1))
117116adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (ℤ‘1))
11897ffvelcdmda 7118 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
119118nn0cnd 12615 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℂ)
120 fveq2 6920 . . . . . . . . . . . . . . . . . . 19 (𝑙 = (𝐾 + 1) → (𝑐𝑙) = (𝑐‘(𝐾 + 1)))
121117, 119, 120fsumm1 15799 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
122 1cnd 11285 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑐𝐴) → 1 ∈ ℂ)
12365, 122pncand 11648 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → ((𝐾 + 1) − 1) = 𝐾)
124123oveq2d 7464 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (1...((𝐾 + 1) − 1)) = (1...𝐾))
125124sumeq1d 15748 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) = Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))
126125oveq1d 7463 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...((𝐾 + 1) − 1))(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
127121, 126eqtrd 2780 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))))
128127eqcomd 2746 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙))
129 fveq2 6920 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (𝑐𝑙) = (𝑐𝑖))
130 nfcv 2908 . . . . . . . . . . . . . . . . . . 19 𝑖(𝑐𝑙)
131 nfcv 2908 . . . . . . . . . . . . . . . . . . 19 𝑙(𝑐𝑖)
132129, 130, 131cbvsum 15743 . . . . . . . . . . . . . . . . . 18 Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖)
133132a1i 11 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖))
13496simprd 495 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑐𝑖) = 𝑁)
135133, 134eqtrd 2780 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑐𝑙) = 𝑁)
136128, 135eqtrd 2780 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁)
137 1zzd 12674 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ ℤ)
13853adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 𝐾 ∈ ℤ)
139138peano2zd 12750 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ ℤ)
140 1e0p1 12800 . . . . . . . . . . . . . . . . . . . . 21 1 = (0 + 1)
141140a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 1 = (0 + 1))
142 0red 11293 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ∈ ℝ)
14355adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 𝐾 ∈ ℝ)
144 1red 11291 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 1 ∈ ℝ)
14511, 55, 12ltled 11438 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 0 ≤ 𝐾)
146145adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴) → 0 ≤ 𝐾)
147142, 143, 144, 146leadd1dd 11904 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → (0 + 1) ≤ (𝐾 + 1))
148141, 147eqbrtrd 5188 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ≤ (𝐾 + 1))
14955, 55, 108, 56leadd1dd 11904 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 + 1) ≤ (𝐾 + 1))
150149adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝐾 + 1) ≤ (𝐾 + 1))
151137, 139, 139, 148, 150elfzd 13575 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝐾 + 1) ∈ (1...(𝐾 + 1)))
15297, 151ffvelcdmd 7119 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℕ0)
153152nn0cnd 12615 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → (𝑐‘(𝐾 + 1)) ∈ ℂ)
15463, 102, 153subaddd 11665 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)) ↔ (Σ𝑙 ∈ (1...𝐾)(𝑐𝑙) + (𝑐‘(𝐾 + 1))) = 𝑁))
155136, 154mpbird 257 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (𝑁 − Σ𝑙 ∈ (1...𝐾)(𝑐𝑙)) = (𝑐‘(𝐾 + 1)))
156103, 155eqtrd 2780 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → ((𝐾 + 𝑁) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15767, 156eqtrd 2780 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − (𝐾 + Σ𝑙 ∈ (1...𝐾)(𝑐𝑙))) = (𝑐‘(𝐾 + 1)))
15861, 157eqtrd 2780 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
1591583adant3 1132 . . . . . . . . . 10 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
160159adantr 480 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐‘(𝐾 + 1)))
161 simpr 484 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → 𝑘 = (𝐾 + 1))
162161fveq2d 6924 . . . . . . . . . 10 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) = (𝑐‘(𝐾 + 1)))
163162eqcomd 2746 . . . . . . . . 9 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → (𝑐‘(𝐾 + 1)) = (𝑐𝑘))
164160, 163eqtrd 2780 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ 𝑘 = (𝐾 + 1)) → ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)) = (𝑐𝑘))
16547fveq1d 6922 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((𝐹𝑐)‘1) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1))
166165oveq1d 7463 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1))
167 eqidd 2741 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
168 simpr 484 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → 𝑗 = 1)
169168oveq2d 7464 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (1...𝑗) = (1...1))
170169sumeq1d 15748 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
171168, 170oveq12d 7466 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑗 = 1) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
172144leidd 11856 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 1)
17354adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → 1 ≤ 𝐾)
174137, 138, 137, 172, 173elfzd 13575 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → 1 ∈ (1...𝐾))
175 ovexd 7483 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) ∈ V)
176167, 171, 174, 175fvmptd 7036 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) = (1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)))
177176oveq1d 7463 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1))
178 fzfid 14024 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (1...1) ∈ Fin)
179 1zzd 12674 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℤ)
180138adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝐾 ∈ ℤ)
181180peano2zd 12750 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℤ)
182 elfzelz 13584 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 𝑙 ∈ ℤ)
183182adantl 481 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℤ)
184 elfzle1 13587 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 ∈ (1...1) → 1 ≤ 𝑙)
185184adantl 481 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ≤ 𝑙)
186183zred 12747 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ ℝ)
187 0red 11293 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 0 ∈ ℝ)
188 1red 11291 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 ∈ ℝ)
189187, 188readdcld 11319 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ∈ ℝ)
190181zred 12747 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝐾 + 1) ∈ ℝ)
191 elfzle2 13588 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑙 ∈ (1...1) → 𝑙 ≤ 1)
192191adantl 481 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ 1)
193140a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 1 = (0 + 1))
194192, 193breqtrd 5192 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (0 + 1))
195147adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (0 + 1) ≤ (𝐾 + 1))
196186, 189, 190, 194, 195letrd 11447 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ≤ (𝐾 + 1))
197179, 181, 183, 185, 196elfzd 13575 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → 𝑙 ∈ (1...(𝐾 + 1)))
198118adantlr 714 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
199197, 198mpdan 686 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴) ∧ 𝑙 ∈ (1...1)) → (𝑐𝑙) ∈ ℕ0)
200178, 199fsumnn0cl 15784 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℕ0)
201200nn0cnd 12615 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) ∈ ℂ)
202122, 201pncan2d 11649 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = Σ𝑙 ∈ (1...1)(𝑐𝑙))
203137, 139, 137, 172, 148elfzd 13575 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → 1 ∈ (1...(𝐾 + 1)))
20497, 203ffvelcdmd 7119 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ0)
205204nn0cnd 12615 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
206 fveq2 6920 . . . . . . . . . . . . . . . . . 18 (𝑙 = 1 → (𝑐𝑙) = (𝑐‘1))
207206fsum1 15795 . . . . . . . . . . . . . . . . 17 ((1 ∈ ℤ ∧ (𝑐‘1) ∈ ℂ) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
208137, 205, 207syl2anc 583 . . . . . . . . . . . . . . . 16 ((𝜑𝑐𝐴) → Σ𝑙 ∈ (1...1)(𝑐𝑙) = (𝑐‘1))
209202, 208eqtrd 2780 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → ((1 + Σ𝑙 ∈ (1...1)(𝑐𝑙)) − 1) = (𝑐‘1))
210177, 209eqtrd 2780 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘1) − 1) = (𝑐‘1))
211166, 210eqtrd 2780 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
2122113adant3 1132 . . . . . . . . . . . 12 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
213212adantr 480 . . . . . . . . . . 11 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
214213adantr 480 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐‘1))
215 simpr 484 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → 𝑘 = 1)
216215fveq2d 6924 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐𝑘) = (𝑐‘1))
217216eqcomd 2746 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (𝑐‘1) = (𝑐𝑘))
218214, 217eqtrd 2780 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ 𝑘 = 1) → (((𝐹𝑐)‘1) − 1) = (𝑐𝑘))
2194a1i 11 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐹 = (𝑎𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)))))
220 simpllr 775 . . . . . . . . . . . . . . . . . 18 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → 𝑎 = 𝑐)
221220fveq1d 6922 . . . . . . . . . . . . . . . . 17 (((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑙 ∈ (1...𝑗)) → (𝑎𝑙) = (𝑐𝑙))
222221sumeq2dv 15750 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...𝑗)(𝑎𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))
223222oveq2d 7464 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))
224223mpteq2dva 5266 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑎 = 𝑐) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
225 simpll2 1213 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐𝐴)
226 fzfid 14024 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝐾) ∈ Fin)
227226mptexd 7261 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) ∈ V)
228219, 224, 225, 227fvmptd 7036 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐹𝑐) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
229228fveq1d 6922 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘𝑘) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘))
230228fveq1d 6922 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐹𝑐)‘(𝑘 − 1)) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)))
231229, 230oveq12d 7466 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) = (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))))
232231oveq1d 7463 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1))
233 eqidd 2741 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙))))
234 simpr 484 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → 𝑗 = 𝑘)
235234oveq2d 7464 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (1...𝑗) = (1...𝑘))
236235sumeq1d 15748 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
237234, 236oveq12d 7466 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = 𝑘) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
238 1zzd 12674 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
2391383adant3 1132 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝐾 ∈ ℤ)
240239adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝐾 ∈ ℤ)
241240adantr 480 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
242 elfznn 13613 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℕ)
2432423ad2ant3 1135 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℕ)
244243nnzd 12666 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
245244adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℤ)
246245adantr 480 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
247243nnge1d 12341 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ≤ 𝑘)
248247adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ≤ 𝑘)
249248adantr 480 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
250 simpl3 1193 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (1...(𝐾 + 1)))
251 1zzd 12674 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 1 ∈ ℤ)
252240peano2zd 12750 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℤ)
253 elfz 13573 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑘 ∈ ℤ ∧ 1 ∈ ℤ ∧ (𝐾 + 1) ∈ ℤ) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
254245, 251, 252, 253syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) ↔ (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
255254biimpd 229 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ∈ (1...(𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1))))
256250, 255mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (1 ≤ 𝑘𝑘 ≤ (𝐾 + 1)))
257256simprd 495 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
258 neqne 2954 . . . . . . . . . . . . . . . . . . . . 21 𝑘 = (𝐾 + 1) → 𝑘 ≠ (𝐾 + 1))
259258adantl 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ≠ (𝐾 + 1))
260259necomd 3002 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ≠ 𝑘)
261257, 260jca 511 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘))
262245zred 12747 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ ℝ)
263252zred 12747 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝐾 + 1) ∈ ℝ)
264262, 263ltlend 11435 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘 < (𝐾 + 1) ↔ (𝑘 ≤ (𝐾 + 1) ∧ (𝐾 + 1) ≠ 𝑘)))
265261, 264mpbird 257 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 < (𝐾 + 1))
266 zleltp1 12694 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑘𝐾𝑘 < (𝐾 + 1)))
267245, 240, 266syl2anc 583 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑘𝐾𝑘 < (𝐾 + 1)))
268265, 267mpbird 257 . . . . . . . . . . . . . . . 16 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘𝐾)
269268adantr 480 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘𝐾)
270238, 241, 246, 249, 269elfzd 13575 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...𝐾))
271 ovexd 7483 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) ∈ V)
272233, 237, 270, 271fvmptd 7036 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) = (𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
273 simpr 484 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → 𝑗 = (𝑘 − 1))
274273oveq2d 7464 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (1...𝑗) = (1...(𝑘 − 1)))
275274sumeq1d 15748 . . . . . . . . . . . . . . 15 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → Σ𝑙 ∈ (1...𝑗)(𝑐𝑙) = Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))
276273, 275oveq12d 7466 . . . . . . . . . . . . . 14 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑗 = (𝑘 − 1)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
277 1zzd 12674 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℤ)
27853ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
2792783impa 1110 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℤ)
280242nnzd 12666 . . . . . . . . . . . . . . . . . . . . . 22 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ∈ ℤ)
281280adantl 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ ℤ)
282281adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
2832823impa 1110 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℤ)
284283, 277zsubcld 12752 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℤ)
285 neqne 2954 . . . . . . . . . . . . . . . . . . . . . 22 𝑘 = 1 → 𝑘 ≠ 1)
2862853ad2ant3 1135 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≠ 1)
2871083ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
288283zred 12747 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℝ)
289 simp2 1137 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (1...(𝐾 + 1)))
290 elfzle1 13587 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑘 ∈ (1...(𝐾 + 1)) → 1 ≤ 𝑘)
291289, 290syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ 𝑘)
292287, 288, 291leltned 11443 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘𝑘 ≠ 1))
293286, 292mpbird 257 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 < 𝑘)
294277, 283zltp1led 41936 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 < 𝑘 ↔ (1 + 1) ≤ 𝑘))
295293, 294mpbid 232 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1 + 1) ≤ 𝑘)
296 leaddsub 11766 . . . . . . . . . . . . . . . . . . . 20 ((1 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑘 ∈ ℝ) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
297287, 287, 288, 296syl3anc 1371 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + 1) ≤ 𝑘 ↔ 1 ≤ (𝑘 − 1)))
298295, 297mpbid 232 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ≤ (𝑘 − 1))
299284zred 12747 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℝ)
300553ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℝ)
301 1red 11291 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℝ)
302300, 301readdcld 11319 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝐾 + 1) ∈ ℝ)
303302, 301resubcld 11718 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ∈ ℝ)
304 elfzle2 13588 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 ∈ (1...(𝐾 + 1)) → 𝑘 ≤ (𝐾 + 1))
3053043ad2ant2 1134 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ≤ (𝐾 + 1))
306288, 302, 301, 305lesub1dd 11906 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ ((𝐾 + 1) − 1))
307643ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾 ∈ ℂ)
308 1cnd 11285 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
309307, 308pncand 11648 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) = 𝐾)
310563ad2ant1 1133 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝐾𝐾)
311309, 310eqbrtrd 5188 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝐾 + 1) − 1) ≤ 𝐾)
312299, 303, 300, 306, 311letrd 11447 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ≤ 𝐾)
313277, 279, 284, 298, 312elfzd 13575 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...(𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3143133expa 1118 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
3153143adantl2 1167 . . . . . . . . . . . . . . 15 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
316315adantlr 714 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ (1...𝐾))
317 ovexd 7483 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ V)
318233, 276, 316, 317fvmptd 7036 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1)) = ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
319272, 318oveq12d 7466 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) = ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
320319oveq1d 7463 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
321246zcnd 12748 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ ℂ)
322 fzfid 14024 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...𝑘) ∈ Fin)
323 1zzd 12674 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ∈ ℤ)
324241adantr 480 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝐾 ∈ ℤ)
325324peano2zd 12750 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℤ)
326 elfznn 13613 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙 ∈ ℕ)
327326adantl 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℕ)
328327nnzd 12666 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℤ)
329327nnge1d 12341 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 1 ≤ 𝑙)
330327nnred 12308 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ ℝ)
331262ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ∈ ℝ)
332263ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝐾 + 1) ∈ ℝ)
333 elfzle2 13588 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...𝑘) → 𝑙𝑘)
334333adantl 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙𝑘)
335257ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑘 ≤ (𝐾 + 1))
336330, 331, 332, 334, 335letrd 11447 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ≤ (𝐾 + 1))
337323, 325, 328, 329, 336elfzd 13575 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑙 ∈ (1...(𝐾 + 1)))
338973adant3 1132 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
339338adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
340339adantr 480 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
341340adantr 480 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
342341ffvelcdmda 7118 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
343337, 342mpdan 686 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℕ0)
344322, 343fsumnn0cl 15784 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℕ0)
345344nn0cnd 12615 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) ∈ ℂ)
346 1cnd 11285 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 1 ∈ ℂ)
347321, 346subcld 11647 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − 1) ∈ ℂ)
348 fzfid 14024 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (1...(𝑘 − 1)) ∈ Fin)
349 1zzd 12674 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℤ)
350241adantr 480 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝐾 ∈ ℤ)
351350peano2zd 12750 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℤ)
352 elfznn 13613 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ∈ ℕ)
353352adantl 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℕ)
354353nnzd 12666 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℤ)
355353nnge1d 12341 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ≤ 𝑙)
356353nnred 12308 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ ℝ)
357262ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ∈ ℝ)
358 1red 11291 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 1 ∈ ℝ)
359357, 358resubcld 11718 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ∈ ℝ)
360263ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝐾 + 1) ∈ ℝ)
361 elfzle2 13588 . . . . . . . . . . . . . . . . . . . 20 (𝑙 ∈ (1...(𝑘 − 1)) → 𝑙 ≤ (𝑘 − 1))
362361adantl 481 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝑘 − 1))
363357lem1d 12228 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ 𝑘)
364257ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑘 ≤ (𝐾 + 1))
365359, 357, 360, 363, 364letrd 11447 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑘 − 1) ≤ (𝐾 + 1))
366356, 359, 360, 362, 365letrd 11447 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ≤ (𝐾 + 1))
367349, 351, 354, 355, 366elfzd 13575 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑙 ∈ (1...(𝐾 + 1)))
368340adantr 480 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → 𝑐:(1...(𝐾 + 1))⟶ℕ0)
369368ffvelcdmda 7118 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) ∧ 𝑙 ∈ (1...(𝐾 + 1))) → (𝑐𝑙) ∈ ℕ0)
370367, 369mpdan 686 . . . . . . . . . . . . . . . 16 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...(𝑘 − 1))) → (𝑐𝑙) ∈ ℕ0)
371348, 370fsumnn0cl 15784 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℕ0)
372371nn0cnd 12615 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) ∈ ℂ)
373321, 345, 347, 372addsub4d 11694 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
374373oveq1d 7463 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
375321, 346nncand 11652 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑘 − (𝑘 − 1)) = 1)
376375oveq1d 7463 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) = (1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))))
377376oveq1d 7463 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1))
378345, 372subcld 11647 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) ∈ ℂ)
379346, 378pncan2d 11649 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)))
3801373adant3 1132 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 1 ∈ ℤ)
381380, 244, 2473jca 1128 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
382 eluz2 12909 . . . . . . . . . . . . . . . . . . . 20 (𝑘 ∈ (ℤ‘1) ↔ (1 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
383381, 382sylibr 234 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (ℤ‘1))
384383adantr 480 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → 𝑘 ∈ (ℤ‘1))
385384adantr 480 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → 𝑘 ∈ (ℤ‘1))
386343nn0cnd 12615 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) ∧ 𝑙 ∈ (1...𝑘)) → (𝑐𝑙) ∈ ℂ)
387 fveq2 6920 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑘 → (𝑐𝑙) = (𝑐𝑘))
388385, 386, 387fsumm1 15799 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) = (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)))
389388eqcomd 2746 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙))
390 simp3 1138 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → 𝑘 ∈ (1...(𝐾 + 1)))
391338, 390ffvelcdmd 7119 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℕ0)
392391nn0cnd 12615 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → (𝑐𝑘) ∈ ℂ)
393392adantr 480 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → (𝑐𝑘) ∈ ℂ)
394393adantr 480 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (𝑐𝑘) ∈ ℂ)
395345, 372, 394subaddd 11665 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘) ↔ (Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙) + (𝑐𝑘)) = Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)))
396389, 395mpbird 257 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙)) = (𝑐𝑘))
397379, 396eqtrd 2780 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((1 + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
398377, 397eqtrd 2780 . . . . . . . . . . . 12 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 − (𝑘 − 1)) + (Σ𝑙 ∈ (1...𝑘)(𝑐𝑙) − Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
399374, 398eqtrd 2780 . . . . . . . . . . 11 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → (((𝑘 + Σ𝑙 ∈ (1...𝑘)(𝑐𝑙)) − ((𝑘 − 1) + Σ𝑙 ∈ (1...(𝑘 − 1))(𝑐𝑙))) − 1) = (𝑐𝑘))
400320, 399eqtrd 2780 . . . . . . . . . 10 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘𝑘) − ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑐𝑙)))‘(𝑘 − 1))) − 1) = (𝑐𝑘))
401232, 400eqtrd 2780 . . . . . . . . 9 ((((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) ∧ ¬ 𝑘 = 1) → ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1) = (𝑐𝑘))
402218, 401ifeqda 4584 . . . . . . . 8 (((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) ∧ ¬ 𝑘 = (𝐾 + 1)) → if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)) = (𝑐𝑘))
403164, 402ifeqda 4584 . . . . . . 7 ((𝜑𝑐𝐴𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
4044033expa 1118 . . . . . 6 (((𝜑𝑐𝐴) ∧ 𝑘 ∈ (1...(𝐾 + 1))) → if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1))) = (𝑐𝑘))
405404mpteq2dva 5266 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
40697ffnd 6748 . . . . . . 7 ((𝜑𝑐𝐴) → 𝑐 Fn (1...(𝐾 + 1)))
407 dffn5 6980 . . . . . . . 8 (𝑐 Fn (1...(𝐾 + 1)) ↔ 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
408407biimpi 216 . . . . . . 7 (𝑐 Fn (1...(𝐾 + 1)) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
409406, 408syl 17 . . . . . 6 ((𝜑𝑐𝐴) → 𝑐 = (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)))
410409eqcomd 2746 . . . . 5 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ (𝑐𝑘)) = 𝑐)
411405, 410eqtrd 2780 . . . 4 ((𝜑𝑐𝐴) → (𝑘 ∈ (1...(𝐾 + 1)) ↦ if(𝑘 = (𝐾 + 1), ((𝑁 + 𝐾) − ((𝐹𝑐)‘𝐾)), if(𝑘 = 1, (((𝐹𝑐)‘1) − 1), ((((𝐹𝑐)‘𝑘) − ((𝐹𝑐)‘(𝑘 − 1))) − 1)))) = 𝑐)
41237, 411eqtrd 2780 . . 3 ((𝜑𝑐𝐴) → (𝐺‘(𝐹𝑐)) = 𝑐)
413412ralrimiva 3152 . 2 (𝜑 → ∀𝑐𝐴 (𝐺‘(𝐹𝑐)) = 𝑐)
4141, 2, 4, 8, 5, 6sticksstones12a 42114 . 2 (𝜑 → ∀𝑑𝐵 (𝐹‘(𝐺𝑑)) = 𝑑)
4157, 9, 413, 4142fvidf1od 7334 1 (𝜑𝐹:𝐴1-1-onto𝐵)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1087   = wceq 1537  wcel 2108  {cab 2717  wne 2946  wral 3067  Vcvv 3488  ifcif 4548  {csn 4648  cop 4654   class class class wbr 5166  cmpt 5249   Fn wfn 6568  wf 6569  1-1-ontowf1o 6572  cfv 6573  (class class class)co 7448  Fincfn 9003  cc 11182  cr 11183  0cc0 11184  1c1 11185   + caddc 11187   < clt 11324  cle 11325  cmin 11520  cn 12293  0cn0 12553  cz 12639  cuz 12903  ...cfz 13567  Σcsu 15734
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-inf2 9710  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-oi 9579  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-n0 12554  df-z 12640  df-uz 12904  df-rp 13058  df-ico 13413  df-fz 13568  df-fzo 13712  df-seq 14053  df-exp 14113  df-hash 14380  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-clim 15534  df-sum 15735
This theorem is referenced by:  sticksstones13  42116
  Copyright terms: Public domain W3C validator