Metamath Proof Explorer


Theorem xlemul2a

Description: Extended real version of lemul2a . (Contributed by Mario Carneiro, 8-Sep-2015)

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

Proof

Step Hyp Ref Expression
1 xlemul1a โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ( ๐ด ยทe ๐ถ ) โ‰ค ( ๐ต ยทe ๐ถ ) )
2 simpl1 โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ๐ด โˆˆ โ„* )
3 simpl3l โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ๐ถ โˆˆ โ„* )
4 xmulcom โŠข ( ( ๐ด โˆˆ โ„* โˆง ๐ถ โˆˆ โ„* ) โ†’ ( ๐ด ยทe ๐ถ ) = ( ๐ถ ยทe ๐ด ) )
5 2 3 4 syl2anc โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ( ๐ด ยทe ๐ถ ) = ( ๐ถ ยทe ๐ด ) )
6 simpl2 โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ๐ต โˆˆ โ„* )
7 xmulcom โŠข ( ( ๐ต โˆˆ โ„* โˆง ๐ถ โˆˆ โ„* ) โ†’ ( ๐ต ยทe ๐ถ ) = ( ๐ถ ยทe ๐ต ) )
8 6 3 7 syl2anc โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ( ๐ต ยทe ๐ถ ) = ( ๐ถ ยทe ๐ต ) )
9 1 5 8 3brtr3d โŠข ( ( ( ๐ด โˆˆ โ„* โˆง ๐ต โˆˆ โ„* โˆง ( ๐ถ โˆˆ โ„* โˆง 0 โ‰ค ๐ถ ) ) โˆง ๐ด โ‰ค ๐ต ) โ†’ ( ๐ถ ยทe ๐ด ) โ‰ค ( ๐ถ ยทe ๐ต ) )