Metamath Proof Explorer


Theorem mulbinom2

Description: The square of a binomial with factor. (Contributed by AV, 19-Jul-2021)

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

Proof

Step Hyp Ref Expression
1 mulcl โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ด ) โˆˆ โ„‚ )
2 1 ancoms โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ด ) โˆˆ โ„‚ )
3 2 3adant2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ๐ถ ยท ๐ด ) โˆˆ โ„‚ )
4 simp2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ๐ต โˆˆ โ„‚ )
5 binom2 โŠข ( ( ( ๐ถ ยท ๐ด ) โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ถ ยท ๐ด ) + ๐ต ) โ†‘ 2 ) = ( ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) ) + ( ๐ต โ†‘ 2 ) ) )
6 3 4 5 syl2anc โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ถ ยท ๐ด ) + ๐ต ) โ†‘ 2 ) = ( ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) ) + ( ๐ต โ†‘ 2 ) ) )
7 mulass โŠข ( ( ๐ถ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) = ( ๐ถ ยท ( ๐ด ยท ๐ต ) ) )
8 7 3coml โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) = ( ๐ถ ยท ( ๐ด ยท ๐ต ) ) )
9 8 oveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) = ( 2 ยท ( ๐ถ ยท ( ๐ด ยท ๐ต ) ) ) )
10 2cnd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ 2 โˆˆ โ„‚ )
11 simp3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ๐ถ โˆˆ โ„‚ )
12 mulcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐ต ) โˆˆ โ„‚ )
13 12 3adant3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ๐ด ยท ๐ต ) โˆˆ โ„‚ )
14 10 11 13 mulassd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( 2 ยท ๐ถ ) ยท ( ๐ด ยท ๐ต ) ) = ( 2 ยท ( ๐ถ ยท ( ๐ด ยท ๐ต ) ) ) )
15 9 14 eqtr4d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) = ( ( 2 ยท ๐ถ ) ยท ( ๐ด ยท ๐ต ) ) )
16 15 oveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) ) = ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( ( 2 ยท ๐ถ ) ยท ( ๐ด ยท ๐ต ) ) ) )
17 16 oveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( 2 ยท ( ( ๐ถ ยท ๐ด ) ยท ๐ต ) ) ) + ( ๐ต โ†‘ 2 ) ) = ( ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( ( 2 ยท ๐ถ ) ยท ( ๐ด ยท ๐ต ) ) ) + ( ๐ต โ†‘ 2 ) ) )
18 6 17 eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ โˆง ๐ถ โˆˆ โ„‚ ) โ†’ ( ( ( ๐ถ ยท ๐ด ) + ๐ต ) โ†‘ 2 ) = ( ( ( ( ๐ถ ยท ๐ด ) โ†‘ 2 ) + ( ( 2 ยท ๐ถ ) ยท ( ๐ด ยท ๐ต ) ) ) + ( ๐ต โ†‘ 2 ) ) )