Metamath Proof Explorer


Theorem absdiv

Description: Absolute value distributes over division. (Contributed by NM, 27-Apr-2005)

Ref Expression
Assertion absdiv ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ๐ด / ๐ต ) ) = ( ( abs โ€˜ ๐ด ) / ( abs โ€˜ ๐ต ) ) )

Proof

Step Hyp Ref Expression
1 divcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ๐ด / ๐ต ) โˆˆ โ„‚ )
2 abscl โŠข ( ( ๐ด / ๐ต ) โˆˆ โ„‚ โ†’ ( abs โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„ )
3 1 2 syl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„ )
4 3 recnd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„‚ )
5 absrpcl โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ๐ต ) โˆˆ โ„+ )
6 5 3adant1 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ๐ต ) โˆˆ โ„+ )
7 6 rpcnd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ๐ต ) โˆˆ โ„‚ )
8 6 rpne0d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ๐ต ) โ‰  0 )
9 4 7 8 divcan4d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ( ( abs โ€˜ ( ๐ด / ๐ต ) ) ยท ( abs โ€˜ ๐ต ) ) / ( abs โ€˜ ๐ต ) ) = ( abs โ€˜ ( ๐ด / ๐ต ) ) )
10 simp2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ๐ต โˆˆ โ„‚ )
11 absmul โŠข ( ( ( ๐ด / ๐ต ) โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( abs โ€˜ ( ( ๐ด / ๐ต ) ยท ๐ต ) ) = ( ( abs โ€˜ ( ๐ด / ๐ต ) ) ยท ( abs โ€˜ ๐ต ) ) )
12 1 10 11 syl2anc โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ( ๐ด / ๐ต ) ยท ๐ต ) ) = ( ( abs โ€˜ ( ๐ด / ๐ต ) ) ยท ( abs โ€˜ ๐ต ) ) )
13 divcan1 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ( ๐ด / ๐ต ) ยท ๐ต ) = ๐ด )
14 13 fveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ( ๐ด / ๐ต ) ยท ๐ต ) ) = ( abs โ€˜ ๐ด ) )
15 12 14 eqtr3d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ( abs โ€˜ ( ๐ด / ๐ต ) ) ยท ( abs โ€˜ ๐ต ) ) = ( abs โ€˜ ๐ด ) )
16 15 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( ( ( abs โ€˜ ( ๐ด / ๐ต ) ) ยท ( abs โ€˜ ๐ต ) ) / ( abs โ€˜ ๐ต ) ) = ( ( abs โ€˜ ๐ด ) / ( abs โ€˜ ๐ต ) ) )
17 9 16 eqtr3d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ต โ‰  0 ) โ†’ ( abs โ€˜ ( ๐ด / ๐ต ) ) = ( ( abs โ€˜ ๐ด ) / ( abs โ€˜ ๐ต ) ) )