Metamath Proof Explorer


Theorem dvmptdivc

Description: Function-builder for derivative, division rule for constant divisor. (Contributed by Mario Carneiro, 18-May-2016)

Ref Expression
Hypotheses dvmptadd.s โŠข ( ๐œ‘ โ†’ ๐‘† โˆˆ { โ„ , โ„‚ } )
dvmptadd.a โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ด โˆˆ โ„‚ )
dvmptadd.b โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ต โˆˆ ๐‘‰ )
dvmptadd.da โŠข ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ๐ด ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ๐ต ) )
dvmptcmul.c โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„‚ )
dvmptdivc.0 โŠข ( ๐œ‘ โ†’ ๐ถ โ‰  0 )
Assertion dvmptdivc ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ด / ๐ถ ) ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ต / ๐ถ ) ) )

Proof

Step Hyp Ref Expression
1 dvmptadd.s โŠข ( ๐œ‘ โ†’ ๐‘† โˆˆ { โ„ , โ„‚ } )
2 dvmptadd.a โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ด โˆˆ โ„‚ )
3 dvmptadd.b โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ต โˆˆ ๐‘‰ )
4 dvmptadd.da โŠข ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ๐ด ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ๐ต ) )
5 dvmptcmul.c โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„‚ )
6 dvmptdivc.0 โŠข ( ๐œ‘ โ†’ ๐ถ โ‰  0 )
7 5 6 reccld โŠข ( ๐œ‘ โ†’ ( 1 / ๐ถ ) โˆˆ โ„‚ )
8 1 2 3 4 7 dvmptcmul โŠข ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ( 1 / ๐ถ ) ยท ๐ด ) ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ( 1 / ๐ถ ) ยท ๐ต ) ) )
9 5 adantr โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ถ โˆˆ โ„‚ )
10 6 adantr โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ถ โ‰  0 )
11 2 9 10 divrec2d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ( ๐ด / ๐ถ ) = ( ( 1 / ๐ถ ) ยท ๐ด ) )
12 11 mpteq2dva โŠข ( ๐œ‘ โ†’ ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ด / ๐ถ ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ( 1 / ๐ถ ) ยท ๐ด ) ) )
13 12 oveq2d โŠข ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ด / ๐ถ ) ) ) = ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ( 1 / ๐ถ ) ยท ๐ด ) ) ) )
14 1 2 3 4 dvmptcl โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ๐ต โˆˆ โ„‚ )
15 14 9 10 divrec2d โŠข ( ( ๐œ‘ โˆง ๐‘ฅ โˆˆ ๐‘‹ ) โ†’ ( ๐ต / ๐ถ ) = ( ( 1 / ๐ถ ) ยท ๐ต ) )
16 15 mpteq2dva โŠข ( ๐œ‘ โ†’ ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ต / ๐ถ ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ( 1 / ๐ถ ) ยท ๐ต ) ) )
17 8 13 16 3eqtr4d โŠข ( ๐œ‘ โ†’ ( ๐‘† D ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ด / ๐ถ ) ) ) = ( ๐‘ฅ โˆˆ ๐‘‹ โ†ฆ ( ๐ต / ๐ถ ) ) )