Metamath Proof Explorer


Theorem divcan7

Description: Cancel equal divisors in a division. (Contributed by Jeff Hankins, 29-Sep-2013)

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

Proof

Step Hyp Ref Expression
1 divdivdiv โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โˆง ( ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) ) โ†’ ( ( ๐ด / ๐ถ ) / ( ๐ต / ๐ถ ) ) = ( ( ๐ด ยท ๐ถ ) / ( ๐ถ ยท ๐ต ) ) )
2 1 3impdir โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด / ๐ถ ) / ( ๐ต / ๐ถ ) ) = ( ( ๐ด ยท ๐ถ ) / ( ๐ถ ยท ๐ต ) ) )
3 mulcom โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐ถ ) = ( ๐ถ ยท ๐ด ) )
4 3 adantrr โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ๐ด ยท ๐ถ ) = ( ๐ถ ยท ๐ด ) )
5 4 3adant2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ๐ด ยท ๐ถ ) = ( ๐ถ ยท ๐ด ) )
6 5 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด ยท ๐ถ ) / ( ๐ถ ยท ๐ต ) ) = ( ( ๐ถ ยท ๐ด ) / ( ๐ถ ยท ๐ต ) ) )
7 divcan5 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ ยท ๐ด ) / ( ๐ถ ยท ๐ต ) ) = ( ๐ด / ๐ต ) )
8 2 6 7 3eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด / ๐ถ ) / ( ๐ต / ๐ถ ) ) = ( ๐ด / ๐ต ) )