Metamath Proof Explorer


Theorem lemul12a

Description: Comparison of product of two nonnegative numbers. (Contributed by NM, 22-Feb-2008)

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

Proof

Step Hyp Ref Expression
1 simpll โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) )
2 simpll โŠข ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) โ†’ ๐ถ โˆˆ โ„ )
3 2 ad2antlr โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ๐ถ โˆˆ โ„ )
4 simplrr โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ๐ท โˆˆ โ„ )
5 0re โŠข 0 โˆˆ โ„
6 letr โŠข ( ( 0 โˆˆ โ„ โˆง ๐ถ โˆˆ โ„ โˆง ๐ท โˆˆ โ„ ) โ†’ ( ( 0 โ‰ค ๐ถ โˆง ๐ถ โ‰ค ๐ท ) โ†’ 0 โ‰ค ๐ท ) )
7 5 6 mp3an1 โŠข ( ( ๐ถ โˆˆ โ„ โˆง ๐ท โˆˆ โ„ ) โ†’ ( ( 0 โ‰ค ๐ถ โˆง ๐ถ โ‰ค ๐ท ) โ†’ 0 โ‰ค ๐ท ) )
8 7 exp4b โŠข ( ๐ถ โˆˆ โ„ โ†’ ( ๐ท โˆˆ โ„ โ†’ ( 0 โ‰ค ๐ถ โ†’ ( ๐ถ โ‰ค ๐ท โ†’ 0 โ‰ค ๐ท ) ) ) )
9 8 com23 โŠข ( ๐ถ โˆˆ โ„ โ†’ ( 0 โ‰ค ๐ถ โ†’ ( ๐ท โˆˆ โ„ โ†’ ( ๐ถ โ‰ค ๐ท โ†’ 0 โ‰ค ๐ท ) ) ) )
10 9 imp41 โŠข ( ( ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) โˆง ๐ถ โ‰ค ๐ท ) โ†’ 0 โ‰ค ๐ท )
11 10 ad2ant2l โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ 0 โ‰ค ๐ท )
12 4 11 jca โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ( ๐ท โˆˆ โ„ โˆง 0 โ‰ค ๐ท ) )
13 1 3 12 jca32 โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ๐ถ โˆˆ โ„ โˆง ( ๐ท โˆˆ โ„ โˆง 0 โ‰ค ๐ท ) ) ) )
14 simpr โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) )
15 lemul12b โŠข ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ๐ถ โˆˆ โ„ โˆง ( ๐ท โˆˆ โ„ โˆง 0 โ‰ค ๐ท ) ) ) โ†’ ( ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ท ) ) )
16 13 14 15 sylc โŠข ( ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โˆง ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) ) โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ท ) )
17 16 ex โŠข ( ( ( ( ๐ด โˆˆ โ„ โˆง 0 โ‰ค ๐ด ) โˆง ๐ต โˆˆ โ„ ) โˆง ( ( ๐ถ โˆˆ โ„ โˆง 0 โ‰ค ๐ถ ) โˆง ๐ท โˆˆ โ„ ) ) โ†’ ( ( ๐ด โ‰ค ๐ต โˆง ๐ถ โ‰ค ๐ท ) โ†’ ( ๐ด ยท ๐ถ ) โ‰ค ( ๐ต ยท ๐ท ) ) )