Metamath Proof Explorer


Theorem zdiv

Description: Two ways to express " M divides N . (Contributed by NM, 3-Oct-2008)

Ref Expression
Assertion zdiv ( ( ๐‘€ โˆˆ โ„• โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) )

Proof

Step Hyp Ref Expression
1 nnne0 โŠข ( ๐‘€ โˆˆ โ„• โ†’ ๐‘€ โ‰  0 )
2 1 adantr โŠข ( ( ๐‘€ โˆˆ โ„• โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘€ โ‰  0 )
3 nncn โŠข ( ๐‘€ โˆˆ โ„• โ†’ ๐‘€ โˆˆ โ„‚ )
4 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
5 zcn โŠข ( ๐‘˜ โˆˆ โ„ค โ†’ ๐‘˜ โˆˆ โ„‚ )
6 divcan3 โŠข ( ( ๐‘˜ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ๐‘˜ )
7 6 3coml โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 โˆง ๐‘˜ โˆˆ โ„‚ ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ๐‘˜ )
8 7 3expa โŠข ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„‚ ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ๐‘˜ )
9 5 8 sylan2 โŠข ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ๐‘˜ )
10 9 3adantl2 โŠข ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ๐‘˜ )
11 oveq1 โŠข ( ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†’ ( ( ๐‘€ ยท ๐‘˜ ) / ๐‘€ ) = ( ๐‘ / ๐‘€ ) )
12 10 11 sylan9req โŠข ( ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„ค ) โˆง ( ๐‘€ ยท ๐‘˜ ) = ๐‘ ) โ†’ ๐‘˜ = ( ๐‘ / ๐‘€ ) )
13 simplr โŠข ( ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„ค ) โˆง ( ๐‘€ ยท ๐‘˜ ) = ๐‘ ) โ†’ ๐‘˜ โˆˆ โ„ค )
14 12 13 eqeltrrd โŠข ( ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ๐‘˜ โˆˆ โ„ค ) โˆง ( ๐‘€ ยท ๐‘˜ ) = ๐‘ ) โ†’ ( ๐‘ / ๐‘€ ) โˆˆ โ„ค )
15 14 rexlimdva2 โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†’ ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) )
16 divcan2 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) = ๐‘ )
17 16 3com12 โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) = ๐‘ )
18 oveq2 โŠข ( ๐‘˜ = ( ๐‘ / ๐‘€ ) โ†’ ( ๐‘€ ยท ๐‘˜ ) = ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) )
19 18 eqeq1d โŠข ( ๐‘˜ = ( ๐‘ / ๐‘€ ) โ†’ ( ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) = ๐‘ ) )
20 19 rspcev โŠข ( ( ( ๐‘ / ๐‘€ ) โˆˆ โ„ค โˆง ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) = ๐‘ ) โ†’ โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ )
21 20 expcom โŠข ( ( ๐‘€ ยท ( ๐‘ / ๐‘€ ) ) = ๐‘ โ†’ ( ( ๐‘ / ๐‘€ ) โˆˆ โ„ค โ†’ โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ ) )
22 17 21 syl โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( ( ๐‘ / ๐‘€ ) โˆˆ โ„ค โ†’ โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ ) )
23 15 22 impbid โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) )
24 23 3expia โŠข ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( ๐‘€ โ‰  0 โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) ) )
25 3 4 24 syl2an โŠข ( ( ๐‘€ โˆˆ โ„• โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โ‰  0 โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) ) )
26 2 25 mpd โŠข ( ( ๐‘€ โˆˆ โ„• โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( โˆƒ ๐‘˜ โˆˆ โ„ค ( ๐‘€ ยท ๐‘˜ ) = ๐‘ โ†” ( ๐‘ / ๐‘€ ) โˆˆ โ„ค ) )