Metamath Proof Explorer


Theorem lediv2aALT

Description: Division of both sides of 'less than or equal to' by a nonnegative number. (Contributed by Paul Chapman, 7-Sep-2007) (New usage is discouraged.) (Proof modification is discouraged.)

Ref Expression
Assertion lediv2aALT ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ถ / ๐ต ) โ‰ค ( ๐ถ / ๐ด ) ) )

Proof

Step Hyp Ref Expression
1 gt0ne0 โŠข ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โ†’ ๐ต โ‰  0 )
2 rereccl โŠข ( ( ๐ต โˆˆ โ„ โˆง ๐ต โ‰  0 ) โ†’ ( 1 / ๐ต ) โˆˆ โ„ )
3 1 2 syldan โŠข ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โ†’ ( 1 / ๐ต ) โˆˆ โ„ )
4 gt0ne0 โŠข ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โ†’ ๐ด โ‰  0 )
5 rereccl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ด โ‰  0 ) โ†’ ( 1 / ๐ด ) โˆˆ โ„ )
6 4 5 syldan โŠข ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โ†’ ( 1 / ๐ด ) โˆˆ โ„ )
7 3 6 anim12i โŠข ( ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ ) )
8 7 ancoms โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) ) โ†’ ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ ) )
9 8 3adant3 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ ) )
10 simp3 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) )
11 df-3an โŠข ( ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†” ( ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) )
12 9 10 11 sylanbrc โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) )
13 lemul2a โŠข ( ( ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โˆง ( 1 / ๐ต ) โ‰ค ( 1 / ๐ด ) ) โ†’ ( ๐ถ ยท ( 1 / ๐ต ) ) โ‰ค ( ๐ถ ยท ( 1 / ๐ด ) ) )
14 13 ex โŠข ( ( ( 1 / ๐ต ) โˆˆ โ„ โˆง ( 1 / ๐ด ) โˆˆ โ„ โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ( 1 / ๐ต ) โ‰ค ( 1 / ๐ด ) โ†’ ( ๐ถ ยท ( 1 / ๐ต ) ) โ‰ค ( ๐ถ ยท ( 1 / ๐ด ) ) ) )
15 12 14 syl โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ( 1 / ๐ต ) โ‰ค ( 1 / ๐ด ) โ†’ ( ๐ถ ยท ( 1 / ๐ต ) ) โ‰ค ( ๐ถ ยท ( 1 / ๐ด ) ) ) )
16 lerec โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†” ( 1 / ๐ต ) โ‰ค ( 1 / ๐ด ) ) )
17 16 3adant3 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†” ( 1 / ๐ต ) โ‰ค ( 1 / ๐ด ) ) )
18 recn โŠข ( ๐ถ โˆˆ โ„ โ†’ ๐ถ โˆˆ โ„‚ )
19 18 adantr โŠข ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โ†’ ๐ถ โˆˆ โ„‚ )
20 recn โŠข ( ๐ต โˆˆ โ„ โ†’ ๐ต โˆˆ โ„‚ )
21 20 adantr โŠข ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โ†’ ๐ต โˆˆ โ„‚ )
22 21 1 jca โŠข ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โ†’ ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) )
23 19 22 anim12i โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) ) โ†’ ( ๐ถ โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) ) )
24 3anass โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†” ( ๐ถ โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) ) )
25 23 24 sylibr โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) ) โ†’ ( ๐ถ โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) )
26 divrec โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ๐ถ / ๐ต ) = ( ๐ถ ยท ( 1 / ๐ต ) ) )
27 25 26 syl โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) ) โ†’ ( ๐ถ / ๐ต ) = ( ๐ถ ยท ( 1 / ๐ต ) ) )
28 27 ancoms โŠข ( ( ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ถ / ๐ต ) = ( ๐ถ ยท ( 1 / ๐ต ) ) )
29 28 3adant1 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ถ / ๐ต ) = ( ๐ถ ยท ( 1 / ๐ต ) ) )
30 recn โŠข ( ๐ด โˆˆ โ„ โ†’ ๐ด โˆˆ โ„‚ )
31 30 adantr โŠข ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โ†’ ๐ด โˆˆ โ„‚ )
32 31 4 jca โŠข ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โ†’ ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) )
33 19 32 anim12i โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ๐ถ โˆˆ โ„‚ โˆง ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) ) )
34 3anass โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) โ†” ( ๐ถ โˆˆ โ„‚ โˆง ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) ) )
35 33 34 sylibr โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ๐ถ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) )
36 divrec โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) โ†’ ( ๐ถ / ๐ด ) = ( ๐ถ ยท ( 1 / ๐ด ) ) )
37 35 36 syl โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) ) โ†’ ( ๐ถ / ๐ด ) = ( ๐ถ ยท ( 1 / ๐ด ) ) )
38 37 ancoms โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ถ / ๐ด ) = ( ๐ถ ยท ( 1 / ๐ด ) ) )
39 38 3adant2 โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ถ / ๐ด ) = ( ๐ถ ยท ( 1 / ๐ด ) ) )
40 29 39 breq12d โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ( ๐ถ / ๐ต ) โ‰ค ( ๐ถ / ๐ด ) โ†” ( ๐ถ ยท ( 1 / ๐ต ) ) โ‰ค ( ๐ถ ยท ( 1 / ๐ด ) ) ) )
41 15 17 40 3imtr4d โŠข ( ( ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด ) โˆง ( ๐ต โˆˆ โ„ โˆง 0 < ๐ต ) โˆง ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) ) โ†’ ( ๐ด โ‰ค ๐ต โ†’ ( ๐ถ / ๐ต ) โ‰ค ( ๐ถ / ๐ด ) ) )