HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem fsum0diag2 7194
Description: Two ways to express "the sum of A(j) x. B(k) where j + k <_ N."
Assertion
Ref Expression
fsum0diag2 |- ((N e. NN0 /\ A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC) -> sum_j e. (0...N)sum_k e. (0...(N - j))(A x. B) = sum_j e. (0...N)sum_k e. (0...j)([_(j - k) / j]_A x. B))
Distinct variable groups:   A,k   B,j   j,k,N

Proof of Theorem fsum0diag2
StepHypRef Expression
1 fsum0diag 7193 . 2 |- ((N e. NN0 /\ A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC) -> sum_j e. (0...N)sum_k e. (0...(N - j))(A x. B) = sum_k e. (0...N)sum_j e. (0...k)(A x. [_(k - j) / k]_B))
2 fsumrev 6967 . . . . . . . . . 10 |- ((m e. (ZZ>` 0) /\ m e. ZZ /\ A.j e. (0...m)(A x. [_(m - j) / k]_B) e. CC) -> sum_j e. (0...m)(A x. [_(m - j) / k]_B) = sum_n e. ((m - m)...(m - 0))[_(m - n) / j]_(A x. [_(m - j) / k]_B))
3 elfzuzt 6420 . . . . . . . . . . 11 |- (m e. (0...N) -> m e. (ZZ>`
0))
43adantl 388 . . . . . . . . . 10 |- (((N e. NN0 /\ (A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC)) /\ m e. (0...N)) -> m e. (ZZ>` 0))
5 elfzelz 6414 . . . . . . . . . . 11 |- (m e. (0...N) -> m e. ZZ)
65adantl 388 . . . . . . . . . 10 |- (((N e. NN0 /\ (A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC)) /\ m e. (0...N)) -> m e. ZZ)
7 elfzuz3t 6410 . . . . . . . . . . . . . . . . . . 19 |- ((N e. NN0 /\ m e. (0...N)) -> N e. (ZZ>` m))
8 0z 6093 . . . . . . . . . . . . . . . . . . . 20 |- 0 e. ZZ
9 fzss2t 6436 . . . . . . . . . . . . . . . . . . . 20 |- ((N e. (ZZ>` m) /\ 0 e. ZZ) -> (0...m) (_ (0...N))
108, 9mpan2 694 . . . . . . . . . . . . . . . . . . 19 |- (N e. (ZZ>` m) -> (0...m) (_ (0...N))
117, 10syl 10 . . . . . . . . . . . . . . . . . 18 |- ((N e. NN0 /\ m e. (0...N)) -> (0...m) (_ (0...N))
1211sseld 2057 . . . . . . . . . . . . . . . . 17 |- ((N e. NN0 /\ m e. (0...N)) -> (j e. (0...m) -> j e. (0...N)))
1312imim1d 28 . . . . . . . . . . . . . . . 16 |- ((N e. NN0 /\ m e. (0...N)) -> ((j e. (0...N) -> A e. CC) -> (j e. (0...m) -> A e. CC)))
1413adantr 389 . . . . . . . . . . . . . . 15 |- (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> ((j e. (0...N) -> A e. CC) -> (j e. (0...m) -> A e. CC)))
15 axmulcl 5245 . . . . . . . . . . . . . . . . . . 19 |- ((A e. CC /\ [_(m - j) / k]_B e. CC) -> (A x. [_(m - j) / k]_B) e. CC)
16 ra4csbela 2032 . . . . . . . . . . . . . . . . . . . . 21 |- (((m - j) e. (0...N) /\ A.k e. (0...N)B e. CC) -> [_(m - j) / k]_B e. CC)
1711adantr 389 . . . . . . . . . . . . . . . . . . . . . 22 |- (((N e. NN0 /\ m e. (0...N)) /\ j e. (0...m)) -> (0...m) (_ (0...N))
18 visset 1804 . . . . . . . . . . . . . . . . . . . . . . . 24 |- m e. V
19 fznn0sub2t 6431 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((m e. V /\ j e. (0...m)) -> (m - j) e. (0...m))
2018, 19mpan 693 . . . . . . . . . . . . . . . . . . . . . . 23 |- (j e. (0...m) -> (m - j) e. (0...m))
2120adantl 388 . . . . . . . . . . . . . . . . . . . . . 22 |- (((N e. NN0 /\ m e. (0...N)) /\ j e. (0...m)) -> (m - j) e. (0...m))
2217, 21sseldd 2058 . . . . . . . . . . . . . . . . . . . . 21 |- (((N e. NN0 /\ m e. (0...N)) /\ j e. (0...m)) -> (m - j) e. (0...N))
2316, 22sylan 448 . . . . . . . . . . . . . . . . . . . 20 |- ((((N e. NN0 /\ m e. (0...N)) /\ j e. (0...m)) /\ A.k e. (0...N)B e. CC) -> [_(m - j) / k]_B e. CC)
2423an1rs 488 . . . . . . . . . . . . . . . . . . 19 |- ((((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) /\ j e. (0...m)) -> [_(m - j) / k]_B e. CC)
2515, 24sylan2 451 . . . . . . . . . . . . . . . . . 18 |- ((A e. CC /\ (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) /\ j e. (0...m))) -> (A x. [_(m - j) / k]_B) e. CC)
2625exp32 377 . . . . . . . . . . . . . . . . 17 |- (A e. CC -> (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> (j e. (0...m) -> (A x. [_(m - j) / k]_B) e. CC)))
2726com3l 34 . . . . . . . . . . . . . . . 16 |- (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> (j e. (0...m) -> (A e. CC -> (A x. [_(m - j) / k]_B) e. CC)))
2827a2d 13 . . . . . . . . . . . . . . 15 |- (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> ((j e. (0...m) -> A e. CC) -> (j e. (0...m) -> (A x. [_(m - j) / k]_B) e. CC)))
2914, 28syld 27 . . . . . . . . . . . . . 14 |- (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> ((j e. (0...N) -> A e. CC) -> (j e. (0...m) -> (A x. [_(m - j) / k]_B) e. CC)))
3029r19.20dv2 1703 . . . . . . . . . . . . 13 |- (((N e. NN0 /\ m e. (0...N)) /\ A.k e. (0...N)B e. CC) -> (A.j e. (0...N)A e. CC -> A.j e. (0...m)(A x. [_(m - j) / k]_B) e. CC))
3130exp31 376 . . . . . . . . . . . 12 |- (N e. NN0 -> (m e. (0...N) -> (A.k e. (0...N)B e. CC -> (A.j e. (0...N)A e. CC -> A.j e. (0...m)(A x. [_(m - j) / k]_B) e. CC))))
3231com24 37 . . . . . . . . . . 11 |- (N e. NN0 -> (A.j e. (0...N)A e. CC -> (A.k e. (0...N)B e. CC -> (m e. (0...N) -> A.j e. (0...m)(A x. [_(m - j) / k]_B) e. CC))))
3332imp42 369 . . . . . . . . . 10 |- (((N e. NN0 /\ (A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC)) /\ m e. (0...N)) -> A.j e. (0...m)(A x. [_(m - j) / k]_B) e. CC)
342, 4, 6, 33syl3anc 856 . . . . . . . . 9 |- (((N e. NN0 /\ (A.j e. (0...N)A e. CC /\ A.k e. (0...N)B e. CC)) /\ m e. (0...N)) -> sum_j e. (0...m)(A x. [_(m - j) / k]_B) = sum_n e. ((m - m)...(m - 0))[_(m - n) / j]_(A x. [_(m - j) / k]_B))
35 zcnt 6087 . . . . . . . . . . . . . 14 |- (m e. ZZ -> m e. CC)
365, 35syl 10 . . . . . . . . . . . . 13 |- (m e. (0...N) -> m e. CC)
37 subidt 5367 . . . . . . . . . . . . . 14 |- (m e. CC -> (m - m) = 0)
38 subid1t 5368 . . . . . . . . . . . . . 14 |- (m e. CC -> (m - 0) = m)
3937, 38opreq12d 3963 . . . . . . . . . . . . 13 |- (m e. CC -> ((m - m)...(m - 0)) = (0...m))
4036, 39syl 10 . . . . . . . . . . . 12 |- (m e. (0...N) -> ((m - m)...(m - 0)) = (0...m))
4140adantl 388 . . . . . . . . . . 11 |- ((N e. NN0 /\ m e. (0...N)) -> ((m - m)...(m - 0)) = (0...m))
42 nncant 5441 . . . . . . . . . . . . . . . 16 |- ((m e. CC /\ n e. CC) -> (m - (m - n)) = n)
4318elfzel2 6411 . . . . . . . . . . . . . . . . 17 |- (n e. (0...m) -> m e. ZZ)
4443, 35syl 10 . . . . . . . . . . . . . . . 16 |- (n e. (0...m) -> m e. CC)
45 elfzelz 6414 . . . . . . . . . . . . . . . . 17 |- (n e. (0...m) -> n e. ZZ)
46 zcnt 6087 . . . . . . . . . . . . . . . . 17 |- (n e. ZZ -> n e. CC)
4745, 46syl 10 . . . . . . . . . . . . . . . 16 |- (n e. (0...m) -> n e. CC)
4842, 44, 47sylanc 471 . . . . . . . . . . . . . . 15 |- (n e. (0...m) -> (m - (m - n)) = n)
4948csbeq1d 1994 . . . . . . . . . . . . . 14 |- (n e. (0...m) -> [_(m - (m - n)) / k]_B = [_n / k]_B)
5049opreq2d 3961 . . . . . . . . . . . . 13 |- (n e. (0