Metamath Proof Explorer


Theorem ltmul1a

Description: Lemma for ltmul1 . Multiplication of both sides of 'less than' by a positive number. Theorem I.19 of Apostol p. 20. (Contributed by NM, 15-May-1999) (Revised by Mario Carneiro, 27-May-2016)

Ref Expression
Assertion ltmul1a ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ด ยท ๐ถ ) < ( ๐ต ยท ๐ถ ) )

Proof

Step Hyp Ref Expression
1 simpl2 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ต โˆˆ โ„ )
2 simpl1 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ด โˆˆ โ„ )
3 1 2 resubcld โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ต โˆ’ ๐ด ) โˆˆ โ„ )
4 simpl3l โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ถ โˆˆ โ„ )
5 simpr โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ด < ๐ต )
6 2 1 posdifd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ด < ๐ต โ†” 0 < ( ๐ต โˆ’ ๐ด ) ) )
7 5 6 mpbid โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ 0 < ( ๐ต โˆ’ ๐ด ) )
8 simpl3r โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ 0 < ๐ถ )
9 3 4 7 8 mulgt0d โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ 0 < ( ( ๐ต โˆ’ ๐ด ) ยท ๐ถ ) )
10 1 recnd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ต โˆˆ โ„‚ )
11 2 recnd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ด โˆˆ โ„‚ )
12 4 recnd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ๐ถ โˆˆ โ„‚ )
13 10 11 12 subdird โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ( ๐ต โˆ’ ๐ด ) ยท ๐ถ ) = ( ( ๐ต ยท ๐ถ ) โˆ’ ( ๐ด ยท ๐ถ ) ) )
14 9 13 breqtrd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ 0 < ( ( ๐ต ยท ๐ถ ) โˆ’ ( ๐ด ยท ๐ถ ) ) )
15 2 4 remulcld โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ด ยท ๐ถ ) โˆˆ โ„ )
16 1 4 remulcld โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ต ยท ๐ถ ) โˆˆ โ„ )
17 15 16 posdifd โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ( ๐ด ยท ๐ถ ) < ( ๐ต ยท ๐ถ ) โ†” 0 < ( ( ๐ต ยท ๐ถ ) โˆ’ ( ๐ด ยท ๐ถ ) ) ) )
18 14 17 mpbird โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โˆง ๐ด < ๐ต ) โ†’ ( ๐ด ยท ๐ถ ) < ( ๐ต ยท ๐ถ ) )