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

Theorem vdwapun 17033
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 12543 . . . . 5 (𝐾 ∈ ℕ0 → (𝐾 + 1) ∈ ℕ0)
2 vdwapval 17032 . . . . 5 (((𝐾 + 1) ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
31, 2syl3an1 1179 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
4 simp1 1152 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℕ0)
54nn0cnd 12566 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℂ)
6 ax-1cn 11157 . . . . . . . . . . . 12 1 ∈ ℂ
7 pncan 11462 . . . . . . . . . . . 12 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 + 1) − 1) = 𝐾)
85, 6, 7sylancl 597 . . . . . . . . . . 11 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐾 + 1) − 1) = 𝐾)
98oveq2d 7427 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0...((𝐾 + 1) − 1)) = (0...𝐾))
109eleq2d 2855 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ 𝑛 ∈ (0...𝐾)))
11 nn0uz 12899 . . . . . . . . . . 11 0 = (ℤ‘0)
124, 11eleqtrdi 2879 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ (ℤ‘0))
13 elfzp12 13630 . . . . . . . . . 10 (𝐾 ∈ (ℤ‘0) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1412, 13syl 18 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1510, 14bitrd 282 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1615anbi1d 642 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
17 andir 1024 . . . . . . 7 (((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
1816, 17bitrdi 290 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
1918exbidv 1948 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
20 df-rex 3096 . . . . 5 (∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))
21 19.43 1909 . . . . . 6 (∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
2221bicomi 227 . . . . 5 ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ ∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
2319, 20, 223bitr4g 317 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
243, 23bitrd 282 . . 3 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
25 nncn 12240 . . . . . . . . . . 11 (𝐷 ∈ ℕ → 𝐷 ∈ ℂ)
26253ad2ant3 1151 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐷 ∈ ℂ)
2726mul02d 11407 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0 · 𝐷) = 0)
2827oveq2d 7427 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = (𝐴 + 0))
29 nncn 12240 . . . . . . . . . 10 (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
30293ad2ant2 1150 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ ℂ)
3130addridd 11409 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 0) = 𝐴)
3228, 31eqtrd 2804 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = 𝐴)
3332eqeq2d 2780 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 = (𝐴 + (0 · 𝐷)) ↔ 𝑥 = 𝐴))
34 c0ex 11199 . . . . . . 7 0 ∈ V
35 oveq1 7418 . . . . . . . . 9 (𝑛 = 0 → (𝑛 · 𝐷) = (0 · 𝐷))
3635oveq2d 7427 . . . . . . . 8 (𝑛 = 0 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (0 · 𝐷)))
3736eqeq2d 2780 . . . . . . 7 (𝑛 = 0 → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ 𝑥 = (𝐴 + (0 · 𝐷))))
3834, 37ceqsexv 3511 . . . . . 6 (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 = (𝐴 + (0 · 𝐷)))
39 velsn 4610 . . . . . 6 (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
4033, 38, 393bitr4g 317 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ {𝐴}))
41 simpr 489 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ((0 + 1)...𝐾))
42 0p1e1 12360 . . . . . . . . . . . . . . 15 (0 + 1) = 1
4342oveq1i 7421 . . . . . . . . . . . . . 14 ((0 + 1)...𝐾) = (1...𝐾)
4441, 43eleqtrdi 2879 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ (1...𝐾))
45 1zzd 12624 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℤ)
464adantr 485 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℕ0)
4746nn0zd 12615 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℤ)
48 elfzelz 13551 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((0 + 1)...𝐾) → 𝑛 ∈ ℤ)
4948adantl 486 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℤ)
50 fzsubel 13587 . . . . . . . . . . . . . 14 (((1 ∈ ℤ ∧ 𝐾 ∈ ℤ) ∧ (𝑛 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑛 ∈ (1...𝐾) ↔ (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1))))
5145, 47, 49, 45, 50syl22anc 851 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 ∈ (1...𝐾) ↔ (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1))))
5244, 51mpbid 235 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1)))
53 1m1e0 12312 . . . . . . . . . . . . 13 (1 − 1) = 0
5453oveq1i 7421 . . . . . . . . . . . 12 ((1 − 1)...(𝐾 − 1)) = (0...(𝐾 − 1))
5552, 54eleqtrdi 2879 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ (0...(𝐾 − 1)))
5649zcnd 12700 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℂ)
57 1cnd 11201 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℂ)
5826adantr 485 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐷 ∈ ℂ)
5956, 57, 58subdird 11670 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − (1 · 𝐷)))
6058mullidd 11226 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (1 · 𝐷) = 𝐷)
6160oveq2d 7427 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 · 𝐷) − (1 · 𝐷)) = ((𝑛 · 𝐷) − 𝐷))
6259, 61eqtrd 2804 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − 𝐷))
6362oveq2d 7427 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 − 1) · 𝐷)) = (𝐷 + ((𝑛 · 𝐷) − 𝐷)))
6456, 58mulcld 11228 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) ∈ ℂ)
6558, 64pncan3d 11571 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 · 𝐷) − 𝐷)) = (𝑛 · 𝐷))
6663, 65eqtr2d 2805 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) = (𝐷 + ((𝑛 − 1) · 𝐷)))
6766oveq2d 7427 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
6830adantr 485 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐴 ∈ ℂ)
69 subcl 11455 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑛 − 1) ∈ ℂ)
7056, 6, 69sylancl 597 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ℂ)
7170, 58mulcld 11228 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) ∈ ℂ)
7268, 58, 71addassd 11230 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
7367, 72eqtr4d 2807 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
74 oveq1 7418 . . . . . . . . . . . . 13 (𝑚 = (𝑛 − 1) → (𝑚 · 𝐷) = ((𝑛 − 1) · 𝐷))
7574oveq2d 7427 . . . . . . . . . . . 12 (𝑚 = (𝑛 − 1) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
7675rspceeqv 3613 . . . . . . . . . . 11 (((𝑛 − 1) ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
7755, 73, 76syl2anc 595 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
78 eqeq1 2773 . . . . . . . . . . 11 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
7978rexbidv 3195 . . . . . . . . . 10 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8077, 79syl5ibrcom 250 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8180expimpd 458 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8281exlimdv 1960 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
83 simpr 489 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ (0...(𝐾 − 1)))
84 0zd 12602 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 0 ∈ ℤ)
854adantr 485 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℕ0)
8685nn0zd 12615 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℤ)
87 peano2zm 12636 . . . . . . . . . . . . . 14 (𝐾 ∈ ℤ → (𝐾 − 1) ∈ ℤ)
8886, 87syl 18 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐾 − 1) ∈ ℤ)
89 elfzelz 13551 . . . . . . . . . . . . . 14 (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℤ)
9089adantl 486 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℤ)
91 1zzd 12624 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℤ)
92 fzaddel 13585 . . . . . . . . . . . . 13 (((0 ∈ ℤ ∧ (𝐾 − 1) ∈ ℤ) ∧ (𝑚 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑚 ∈ (0...(𝐾 − 1)) ↔ (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1))))
9384, 88, 90, 91, 92syl22anc 851 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 ∈ (0...(𝐾 − 1)) ↔ (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1))))
9483, 93mpbid 235 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1)))
9585nn0cnd 12566 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℂ)
96 npcan 11465 . . . . . . . . . . . . 13 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
9795, 6, 96sylancl 597 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐾 − 1) + 1) = 𝐾)
9897oveq2d 7427 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((0 + 1)...((𝐾 − 1) + 1)) = ((0 + 1)...𝐾))
9994, 98eleqtrd 2871 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...𝐾))
10030adantr 485 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
10126adantr 485 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐷 ∈ ℂ)
10290zcnd 12700 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℂ)
103102, 101mulcld 11228 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104100, 101, 103addassd 11230 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
105 1cnd 11201 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℂ)
106102, 105, 101adddird 11233 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = ((𝑚 · 𝐷) + (1 · 𝐷)))
107101, 103addcomd 11411 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
108101mullidd 11226 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (1 · 𝐷) = 𝐷)
109108oveq2d 7427 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 · 𝐷) + (1 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
110107, 109eqtr4d 2807 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + (1 · 𝐷)))
111106, 110eqtr4d 2807 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = (𝐷 + (𝑚 · 𝐷)))
112111oveq2d 7427 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + ((𝑚 + 1) · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
113104, 112eqtr4d 2807 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
114 ovex 7444 . . . . . . . . . . 11 (𝑚 + 1) ∈ V
115 eleq1 2857 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (𝑛 ∈ ((0 + 1)...𝐾) ↔ (𝑚 + 1) ∈ ((0 + 1)...𝐾)))
116 oveq1 7418 . . . . . . . . . . . . . 14 (𝑛 = (𝑚 + 1) → (𝑛 · 𝐷) = ((𝑚 + 1) · 𝐷))
117116oveq2d 7427 . . . . . . . . . . . . 13 (𝑛 = (𝑚 + 1) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
118117eqeq2d 2780 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))))
119115, 118anbi12d 643 . . . . . . . . . . 11 (𝑛 = (𝑚 + 1) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))))
120114, 119spcev 3574 . . . . . . . . . 10 (((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
12199, 113, 120syl2anc 595 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
122 eqeq1 2773 . . . . . . . . . . 11 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
123122anbi2d 641 . . . . . . . . . 10 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ (𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
124123exbidv 1948 . . . . . . . . 9 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
125121, 124syl5ibrcom 250 . . . . . . . 8 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
126125rexlimdva 3172 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
12782, 126impbid 215 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
128 nnaddcl 12255 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
1291283adant1 1146 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
130 vdwapval 17032 . . . . . . 7 ((𝐾 ∈ ℕ0 ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
131129, 130syld3an2 1436 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
132127, 131bitr4d 285 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
13340, 132orbi12d 931 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
134 elun 4115 . . . 4 (𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
135133, 134bitr4di 292 . . 3 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
13624, 135bitrd 282 . 2 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
137136eqrdv 2767 1 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘(𝐾 + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  wo 860  w3a 1101   = wceq 1567  wex 1806  wcel 2149  wrex 3095  cun 3911  {csn 4594  cfv 6537  (class class class)co 7411  cc 11097  0cc0 11099  1c1 11100   + caddc 11102   · cmul 11104  cmin 11440  cn 12232  0cn0 12503  cz 12590  cuz 12861  ...cfz 13534  APcvdwa 17024
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-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176
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-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-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-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-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7862  df-1st 7985  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-er 8693  df-en 8943  df-dom 8944  df-sdom 8945  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-n0 12504  df-z 12591  df-uz 12862  df-fz 13535  df-vdwap 17027
This theorem is referenced by:  vdwapid1  17034  vdwap1  17036  vdwlem1  17040  vdwlem5  17044  vdwlem8  17047  vdwlem12  17051
  Copyright terms: Public domain W3C validator