Metamath Proof Explorer


Theorem dvdsnegb

Description: An integer divides another iff it divides its negation. (Contributed by Paul Chapman, 21-Mar-2011)

Ref Expression
Assertion dvdsnegb ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” ๐‘€ โˆฅ - ๐‘ ) )

Proof

Step Hyp Ref Expression
1 id โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
2 znegcl โŠข ( ๐‘ โˆˆ โ„ค โ†’ - ๐‘ โˆˆ โ„ค )
3 2 anim2i โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆˆ โ„ค โˆง - ๐‘ โˆˆ โ„ค ) )
4 znegcl โŠข ( ๐‘ฅ โˆˆ โ„ค โ†’ - ๐‘ฅ โˆˆ โ„ค )
5 4 adantl โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ - ๐‘ฅ โˆˆ โ„ค )
6 zcn โŠข ( ๐‘ฅ โˆˆ โ„ค โ†’ ๐‘ฅ โˆˆ โ„‚ )
7 zcn โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ๐‘€ โˆˆ โ„‚ )
8 mulneg1 โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ ) โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = - ( ๐‘ฅ ยท ๐‘€ ) )
9 negeq โŠข ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†’ - ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ )
10 9 eqeq2d โŠข ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†’ ( ( - ๐‘ฅ ยท ๐‘€ ) = - ( ๐‘ฅ ยท ๐‘€ ) โ†” ( - ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) )
11 8 10 syl5ibcom โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) )
12 6 7 11 syl2anr โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) )
13 12 adantlr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) )
14 1 3 5 13 dvds1lem โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†’ ๐‘€ โˆฅ - ๐‘ ) )
15 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
16 negeq โŠข ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ - ( ๐‘ฅ ยท ๐‘€ ) = - - ๐‘ )
17 negneg โŠข ( ๐‘ โˆˆ โ„‚ โ†’ - - ๐‘ = ๐‘ )
18 16 17 sylan9eqr โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) โ†’ - ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ )
19 8 18 sylan9eq โŠข ( ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ ) โˆง ( ๐‘ โˆˆ โ„‚ โˆง ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ ) ) โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ )
20 19 expr โŠข ( ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ ) โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
21 20 3impa โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
22 6 7 15 21 syl3an โŠข ( ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
23 22 3coml โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
24 23 3expa โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = - ๐‘ โ†’ ( - ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
25 3 1 5 24 dvds1lem โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ - ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )
26 14 25 impbid โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” ๐‘€ โˆฅ - ๐‘ ) )