Metamath Proof Explorer


Theorem subdivcomb2

Description: Bring a term in a subtraction into the numerator. (Contributed by Scott Fenton, 3-Jul-2013)

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

Proof

Step Hyp Ref Expression
1 simp3l โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ๐ถ โˆˆ โ„‚ )
2 simp2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ๐ต โˆˆ โ„‚ )
3 1 2 mulcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ๐ถ ยท ๐ต ) โˆˆ โ„‚ )
4 divsubdir โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ( ๐ถ ยท ๐ต ) โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด โˆ’ ( ๐ถ ยท ๐ต ) ) / ๐ถ ) = ( ( ๐ด / ๐ถ ) โˆ’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) ) )
5 3 4 syld3an2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด โˆ’ ( ๐ถ ยท ๐ต ) ) / ๐ถ ) = ( ( ๐ด / ๐ถ ) โˆ’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) ) )
6 simprl โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ๐ถ โˆˆ โ„‚ )
7 simpl โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ๐ต โˆˆ โ„‚ )
8 simpr โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) )
9 div23 โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) = ( ( ๐ถ / ๐ถ ) ยท ๐ต ) )
10 6 7 8 9 syl3anc โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) = ( ( ๐ถ / ๐ถ ) ยท ๐ต ) )
11 divid โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โ†’ ( ๐ถ / ๐ถ ) = 1 )
12 11 oveq1d โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) โ†’ ( ( ๐ถ / ๐ถ ) ยท ๐ต ) = ( 1 ยท ๐ต ) )
13 mullid โŠข ( ๐ต โˆˆ โ„‚ โ†’ ( 1 ยท ๐ต ) = ๐ต )
14 12 13 sylan9eqr โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ / ๐ถ ) ยท ๐ต ) = ๐ต )
15 10 14 eqtrd โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) = ๐ต )
16 15 3adant1 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) = ๐ต )
17 16 oveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด / ๐ถ ) โˆ’ ( ( ๐ถ ยท ๐ต ) / ๐ถ ) ) = ( ( ๐ด / ๐ถ ) โˆ’ ๐ต ) )
18 5 17 eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( ๐ถ โˆˆ โ„‚ โˆง ๐ถ โ‰  0 ) ) โ†’ ( ( ๐ด โˆ’ ( ๐ถ ยท ๐ต ) ) / ๐ถ ) = ( ( ๐ด / ๐ถ ) โˆ’ ๐ต ) )