Metamath Proof Explorer


Theorem mulsucdiv2z

Description: An integer multiplied with its successor divided by 2 yields an integer, i.e. an integer multiplied with its successor is even. (Contributed by AV, 19-Jul-2021)

Ref Expression
Assertion mulsucdiv2z ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค )

Proof

Step Hyp Ref Expression
1 zeo โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆจ ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค ) )
2 peano2z โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ + 1 ) โˆˆ โ„ค )
3 zmulcl โŠข ( ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆง ( ๐‘ + 1 ) โˆˆ โ„ค ) โ†’ ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) โˆˆ โ„ค )
4 2 3 sylan2 โŠข ( ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) โˆˆ โ„ค )
5 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
6 2 zcnd โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ + 1 ) โˆˆ โ„‚ )
7 2cnne0 โŠข ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 )
8 7 a1i โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) )
9 div23 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ( ๐‘ + 1 ) โˆˆ โ„‚ โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) ) โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) = ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) )
10 5 6 8 9 syl3anc โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) = ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) )
11 10 eleq1d โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค โ†” ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) โˆˆ โ„ค ) )
12 11 adantl โŠข ( ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค โ†” ( ( ๐‘ / 2 ) ยท ( ๐‘ + 1 ) ) โˆˆ โ„ค ) )
13 4 12 mpbird โŠข ( ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค )
14 13 ex โŠข ( ( ๐‘ / 2 ) โˆˆ โ„ค โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค ) )
15 zmulcl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค ) โ†’ ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) โˆˆ โ„ค )
16 15 ancoms โŠข ( ( ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) โˆˆ โ„ค )
17 divass โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ( ๐‘ + 1 ) โˆˆ โ„‚ โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) ) โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) = ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) )
18 5 6 8 17 syl3anc โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) = ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) )
19 18 eleq1d โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค โ†” ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) โˆˆ โ„ค ) )
20 19 adantl โŠข ( ( ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค โ†” ( ๐‘ ยท ( ( ๐‘ + 1 ) / 2 ) ) โˆˆ โ„ค ) )
21 16 20 mpbird โŠข ( ( ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค )
22 21 ex โŠข ( ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค ) )
23 14 22 jaoi โŠข ( ( ( ๐‘ / 2 ) โˆˆ โ„ค โˆจ ( ( ๐‘ + 1 ) / 2 ) โˆˆ โ„ค ) โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค ) )
24 1 23 mpcom โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ( ๐‘ ยท ( ๐‘ + 1 ) ) / 2 ) โˆˆ โ„ค )