Metamath Proof Explorer


Theorem arisum

Description: Arithmetic series sum of the first N positive integers. This is Metamath 100 proof #68. (Contributed by FL, 16-Nov-2006) (Proof shortened by Mario Carneiro, 22-May-2014)

Ref Expression
Assertion arisum ( ๐‘ โˆˆ โ„•0 โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )

Proof

Step Hyp Ref Expression
1 elnn0 โŠข ( ๐‘ โˆˆ โ„•0 โ†” ( ๐‘ โˆˆ โ„• โˆจ ๐‘ = 0 ) )
2 1zzd โŠข ( ๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„ค )
3 nnz โŠข ( ๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„ค )
4 elfzelz โŠข ( ๐‘˜ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘˜ โˆˆ โ„ค )
5 4 zcnd โŠข ( ๐‘˜ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘˜ โˆˆ โ„‚ )
6 5 adantl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ) โ†’ ๐‘˜ โˆˆ โ„‚ )
7 id โŠข ( ๐‘˜ = ( ๐‘— + 1 ) โ†’ ๐‘˜ = ( ๐‘— + 1 ) )
8 2 2 3 6 7 fsumshftm โŠข ( ๐‘ โˆˆ โ„• โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ฮฃ ๐‘— โˆˆ ( ( 1 โˆ’ 1 ) ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 ) )
9 1m1e0 โŠข ( 1 โˆ’ 1 ) = 0
10 9 oveq1i โŠข ( ( 1 โˆ’ 1 ) ... ( ๐‘ โˆ’ 1 ) ) = ( 0 ... ( ๐‘ โˆ’ 1 ) )
11 10 sumeq1i โŠข ฮฃ ๐‘— โˆˆ ( ( 1 โˆ’ 1 ) ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 ) = ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 )
12 8 11 eqtrdi โŠข ( ๐‘ โˆˆ โ„• โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 ) )
13 elfznn0 โŠข ( ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) โ†’ ๐‘— โˆˆ โ„•0 )
14 13 adantl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ๐‘— โˆˆ โ„•0 )
15 bcnp1n โŠข ( ๐‘— โˆˆ โ„•0 โ†’ ( ( ๐‘— + 1 ) C ๐‘— ) = ( ๐‘— + 1 ) )
16 14 15 syl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ( ( ๐‘— + 1 ) C ๐‘— ) = ( ๐‘— + 1 ) )
17 14 nn0cnd โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ๐‘— โˆˆ โ„‚ )
18 ax-1cn โŠข 1 โˆˆ โ„‚
19 addcom โŠข ( ( ๐‘— โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ๐‘— + 1 ) = ( 1 + ๐‘— ) )
20 17 18 19 sylancl โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ( ๐‘— + 1 ) = ( 1 + ๐‘— ) )
21 20 oveq1d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ( ( ๐‘— + 1 ) C ๐‘— ) = ( ( 1 + ๐‘— ) C ๐‘— ) )
22 16 21 eqtr3d โŠข ( ( ๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ) โ†’ ( ๐‘— + 1 ) = ( ( 1 + ๐‘— ) C ๐‘— ) )
23 22 sumeq2dv โŠข ( ๐‘ โˆˆ โ„• โ†’ ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 ) = ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ( 1 + ๐‘— ) C ๐‘— ) )
24 1nn0 โŠข 1 โˆˆ โ„•0
25 nnm1nn0 โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„•0 )
26 bcxmas โŠข ( ( 1 โˆˆ โ„•0 โˆง ( ๐‘ โˆ’ 1 ) โˆˆ โ„•0 ) โ†’ ( ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) C ( ๐‘ โˆ’ 1 ) ) = ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ( 1 + ๐‘— ) C ๐‘— ) )
27 24 25 26 sylancr โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) C ( ๐‘ โˆ’ 1 ) ) = ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ( 1 + ๐‘— ) C ๐‘— ) )
28 23 27 eqtr4d โŠข ( ๐‘ โˆˆ โ„• โ†’ ฮฃ ๐‘— โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) ( ๐‘— + 1 ) = ( ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) C ( ๐‘ โˆ’ 1 ) ) )
29 1cnd โŠข ( ๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„‚ )
30 nncn โŠข ( ๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„‚ )
31 29 29 30 ppncand โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) = ( 1 + ๐‘ ) )
32 29 30 31 comraddd โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) = ( ๐‘ + 1 ) )
33 32 oveq1d โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) )
34 nnnn0 โŠข ( ๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„•0 )
35 bcp1m1 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )
36 34 35 syl โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )
37 sqval โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ๐‘ โ†‘ 2 ) = ( ๐‘ ยท ๐‘ ) )
38 37 eqcomd โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ๐‘ ยท ๐‘ ) = ( ๐‘ โ†‘ 2 ) )
39 mullid โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( 1 ยท ๐‘ ) = ๐‘ )
40 38 39 oveq12d โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ( ๐‘ ยท ๐‘ ) + ( 1 ยท ๐‘ ) ) = ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) )
41 30 40 syl โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ๐‘ ยท ๐‘ ) + ( 1 ยท ๐‘ ) ) = ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) )
42 30 30 29 41 joinlmuladdmuld โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ๐‘ + 1 ) ยท ๐‘ ) = ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) )
43 42 oveq1d โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )
44 33 36 43 3eqtrd โŠข ( ๐‘ โˆˆ โ„• โ†’ ( ( ( 1 + 1 ) + ( ๐‘ โˆ’ 1 ) ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )
45 12 28 44 3eqtrd โŠข ( ๐‘ โˆˆ โ„• โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )
46 oveq2 โŠข ( ๐‘ = 0 โ†’ ( 1 ... ๐‘ ) = ( 1 ... 0 ) )
47 fz10 โŠข ( 1 ... 0 ) = โˆ…
48 46 47 eqtrdi โŠข ( ๐‘ = 0 โ†’ ( 1 ... ๐‘ ) = โˆ… )
49 48 sumeq1d โŠข ( ๐‘ = 0 โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ฮฃ ๐‘˜ โˆˆ โˆ… ๐‘˜ )
50 sum0 โŠข ฮฃ ๐‘˜ โˆˆ โˆ… ๐‘˜ = 0
51 49 50 eqtrdi โŠข ( ๐‘ = 0 โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = 0 )
52 sq0i โŠข ( ๐‘ = 0 โ†’ ( ๐‘ โ†‘ 2 ) = 0 )
53 id โŠข ( ๐‘ = 0 โ†’ ๐‘ = 0 )
54 52 53 oveq12d โŠข ( ๐‘ = 0 โ†’ ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) = ( 0 + 0 ) )
55 00id โŠข ( 0 + 0 ) = 0
56 54 55 eqtrdi โŠข ( ๐‘ = 0 โ†’ ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) = 0 )
57 56 oveq1d โŠข ( ๐‘ = 0 โ†’ ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) = ( 0 / 2 ) )
58 2cn โŠข 2 โˆˆ โ„‚
59 2ne0 โŠข 2 โ‰  0
60 58 59 div0i โŠข ( 0 / 2 ) = 0
61 57 60 eqtrdi โŠข ( ๐‘ = 0 โ†’ ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) = 0 )
62 51 61 eqtr4d โŠข ( ๐‘ = 0 โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )
63 45 62 jaoi โŠข ( ( ๐‘ โˆˆ โ„• โˆจ ๐‘ = 0 ) โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )
64 1 63 sylbi โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ฮฃ ๐‘˜ โˆˆ ( 1 ... ๐‘ ) ๐‘˜ = ( ( ( ๐‘ โ†‘ 2 ) + ๐‘ ) / 2 ) )