Metamath Proof Explorer


Theorem divmul24

Description: Swap the numerators in the product of two ratios. (Contributed by NM, 3-May-2005)

Ref Expression
Assertion divmul24 ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ถ ) ยท ( ๐ต / ๐ท ) ) = ( ( ๐ด / ๐ท ) ยท ( ๐ต / ๐ถ ) ) )

Proof

Step Hyp Ref Expression
1 mulcom โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ท โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ท ) = ( ๐ท ยท ๐ถ ) )
2 1 ad2ant2r โŠข ( ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) โ†’ ( ๐ถ ยท ๐ท ) = ( ๐ท ยท ๐ถ ) )
3 2 adantl โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ๐ถ ยท ๐ท ) = ( ๐ท ยท ๐ถ ) )
4 3 oveq2d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ( ๐ด ยท ๐ต ) / ( ๐ถ ยท ๐ท ) ) = ( ( ๐ด ยท ๐ต ) / ( ๐ท ยท ๐ถ ) ) )
5 divmuldiv โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ถ ) ยท ( ๐ต / ๐ท ) ) = ( ( ๐ด ยท ๐ต ) / ( ๐ถ ยท ๐ท ) ) )
6 divmuldiv โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ท ) ยท ( ๐ต / ๐ถ ) ) = ( ( ๐ด ยท ๐ต ) / ( ๐ท ยท ๐ถ ) ) )
7 6 ancom2s โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ท ) ยท ( ๐ต / ๐ถ ) ) = ( ( ๐ด ยท ๐ต ) / ( ๐ท ยท ๐ถ ) ) )
8 4 5 7 3eqtr4d โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โˆง ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โˆง ( ๐ท โˆˆ โ„‚ โˆง ๐ท โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ถ ) ยท ( ๐ต / ๐ท ) ) = ( ( ๐ด / ๐ท ) ยท ( ๐ต / ๐ถ ) ) )