MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  vdwapun Structured version   Visualization version   GIF version

Theorem vdwapun 16945
Description: Remove the first element of an arithmetic progression. (Contributed by Mario Carneiro, 11-Sep-2014.)
Assertion
Ref Expression
vdwapun ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘(𝐾 + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))

Proof of Theorem vdwapun
Dummy variables 𝑚 𝑛 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 peano2nn0 12477 . . . . 5 (𝐾 ∈ ℕ0 → (𝐾 + 1) ∈ ℕ0)
2 vdwapval 16944 . . . . 5 (((𝐾 + 1) ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
31, 2syl3an1 1164 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
4 simp1 1137 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℕ0)
54nn0cnd 12500 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℂ)
6 ax-1cn 11096 . . . . . . . . . . . 12 1 ∈ ℂ
7 pncan 11399 . . . . . . . . . . . 12 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 + 1) − 1) = 𝐾)
85, 6, 7sylancl 587 . . . . . . . . . . 11 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐾 + 1) − 1) = 𝐾)
98oveq2d 7383 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0...((𝐾 + 1) − 1)) = (0...𝐾))
109eleq2d 2822 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ 𝑛 ∈ (0...𝐾)))
11 nn0uz 12826 . . . . . . . . . . 11 0 = (ℤ‘0)
124, 11eleqtrdi 2846 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ (ℤ‘0))
13 elfzp12 13557 . . . . . . . . . 10 (𝐾 ∈ (ℤ‘0) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1412, 13syl 17 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1510, 14bitrd 279 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1615anbi1d 632 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
17 andir 1011 . . . . . . 7 (((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
1816, 17bitrdi 287 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
1918exbidv 1923 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
20 df-rex 3062 . . . . 5 (∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))
21 19.43 1884 . . . . . 6 (∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
2221bicomi 224 . . . . 5 ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ ∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
2319, 20, 223bitr4g 314 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
243, 23bitrd 279 . . 3 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
25 nncn 12182 . . . . . . . . . . 11 (𝐷 ∈ ℕ → 𝐷 ∈ ℂ)
26253ad2ant3 1136 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐷 ∈ ℂ)
2726mul02d 11344 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0 · 𝐷) = 0)
2827oveq2d 7383 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = (𝐴 + 0))
29 nncn 12182 . . . . . . . . . 10 (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
30293ad2ant2 1135 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ ℂ)
3130addridd 11346 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 0) = 𝐴)
3228, 31eqtrd 2771 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = 𝐴)
3332eqeq2d 2747 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 = (𝐴 + (0 · 𝐷)) ↔ 𝑥 = 𝐴))
34 c0ex 11138 . . . . . . 7 0 ∈ V
35 oveq1 7374 . . . . . . . . 9 (𝑛 = 0 → (𝑛 · 𝐷) = (0 · 𝐷))
3635oveq2d 7383 . . . . . . . 8 (𝑛 = 0 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (0 · 𝐷)))
3736eqeq2d 2747 . . . . . . 7 (𝑛 = 0 → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ 𝑥 = (𝐴 + (0 · 𝐷))))
3834, 37ceqsexv 3478 . . . . . 6 (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 = (𝐴 + (0 · 𝐷)))
39 velsn 4583 . . . . . 6 (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
4033, 38, 393bitr4g 314 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ {𝐴}))
41 simpr 484 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ((0 + 1)...𝐾))
42 0p1e1 12298 . . . . . . . . . . . . . . 15 (0 + 1) = 1
4342oveq1i 7377 . . . . . . . . . . . . . 14 ((0 + 1)...𝐾) = (1...𝐾)
4441, 43eleqtrdi 2846 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ (1...𝐾))
45 1zzd 12558 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℤ)
464adantr 480 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℕ0)
4746nn0zd 12549 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℤ)
48 elfzelz 13478 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((0 + 1)...𝐾) → 𝑛 ∈ ℤ)
4948adantl 481 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℤ)
50 fzsubel 13514 . . . . . . . . . . . . . 14 (((1 ∈ ℤ ∧ 𝐾 ∈ ℤ) ∧ (𝑛 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑛 ∈ (1...𝐾) ↔ (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1))))
5145, 47, 49, 45, 50syl22anc 839 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 ∈ (1...𝐾) ↔ (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1))))
5244, 51mpbid 232 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1)))
53 1m1e0 12253 . . . . . . . . . . . . 13 (1 − 1) = 0
5453oveq1i 7377 . . . . . . . . . . . 12 ((1 − 1)...(𝐾 − 1)) = (0...(𝐾 − 1))
5552, 54eleqtrdi 2846 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ (0...(𝐾 − 1)))
5649zcnd 12634 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℂ)
57 1cnd 11139 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℂ)
5826adantr 480 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐷 ∈ ℂ)
5956, 57, 58subdird 11607 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − (1 · 𝐷)))
6058mullidd 11163 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (1 · 𝐷) = 𝐷)
6160oveq2d 7383 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 · 𝐷) − (1 · 𝐷)) = ((𝑛 · 𝐷) − 𝐷))
6259, 61eqtrd 2771 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − 𝐷))
6362oveq2d 7383 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 − 1) · 𝐷)) = (𝐷 + ((𝑛 · 𝐷) − 𝐷)))
6456, 58mulcld 11165 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) ∈ ℂ)
6558, 64pncan3d 11508 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 · 𝐷) − 𝐷)) = (𝑛 · 𝐷))
6663, 65eqtr2d 2772 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) = (𝐷 + ((𝑛 − 1) · 𝐷)))
6766oveq2d 7383 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
6830adantr 480 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐴 ∈ ℂ)
69 subcl 11392 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑛 − 1) ∈ ℂ)
7056, 6, 69sylancl 587 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ℂ)
7170, 58mulcld 11165 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) ∈ ℂ)
7268, 58, 71addassd 11167 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
7367, 72eqtr4d 2774 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
74 oveq1 7374 . . . . . . . . . . . . 13 (𝑚 = (𝑛 − 1) → (𝑚 · 𝐷) = ((𝑛 − 1) · 𝐷))
7574oveq2d 7383 . . . . . . . . . . . 12 (𝑚 = (𝑛 − 1) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
7675rspceeqv 3587 . . . . . . . . . . 11 (((𝑛 − 1) ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
7755, 73, 76syl2anc 585 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
78 eqeq1 2740 . . . . . . . . . . 11 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
7978rexbidv 3161 . . . . . . . . . 10 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8077, 79syl5ibrcom 247 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8180expimpd 453 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8281exlimdv 1935 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
83 simpr 484 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ (0...(𝐾 − 1)))
84 0zd 12536 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 0 ∈ ℤ)
854adantr 480 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℕ0)
8685nn0zd 12549 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℤ)
87 peano2zm 12570 . . . . . . . . . . . . . 14 (𝐾 ∈ ℤ → (𝐾 − 1) ∈ ℤ)
8886, 87syl 17 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐾 − 1) ∈ ℤ)
89 elfzelz 13478 . . . . . . . . . . . . . 14 (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℤ)
9089adantl 481 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℤ)
91 1zzd 12558 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℤ)
92 fzaddel 13512 . . . . . . . . . . . . 13 (((0 ∈ ℤ ∧ (𝐾 − 1) ∈ ℤ) ∧ (𝑚 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑚 ∈ (0...(𝐾 − 1)) ↔ (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1))))
9384, 88, 90, 91, 92syl22anc 839 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 ∈ (0...(𝐾 − 1)) ↔ (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1))))
9483, 93mpbid 232 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1)))
9585nn0cnd 12500 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℂ)
96 npcan 11402 . . . . . . . . . . . . 13 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
9795, 6, 96sylancl 587 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐾 − 1) + 1) = 𝐾)
9897oveq2d 7383 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((0 + 1)...((𝐾 − 1) + 1)) = ((0 + 1)...𝐾))
9994, 98eleqtrd 2838 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...𝐾))
10030adantr 480 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
10126adantr 480 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐷 ∈ ℂ)
10290zcnd 12634 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℂ)
103102, 101mulcld 11165 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104100, 101, 103addassd 11167 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
105 1cnd 11139 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℂ)
106102, 105, 101adddird 11170 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = ((𝑚 · 𝐷) + (1 · 𝐷)))
107101, 103addcomd 11348 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
108101mullidd 11163 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (1 · 𝐷) = 𝐷)
109108oveq2d 7383 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 · 𝐷) + (1 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
110107, 109eqtr4d 2774 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + (1 · 𝐷)))
111106, 110eqtr4d 2774 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = (𝐷 + (𝑚 · 𝐷)))
112111oveq2d 7383 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + ((𝑚 + 1) · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
113104, 112eqtr4d 2774 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
114 ovex 7400 . . . . . . . . . . 11 (𝑚 + 1) ∈ V
115 eleq1 2824 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (𝑛 ∈ ((0 + 1)...𝐾) ↔ (𝑚 + 1) ∈ ((0 + 1)...𝐾)))
116 oveq1 7374 . . . . . . . . . . . . . 14 (𝑛 = (𝑚 + 1) → (𝑛 · 𝐷) = ((𝑚 + 1) · 𝐷))
117116oveq2d 7383 . . . . . . . . . . . . 13 (𝑛 = (𝑚 + 1) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
118117eqeq2d 2747 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))))
119115, 118anbi12d 633 . . . . . . . . . . 11 (𝑛 = (𝑚 + 1) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))))
120114, 119spcev 3548 . . . . . . . . . 10 (((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
12199, 113, 120syl2anc 585 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
122 eqeq1 2740 . . . . . . . . . . 11 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
123122anbi2d 631 . . . . . . . . . 10 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ (𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
124123exbidv 1923 . . . . . . . . 9 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
125121, 124syl5ibrcom 247 . . . . . . . 8 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
126125rexlimdva 3138 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
12782, 126impbid 212 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
128 nnaddcl 12197 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
1291283adant1 1131 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
130 vdwapval 16944 . . . . . . 7 ((𝐾 ∈ ℕ0 ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
131129, 130syld3an2 1414 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
132127, 131bitr4d 282 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
13340, 132orbi12d 919 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
134 elun 4093 . . . 4 (𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
135133, 134bitr4di 289 . . 3 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
13624, 135bitrd 279 . 2 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
137136eqrdv 2734 1 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘(𝐾 + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  wo 848  w3a 1087   = wceq 1542  wex 1781  wcel 2114  wrex 3061  cun 3887  {csn 4567  cfv 6498  (class class class)co 7367  cc 11036  0cc0 11038  1c1 11039   + caddc 11041   · cmul 11043  cmin 11377  cn 12174  0cn0 12437  cz 12524  cuz 12788  ...cfz 13461  APcvdwa 16936
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-om 7818  df-1st 7942  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-er 8643  df-en 8894  df-dom 8895  df-sdom 8896  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-n0 12438  df-z 12525  df-uz 12789  df-fz 13462  df-vdwap 16939
This theorem is referenced by:  vdwapid1  16946  vdwap1  16948  vdwlem1  16952  vdwlem5  16956  vdwlem8  16959  vdwlem12  16963
  Copyright terms: Public domain W3C validator