Metamath Proof Explorer


Theorem lemul1a

Description: Multiplication of both sides of 'less than or equal to' by a nonnegative number. (Contributed by NM, 21-Feb-2005)

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

Proof

Step Hyp Ref Expression
1 0re โŠข 0 โˆˆ โ„
2 leloe โŠข ( ( 0 โˆˆ โ„ โˆง ๐ถ โˆˆ โ„ ) โ†’ ( 0 โ‰ค ๐ถ โ†” ( 0 < ๐ถ โˆจ 0 = ๐ถ ) ) )
3 1 2 mpan โŠข ( ๐ถ โˆˆ โ„ โ†’ ( 0 โ‰ค ๐ถ โ†” ( 0 < ๐ถ โˆจ 0 = ๐ถ ) ) )
4 3 pm5.32i โŠข ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โ†” ( ๐ถ โˆˆ โ„ โˆง ( 0 < ๐ถ โˆจ 0 = ๐ถ ) ) )
5 lemul1 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†” ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) )
6 5 biimpd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) )
7 6 3expia โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
8 7 com12 โŠข ( ( ๐ถ โˆˆ โ„ โˆง 0 < ๐ถ ) โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
9 1 leidi โŠข 0 โ‰ค 0
10 recn โŠข ( ๐ด โˆˆ โ„ โ†’ ๐ด โˆˆ โ„‚ )
11 10 mul01d โŠข ( ๐ด โˆˆ โ„ โ†’ ( ๐ด ยท 0 ) = 0 )
12 recn โŠข ( ๐ต โˆˆ โ„ โ†’ ๐ต โˆˆ โ„‚ )
13 12 mul01d โŠข ( ๐ต โˆˆ โ„ โ†’ ( ๐ต ยท 0 ) = 0 )
14 11 13 breqan12d โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ( ๐ด ยท 0 ) โ‰ค ( ๐ต ยท 0 ) โ†” 0 โ‰ค 0 ) )
15 9 14 mpbiri โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด ยท 0 ) โ‰ค ( ๐ต ยท 0 ) )
16 oveq2 โŠข ( 0 = ๐ถ โ†’ ( ๐ด ยท 0 ) = ( ๐ด ยท ๐ถ ) )
17 oveq2 โŠข ( 0 = ๐ถ โ†’ ( ๐ต ยท 0 ) = ( ๐ต ยท ๐ถ ) )
18 16 17 breq12d โŠข ( 0 = ๐ถ โ†’ ( ( ๐ด ยท 0 ) โ‰ค ( ๐ต ยท 0 ) โ†” ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) )
19 15 18 imbitrid โŠข ( 0 = ๐ถ โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) )
20 19 a1dd โŠข ( 0 = ๐ถ โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
21 20 adantl โŠข ( ( ๐ถ โˆˆ โ„ โˆง 0 = ๐ถ ) โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
22 8 21 jaodan โŠข ( ( ๐ถ โˆˆ โ„ โˆง ( 0 < ๐ถ โˆจ 0 = ๐ถ ) ) โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
23 4 22 sylbi โŠข ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โ†’ ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
24 23 com12 โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ ) โ†’ ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) ) )
25 24 3impia โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) ) )
26 25 imp โŠข ( ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ถ ) )