Metamath Proof Explorer


Theorem subsq2

Description: Express the difference of the squares of two numbers as a polynomial in the difference of the numbers. (Contributed by NM, 21-Feb-2008)

Ref Expression
Assertion subsq2 ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ ( ๐ต โ†‘ 2 ) ) = ( ( ( ๐ด โˆ’ ๐ต ) โ†‘ 2 ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) )

Proof

Step Hyp Ref Expression
1 2cn โŠข 2 โˆˆ โ„‚
2 mulcl โŠข ( ( 2 โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( 2 ยท ๐ต ) โˆˆ โ„‚ )
3 1 2 mpan โŠข ( ๐ต โˆˆ โ„‚ โ†’ ( 2 ยท ๐ต ) โˆˆ โ„‚ )
4 3 adantl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( 2 ยท ๐ต ) โˆˆ โ„‚ )
5 subadd23 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ( 2 ยท ๐ต ) โˆˆ โ„‚ ) โ†’ ( ( ๐ด โˆ’ ๐ต ) + ( 2 ยท ๐ต ) ) = ( ๐ด + ( ( 2 ยท ๐ต ) โˆ’ ๐ต ) ) )
6 4 5 mpd3an3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โˆ’ ๐ต ) + ( 2 ยท ๐ต ) ) = ( ๐ด + ( ( 2 ยท ๐ต ) โˆ’ ๐ต ) ) )
7 2txmxeqx โŠข ( ๐ต โˆˆ โ„‚ โ†’ ( ( 2 ยท ๐ต ) โˆ’ ๐ต ) = ๐ต )
8 7 adantl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( 2 ยท ๐ต ) โˆ’ ๐ต ) = ๐ต )
9 8 oveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด + ( ( 2 ยท ๐ต ) โˆ’ ๐ต ) ) = ( ๐ด + ๐ต ) )
10 6 9 eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โˆ’ ๐ต ) + ( 2 ยท ๐ต ) ) = ( ๐ด + ๐ต ) )
11 10 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โˆ’ ๐ต ) + ( 2 ยท ๐ต ) ) ยท ( ๐ด โˆ’ ๐ต ) ) = ( ( ๐ด + ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) )
12 subcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด โˆ’ ๐ต ) โˆˆ โ„‚ )
13 12 4 12 adddird โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โˆ’ ๐ต ) + ( 2 ยท ๐ต ) ) ยท ( ๐ด โˆ’ ๐ต ) ) = ( ( ( ๐ด โˆ’ ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) )
14 11 13 eqtr3d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด + ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) = ( ( ( ๐ด โˆ’ ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) )
15 subsq โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ ( ๐ต โ†‘ 2 ) ) = ( ( ๐ด + ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) )
16 sqval โŠข ( ( ๐ด โˆ’ ๐ต ) โˆˆ โ„‚ โ†’ ( ( ๐ด โˆ’ ๐ต ) โ†‘ 2 ) = ( ( ๐ด โˆ’ ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) )
17 12 16 syl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โˆ’ ๐ต ) โ†‘ 2 ) = ( ( ๐ด โˆ’ ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) )
18 17 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด โˆ’ ๐ต ) โ†‘ 2 ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) = ( ( ( ๐ด โˆ’ ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) )
19 14 15 18 3eqtr4d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ ( ๐ต โ†‘ 2 ) ) = ( ( ( ๐ด โˆ’ ๐ต ) โ†‘ 2 ) + ( ( 2 ยท ๐ต ) ยท ( ๐ด โˆ’ ๐ต ) ) ) )