Metamath Proof Explorer


Theorem gtndiv

Description: A larger number does not divide a smaller positive integer. (Contributed by NM, 3-May-2005)

Ref Expression
Assertion gtndiv ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ยฌ ( ๐ต / ๐ด ) โˆˆ โ„ค )

Proof

Step Hyp Ref Expression
1 0z โŠข 0 โˆˆ โ„ค
2 nnre โŠข ( ๐ต โˆˆ โ„• โ†’ ๐ต โˆˆ โ„ )
3 2 3ad2ant2 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ๐ต โˆˆ โ„ )
4 simp1 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ๐ด โˆˆ โ„ )
5 nngt0 โŠข ( ๐ต โˆˆ โ„• โ†’ 0 < ๐ต )
6 5 3ad2ant2 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ต )
7 5 adantl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• ) โ†’ 0 < ๐ต )
8 0re โŠข 0 โˆˆ โ„
9 lttr โŠข ( ( 0 โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ๐ด โˆˆ โ„ ) โ†’ ( ( 0 < ๐ต โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ด ) )
10 8 9 mp3an1 โŠข ( ( ๐ต โˆˆ โ„ โˆง ๐ด โˆˆ โ„ ) โ†’ ( ( 0 < ๐ต โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ด ) )
11 2 10 sylan โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐ด โˆˆ โ„ ) โ†’ ( ( 0 < ๐ต โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ด ) )
12 11 ancoms โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• ) โ†’ ( ( 0 < ๐ต โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ด ) )
13 7 12 mpand โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• ) โ†’ ( ๐ต < ๐ด โ†’ 0 < ๐ด ) )
14 13 3impia โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ 0 < ๐ด )
15 3 4 6 14 divgt0d โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ 0 < ( ๐ต / ๐ด ) )
16 simp3 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ๐ต < ๐ด )
17 1re โŠข 1 โˆˆ โ„
18 ltdivmul2 โŠข ( ( ๐ต โˆˆ โ„ โˆง 1 โˆˆ โ„ โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ( ๐ต / ๐ด ) < 1 โ†” ๐ต < ( 1 ยท ๐ด ) ) )
19 17 18 mp3an2 โŠข ( ( ๐ต โˆˆ โ„ โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ( ๐ต / ๐ด ) < 1 โ†” ๐ต < ( 1 ยท ๐ด ) ) )
20 3 4 14 19 syl12anc โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ( ( ๐ต / ๐ด ) < 1 โ†” ๐ต < ( 1 ยท ๐ด ) ) )
21 recn โŠข ( ๐ด โˆˆ โ„ โ†’ ๐ด โˆˆ โ„‚ )
22 21 mullidd โŠข ( ๐ด โˆˆ โ„ โ†’ ( 1 ยท ๐ด ) = ๐ด )
23 22 breq2d โŠข ( ๐ด โˆˆ โ„ โ†’ ( ๐ต < ( 1 ยท ๐ด ) โ†” ๐ต < ๐ด ) )
24 23 3ad2ant1 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ( ๐ต < ( 1 ยท ๐ด ) โ†” ๐ต < ๐ด ) )
25 20 24 bitrd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ( ( ๐ต / ๐ด ) < 1 โ†” ๐ต < ๐ด ) )
26 16 25 mpbird โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ( ๐ต / ๐ด ) < 1 )
27 0p1e1 โŠข ( 0 + 1 ) = 1
28 26 27 breqtrrdi โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ( ๐ต / ๐ด ) < ( 0 + 1 ) )
29 btwnnz โŠข ( ( 0 โˆˆ โ„ค โˆง 0 < ( ๐ต / ๐ด ) โˆง ( ๐ต / ๐ด ) < ( 0 + 1 ) ) โ†’ ยฌ ( ๐ต / ๐ด ) โˆˆ โ„ค )
30 1 15 28 29 mp3an2i โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„• โˆง ๐ต < ๐ด ) โ†’ ยฌ ( ๐ต / ๐ด ) โˆˆ โ„ค )