Proof of Theorem fsumshft
| Step | Hyp | Ref
| Expression |
| 1 | | 0z 6103 |
. . . 4
⊢ 0 ∈ ℤ |
| 2 | | fsumrev 6982 |
. . . 4
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ 0 ∈ ℤ ⋀ ∀j
∈ (M...N)A ∈
ℂ) → Σj ∈ (M...N)A = Σm
∈ ((0 − N)...(0 − M))[(0 − m) / j]A) |
| 3 | 1, 2 | mp3an2 903 |
. . 3
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ ∀j ∈ (M...N)A ∈ ℂ) → Σj ∈ (M...N)A = Σm
∈ ((0 − N)...(0 − M))[(0 − m) / j]A) |
| 4 | 3 | 3adant2 797 |
. 2
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → Σj ∈ (M...N)A = Σm
∈ ((0 − N)...(0 − M))[(0 − m) / j]A) |
| 5 | | fsumrev 6982 |
. . 3
⊢ (((0 − M) ∈ (ℤ≥ ‘(0 −
N)) ⋀ K ∈ ℤ ⋀ ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A
∈ ℂ) → Σm ∈ ((0
− N)...(0 − M))[(0 − m) / j]A =
Σk ∈ ((K − (0 − M))...(K −
(0 − N)))[(K − k) /
m][(0 − m) / j]A) |
| 6 | | uznegit 6374 |
. . . . 5
⊢ (N
∈ (ℤ≥ ‘M)
→ -M ∈ (ℤ≥
‘-N)) |
| 7 | | df-neg 5341 |
. . . . . 6
⊢ -M =
(0 − M) |
| 8 | | df-neg 5341 |
. . . . . . 7
⊢ -N =
(0 − N) |
| 9 | 8 | fveq2i 3722 |
. . . . . 6
⊢ (ℤ≥ ‘-N) = (ℤ≥ ‘(0 −
N)) |
| 10 | 7, 9 | eleq12i 1537 |
. . . . 5
⊢ (-M
∈ (ℤ≥ ‘-N)
↔ (0 − M) ∈
(ℤ≥ ‘(0 − N))) |
| 11 | 6, 10 | sylib 198 |
. . . 4
⊢ (N
∈ (ℤ≥ ‘M)
→ (0 − M) ∈
(ℤ≥ ‘(0 − N))) |
| 12 | 11 | 3ad2ant1 799 |
. . 3
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → (0 − M) ∈ (ℤ≥ ‘(0 −
N))) |
| 13 | | 3simp2 788 |
. . 3
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → K ∈ ℤ) |
| 14 | | fzrevralt 6464 |
. . . . . . . 8
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ 0 ∈ ℤ) → (∀j
∈ (M...N)A ∈
ℂ ↔ ∀m ∈ ((0 −
N)...(0 − M))[(0 − m) / j]A ∈ ℂ)) |
| 15 | 1, 14 | mp3an3 904 |
. . . . . . 7
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ)
→ (∀j ∈ (M...N)A ∈ ℂ ↔ ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A ∈ ℂ)) |
| 16 | | eluzel2 6369 |
. . . . . . 7
⊢ (N
∈ (ℤ≥ ‘M)
→ M ∈ ℤ) |
| 17 | | eluzelz 6368 |
. . . . . . 7
⊢ (N
∈ (ℤ≥ ‘M)
→ N ∈ ℤ) |
| 18 | 15, 16, 17 | sylanc 471 |
. . . . . 6
⊢ (N
∈ (ℤ≥ ‘M)
→ (∀j ∈ (M...N)A ∈ ℂ ↔ ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A ∈ ℂ)) |
| 19 | | oprex 3978 |
. . . . . . . 8
⊢ (0 − m) ∈ V |
| 20 | | sbcel1g 2010 |
. . . . . . . 8
⊢ ((0 − m) ∈ V → ([(0 − m) / j]A ∈ ℂ ↔ [(0 − m) / j]A
∈ ℂ)) |
| 21 | 19, 20 | ax-mp 7 |
. . . . . . 7
⊢ ([(0 − m) / j]A ∈ ℂ ↔ [(0 − m) / j]A
∈ ℂ) |
| 22 | 21 | ralbii 1665 |
. . . . . 6
⊢ (∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A ∈ ℂ ↔ ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A
∈ ℂ) |
| 23 | 18, 22 | syl6bb 535 |
. . . . 5
⊢ (N
∈ (ℤ≥ ‘M)
→ (∀j ∈ (M...N)A ∈ ℂ ↔ ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A
∈ ℂ)) |
| 24 | 23 | biimpa 416 |
. . . 4
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ ∀j ∈ (M...N)A ∈ ℂ) → ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A
∈ ℂ) |
| 25 | 24 | 3adant2 797 |
. . 3
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → ∀m ∈ ((0 − N)...(0 − M))[(0 − m) / j]A
∈ ℂ) |
| 26 | 5, 12, 13, 25 | syl3anc 857 |
. 2
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → Σm ∈ ((0 − N)...(0 − M))[(0 − m) / j]A =
Σk ∈ ((K − (0 − M))...(K −
(0 − N)))[(K − k) /
m][(0 − m) / j]A) |
| 27 | | subnegt 5377 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − -M) = (K +
M)) |
| 28 | | axaddcom 5258 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K + M) = (M +
K)) |
| 29 | 27, 28 | eqtrd 1505 |
. . . . . . . . 9
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − -M) = (M +
K)) |
| 30 | 7 | opreq2i 3967 |
. . . . . . . . 9
⊢ (K
− -M) = (K − (0 − M)) |
| 31 | 29, 30 | syl5eqr 1519 |
. . . . . . . 8
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − (0 − M)) = (M +
K)) |
| 32 | 31 | adantrr 395 |
. . . . . . 7
⊢ ((K
∈ ℂ ⋀ (M ∈ ℂ
⋀ N ∈ ℂ)) → (K − (0 − M)) = (M +
K)) |
| 33 | | subnegt 5377 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − -N) = (K +
N)) |
| 34 | | axaddcom 5258 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K + N) = (N +
K)) |
| 35 | 33, 34 | eqtrd 1505 |
. . . . . . . . 9
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − -N) = (N +
K)) |
| 36 | 8 | opreq2i 3967 |
. . . . . . . . 9
⊢ (K
− -N) = (K − (0 − N)) |
| 37 | 35, 36 | syl5eqr 1519 |
. . . . . . . 8
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − (0 − N)) = (N +
K)) |
| 38 | 37 | adantrl 394 |
. . . . . . 7
⊢ ((K
∈ ℂ ⋀ (M ∈ ℂ
⋀ N ∈ ℂ)) → (K − (0 − N)) = (N +
K)) |
| 39 | 32, 38 | opreq12d 3973 |
. . . . . 6
⊢ ((K
∈ ℂ ⋀ (M ∈ ℂ
⋀ N ∈ ℂ)) →
((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 40 | | zcnt 6097 |
. . . . . 6
⊢ (K
∈ ℤ → K ∈
ℂ) |
| 41 | | zcnt 6097 |
. . . . . . . 8
⊢ (M
∈ ℤ → M ∈
ℂ) |
| 42 | 16, 41 | syl 10 |
. . . . . . 7
⊢ (N
∈ (ℤ≥ ‘M)
→ M ∈ ℂ) |
| 43 | | zcnt 6097 |
. . . . . . . 8
⊢ (N
∈ ℤ → N ∈
ℂ) |
| 44 | 17, 43 | syl 10 |
. . . . . . 7
⊢ (N
∈ (ℤ≥ ‘M)
→ N ∈ ℂ) |
| 45 | 42, 44 | jca 288 |
. . . . . 6
⊢ (N
∈ (ℤ≥ ‘M)
→ (M ∈ ℂ ⋀ N ∈ ℂ)) |
| 46 | 39, 40, 45 | syl2an 454 |
. . . . 5
⊢ ((K
∈ ℤ ⋀ N ∈
(ℤ≥ ‘M)) →
((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 47 | 46 | ancoms 436 |
. . . 4
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ) → ((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 48 | | negsubdi2t 5441 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ k ∈ ℂ)
→ -(K − k) = (k −
K)) |
| 49 | | zcnt 6097 |
. . . . . . . . . 10
⊢ (k
∈ ℤ → k ∈
ℂ) |
| 50 | 48, 40, 49 | syl2an 454 |
. . . . . . . . 9
⊢ ((K
∈ ℤ ⋀ k ∈ ℤ)
→ -(K − k) = (k −
K)) |
| 51 | | df-neg 5341 |
. . . . . . . . 9
⊢ -(K
− k) = (0 − (K − k)) |
| 52 | 50, 51 | syl5eqr 1519 |
. . . . . . . 8
⊢ ((K
∈ ℤ ⋀ k ∈ ℤ)
→ (0 − (K − k)) = (k −
K)) |
| 53 | 52 | csbeq1d 2001 |
. . . . . . 7
⊢ ((K
∈ ℤ ⋀ k ∈ ℤ)
→ [(0 − (K −
k)) / j]A =
[(k − K) / j]A) |
| 54 | | oprex 3978 |
. . . . . . . 8
⊢ (K
− k) ∈ V |
| 55 | 19 | ax-gen 962 |
. . . . . . . 8
⊢ ∀m(0 − m)
∈ V |
| 56 | | opreq2 3964 |
. . . . . . . . 9
⊢ (m =
(K − k) → (0 − m) = (0 − (K − k))) |
| 57 | 56 | csbco3g 2037 |
. . . . . . . 8
⊢ (((K
− k) ∈ V ⋀
∀m(0 − m) ∈ V) → [(K − k) /
m][(0 − m) / j]A =
[(0 − (K − k)) / j]A) |
| 58 | 54, 55, 57 | mp2an 696 |
. . . . . . 7
⊢ [(K − k) /
m][(0 − m) / j]A =
[(0 − (K − k)) / j]A |
| 59 | 53, 58 | syl5eq 1517 |
. . . . . 6
⊢ ((K
∈ ℤ ⋀ k ∈ ℤ)
→ [(K − k) / m][(0 − m) / j]A =
[(k − K) / j]A) |
| 60 | | elfzelz 6427 |
. . . . . 6
⊢ (k
∈ ((K − (0 − M))...(K −
(0 − N))) → k ∈ ℤ) |
| 61 | 59, 60 | sylan2 451 |
. . . . 5
⊢ ((K
∈ ℤ ⋀ k ∈ ((K − (0 − M))...(K −
(0 − N)))) → [(K − k) /
m][(0 − m) / j]A =
[(k − K) / j]A) |
| 62 | 61 | adantll 392 |
. . . 4
⊢ (((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ) ⋀ k ∈ ((K
− (0 − M))...(K − (0 − N)))) → [(K − k) /
m][(0 − m) / j]A =
[(k − K) / j]A) |
| 63 | 47, 62 | sumeq12dv 6948 |
. . 3
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ) →
Σk ∈ ((K − (0 − M))...(K −
(0 − N)))[(K − k) /
m][(0 − m) / j]A =
Σk ∈ ((M + K)...(N +
K))[(k − K) /
j]A) |
| 64 | 63 | 3adant3 798 |
. 2
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → Σk ∈ ((K
− (0 − M))...(K − (0 − N)))[(K
− k) / m][(0 − m) / j]A =
Σk ∈ ((M + K)...(N +
K))[(k − K) /
j]A) |
| 65 | 4, 26, 64 | 3eqtrd 1509 |
1
⊢ ((N
∈ (ℤ≥ ‘M)
⋀ K ∈ ℤ ⋀
∀j ∈ (M...N)A ∈ ℂ) → Σj ∈ (M...N)A = Σk
∈ ((M + K)...(N +
K))[(k − K) /
j]A) |