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

Theorem vdwapun 16490
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 12095 . . . . 5 (𝐾 ∈ ℕ0 → (𝐾 + 1) ∈ ℕ0)
2 vdwapval 16489 . . . . 5 (((𝐾 + 1) ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
31, 2syl3an1 1165 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ ∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷))))
4 simp1 1138 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℕ0)
54nn0cnd 12117 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ ℂ)
6 ax-1cn 10752 . . . . . . . . . . . 12 1 ∈ ℂ
7 pncan 11049 . . . . . . . . . . . 12 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 + 1) − 1) = 𝐾)
85, 6, 7sylancl 589 . . . . . . . . . . 11 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐾 + 1) − 1) = 𝐾)
98oveq2d 7207 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0...((𝐾 + 1) − 1)) = (0...𝐾))
109eleq2d 2816 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ 𝑛 ∈ (0...𝐾)))
11 nn0uz 12441 . . . . . . . . . . 11 0 = (ℤ‘0)
124, 11eleqtrdi 2841 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐾 ∈ (ℤ‘0))
13 elfzp12 13156 . . . . . . . . . 10 (𝐾 ∈ (ℤ‘0) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1412, 13syl 17 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...𝐾) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1510, 14bitrd 282 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑛 ∈ (0...((𝐾 + 1) − 1)) ↔ (𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾))))
1615anbi1d 633 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
17 andir 1009 . . . . . . 7 (((𝑛 = 0 ∨ 𝑛 ∈ ((0 + 1)...𝐾)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
1816, 17bitrdi 290 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
1918exbidv 1929 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛((𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ (𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))))
20 df-rex 3057 . . . . 5 (∃𝑛 ∈ (0...((𝐾 + 1) − 1))𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ∃𝑛(𝑛 ∈ (0...((𝐾 + 1) − 1)) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))))
21 19.43 1890 . . . . . 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 11803 . . . . . . . . . . 11 (𝐷 ∈ ℕ → 𝐷 ∈ ℂ)
26253ad2ant3 1137 . . . . . . . . . 10 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐷 ∈ ℂ)
2726mul02d 10995 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (0 · 𝐷) = 0)
2827oveq2d 7207 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = (𝐴 + 0))
29 nncn 11803 . . . . . . . . . 10 (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
30293ad2ant2 1136 . . . . . . . . 9 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ ℂ)
3130addid1d 10997 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 0) = 𝐴)
3228, 31eqtrd 2771 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + (0 · 𝐷)) = 𝐴)
3332eqeq2d 2747 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 = (𝐴 + (0 · 𝐷)) ↔ 𝑥 = 𝐴))
34 c0ex 10792 . . . . . . 7 0 ∈ V
35 oveq1 7198 . . . . . . . . 9 (𝑛 = 0 → (𝑛 · 𝐷) = (0 · 𝐷))
3635oveq2d 7207 . . . . . . . 8 (𝑛 = 0 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (0 · 𝐷)))
3736eqeq2d 2747 . . . . . . 7 (𝑛 = 0 → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ 𝑥 = (𝐴 + (0 · 𝐷))))
3834, 37ceqsexv 3445 . . . . . 6 (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 = (𝐴 + (0 · 𝐷)))
39 velsn 4543 . . . . . 6 (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
4033, 38, 393bitr4g 317 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ {𝐴}))
41 simpr 488 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ((0 + 1)...𝐾))
42 0p1e1 11917 . . . . . . . . . . . . . . 15 (0 + 1) = 1
4342oveq1i 7201 . . . . . . . . . . . . . 14 ((0 + 1)...𝐾) = (1...𝐾)
4441, 43eleqtrdi 2841 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ (1...𝐾))
45 1zzd 12173 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℤ)
464adantr 484 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℕ0)
4746nn0zd 12245 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐾 ∈ ℤ)
48 elfzelz 13077 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((0 + 1)...𝐾) → 𝑛 ∈ ℤ)
4948adantl 485 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℤ)
50 fzsubel 13113 . . . . . . . . . . . . . 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 235 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ((1 − 1)...(𝐾 − 1)))
53 1m1e0 11867 . . . . . . . . . . . . 13 (1 − 1) = 0
5453oveq1i 7201 . . . . . . . . . . . 12 ((1 − 1)...(𝐾 − 1)) = (0...(𝐾 − 1))
5552, 54eleqtrdi 2841 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ (0...(𝐾 − 1)))
5649zcnd 12248 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝑛 ∈ ℂ)
57 1cnd 10793 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 1 ∈ ℂ)
5826adantr 484 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐷 ∈ ℂ)
5956, 57, 58subdird 11254 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − (1 · 𝐷)))
6058mulid2d 10816 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (1 · 𝐷) = 𝐷)
6160oveq2d 7207 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 · 𝐷) − (1 · 𝐷)) = ((𝑛 · 𝐷) − 𝐷))
6259, 61eqtrd 2771 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) = ((𝑛 · 𝐷) − 𝐷))
6362oveq2d 7207 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 − 1) · 𝐷)) = (𝐷 + ((𝑛 · 𝐷) − 𝐷)))
6456, 58mulcld 10818 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) ∈ ℂ)
6558, 64pncan3d 11157 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐷 + ((𝑛 · 𝐷) − 𝐷)) = (𝑛 · 𝐷))
6663, 65eqtr2d 2772 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 · 𝐷) = (𝐷 + ((𝑛 − 1) · 𝐷)))
6766oveq2d 7207 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
6830adantr 484 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → 𝐴 ∈ ℂ)
69 subcl 11042 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑛 − 1) ∈ ℂ)
7056, 6, 69sylancl 589 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑛 − 1) ∈ ℂ)
7170, 58mulcld 10818 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝑛 − 1) · 𝐷) ∈ ℂ)
7268, 58, 71addassd 10820 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)) = (𝐴 + (𝐷 + ((𝑛 − 1) · 𝐷))))
7367, 72eqtr4d 2774 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
74 oveq1 7198 . . . . . . . . . . . . 13 (𝑚 = (𝑛 − 1) → (𝑚 · 𝐷) = ((𝑛 − 1) · 𝐷))
7574oveq2d 7207 . . . . . . . . . . . 12 (𝑚 = (𝑛 − 1) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷)))
7675rspceeqv 3542 . . . . . . . . . . 11 (((𝑛 − 1) ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + ((𝑛 − 1) · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
7755, 73, 76syl2anc 587 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷)))
78 eqeq1 2740 . . . . . . . . . . 11 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ (𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
7978rexbidv 3206 . . . . . . . . . 10 (𝑥 = (𝐴 + (𝑛 · 𝐷)) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))(𝐴 + (𝑛 · 𝐷)) = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8077, 79syl5ibrcom 250 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑛 ∈ ((0 + 1)...𝐾)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8180expimpd 457 . . . . . . . 8 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
8281exlimdv 1941 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) → ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
83 simpr 488 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ (0...(𝐾 − 1)))
84 0zd 12153 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 0 ∈ ℤ)
854adantr 484 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℕ0)
8685nn0zd 12245 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℤ)
87 peano2zm 12185 . . . . . . . . . . . . . 14 (𝐾 ∈ ℤ → (𝐾 − 1) ∈ ℤ)
8886, 87syl 17 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐾 − 1) ∈ ℤ)
89 elfzelz 13077 . . . . . . . . . . . . . 14 (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℤ)
9089adantl 485 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℤ)
91 1zzd 12173 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℤ)
92 fzaddel 13111 . . . . . . . . . . . . 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 235 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...((𝐾 − 1) + 1)))
9585nn0cnd 12117 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐾 ∈ ℂ)
96 npcan 11052 . . . . . . . . . . . . 13 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
9795, 6, 96sylancl 589 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐾 − 1) + 1) = 𝐾)
9897oveq2d 7207 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((0 + 1)...((𝐾 − 1) + 1)) = ((0 + 1)...𝐾))
9994, 98eleqtrd 2833 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 + 1) ∈ ((0 + 1)...𝐾))
10030adantr 484 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
10126adantr 484 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐷 ∈ ℂ)
10290zcnd 12248 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑚 ∈ ℂ)
103102, 101mulcld 10818 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104100, 101, 103addassd 10820 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
105 1cnd 10793 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 1 ∈ ℂ)
106102, 105, 101adddird 10823 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = ((𝑚 · 𝐷) + (1 · 𝐷)))
107101, 103addcomd 10999 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
108101mulid2d 10816 . . . . . . . . . . . . . . 15 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (1 · 𝐷) = 𝐷)
109108oveq2d 7207 . . . . . . . . . . . . . 14 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 · 𝐷) + (1 · 𝐷)) = ((𝑚 · 𝐷) + 𝐷))
110107, 109eqtr4d 2774 . . . . . . . . . . . . 13 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐷 + (𝑚 · 𝐷)) = ((𝑚 · 𝐷) + (1 · 𝐷)))
111106, 110eqtr4d 2774 . . . . . . . . . . . 12 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝑚 + 1) · 𝐷) = (𝐷 + (𝑚 · 𝐷)))
112111oveq2d 7207 . . . . . . . . . . 11 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + ((𝑚 + 1) · 𝐷)) = (𝐴 + (𝐷 + (𝑚 · 𝐷))))
113104, 112eqtr4d 2774 . . . . . . . . . 10 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
114 ovex 7224 . . . . . . . . . . 11 (𝑚 + 1) ∈ V
115 eleq1 2818 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (𝑛 ∈ ((0 + 1)...𝐾) ↔ (𝑚 + 1) ∈ ((0 + 1)...𝐾)))
116 oveq1 7198 . . . . . . . . . . . . . 14 (𝑛 = (𝑚 + 1) → (𝑛 · 𝐷) = ((𝑚 + 1) · 𝐷))
117116oveq2d 7207 . . . . . . . . . . . . 13 (𝑛 = (𝑚 + 1) → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))
118117eqeq2d 2747 . . . . . . . . . . . 12 (𝑛 = (𝑚 + 1) → (((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))))
119115, 118anbi12d 634 . . . . . . . . . . 11 (𝑛 = (𝑚 + 1) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) ↔ ((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷)))))
120114, 119spcev 3511 . . . . . . . . . 10 (((𝑚 + 1) ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + ((𝑚 + 1) · 𝐷))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
12199, 113, 120syl2anc 587 . . . . . . . . 9 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
122 eqeq1 2740 . . . . . . . . . . 11 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (𝑥 = (𝐴 + (𝑛 · 𝐷)) ↔ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
123122anbi2d 632 . . . . . . . . . 10 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ((𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ (𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
124123exbidv 1929 . . . . . . . . 9 (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ ((𝐴 + 𝐷) + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))))
125121, 124syl5ibrcom 250 . . . . . . . 8 (((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
126125rexlimdva 3193 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷)) → ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))))
12782, 126impbid 215 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
128 nnaddcl 11818 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
1291283adant1 1132 . . . . . . 7 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ℕ)
130 vdwapval 16489 . . . . . . 7 ((𝐾 ∈ ℕ0 ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
131129, 130syld3an2 1413 . . . . . 6 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝐷) + (𝑚 · 𝐷))))
132127, 131bitr4d 285 . . . . 5 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ↔ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
13340, 132orbi12d 919 . . . 4 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
134 elun 4049 . . . 4 (𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)) ↔ (𝑥 ∈ {𝐴} ∨ 𝑥 ∈ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
135133, 134bitr4di 292 . . 3 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((∃𝑛(𝑛 = 0 ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷))) ∨ ∃𝑛(𝑛 ∈ ((0 + 1)...𝐾) ∧ 𝑥 = (𝐴 + (𝑛 · 𝐷)))) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
13624, 135bitrd 282 . 2 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ (𝐴(AP‘(𝐾 + 1))𝐷) ↔ 𝑥 ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷))))
137136eqrdv 2734 1 ((𝐾 ∈ ℕ0𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘(𝐾 + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘𝐾)𝐷)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  wo 847  w3a 1089   = wceq 1543  wex 1787  wcel 2112  wrex 3052  cun 3851  {csn 4527  cfv 6358  (class class class)co 7191  cc 10692  0cc0 10694  1c1 10695   + caddc 10697   · cmul 10699  cmin 11027  cn 11795  0cn0 12055  cz 12141  cuz 12403  ...cfz 13060  APcvdwa 16481
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-rep 5164  ax-sep 5177  ax-nul 5184  ax-pow 5243  ax-pr 5307  ax-un 7501  ax-cnex 10750  ax-resscn 10751  ax-1cn 10752  ax-icn 10753  ax-addcl 10754  ax-addrcl 10755  ax-mulcl 10756  ax-mulrcl 10757  ax-mulcom 10758  ax-addass 10759  ax-mulass 10760  ax-distr 10761  ax-i2m1 10762  ax-1ne0 10763  ax-1rid 10764  ax-rnegex 10765  ax-rrecex 10766  ax-cnre 10767  ax-pre-lttri 10768  ax-pre-lttrn 10769  ax-pre-ltadd 10770  ax-pre-mulgt0 10771
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rab 3060  df-v 3400  df-sbc 3684  df-csb 3799  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-pss 3872  df-nul 4224  df-if 4426  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4806  df-iun 4892  df-br 5040  df-opab 5102  df-mpt 5121  df-tr 5147  df-id 5440  df-eprel 5445  df-po 5453  df-so 5454  df-fr 5494  df-we 5496  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-riota 7148  df-ov 7194  df-oprab 7195  df-mpo 7196  df-om 7623  df-1st 7739  df-2nd 7740  df-wrecs 8025  df-recs 8086  df-rdg 8124  df-er 8369  df-en 8605  df-dom 8606  df-sdom 8607  df-pnf 10834  df-mnf 10835  df-xr 10836  df-ltxr 10837  df-le 10838  df-sub 11029  df-neg 11030  df-nn 11796  df-n0 12056  df-z 12142  df-uz 12404  df-fz 13061  df-vdwap 16484
This theorem is referenced by:  vdwapid1  16491  vdwap1  16493  vdwlem1  16497  vdwlem5  16501  vdwlem8  16504  vdwlem12  16508
  Copyright terms: Public domain W3C validator