Metamath Proof Explorer


Theorem int-leftdistd

Description: AdditionMultiplicationLeftDistribution generator rule. (Contributed by Stanislas Polu, 7-Apr-2020)

Ref Expression
Hypotheses int-leftdistd.1 โŠข ( ๐œ‘ โ†’ ๐ต โˆˆ โ„ )
int-leftdistd.2 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
int-leftdistd.3 โŠข ( ๐œ‘ โ†’ ๐ท โˆˆ โ„ )
int-leftdistd.4 โŠข ( ๐œ‘ โ†’ ๐ด = ๐ต )
Assertion int-leftdistd ( ๐œ‘ โ†’ ( ( ๐ถ + ๐ท ) ยท ๐ต ) = ( ( ๐ถ ยท ๐ด ) + ( ๐ท ยท ๐ด ) ) )

Proof

Step Hyp Ref Expression
1 int-leftdistd.1 โŠข ( ๐œ‘ โ†’ ๐ต โˆˆ โ„ )
2 int-leftdistd.2 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
3 int-leftdistd.3 โŠข ( ๐œ‘ โ†’ ๐ท โˆˆ โ„ )
4 int-leftdistd.4 โŠข ( ๐œ‘ โ†’ ๐ด = ๐ต )
5 2 recnd โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„‚ )
6 3 recnd โŠข ( ๐œ‘ โ†’ ๐ท โˆˆ โ„‚ )
7 1 recnd โŠข ( ๐œ‘ โ†’ ๐ต โˆˆ โ„‚ )
8 5 6 7 adddird โŠข ( ๐œ‘ โ†’ ( ( ๐ถ + ๐ท ) ยท ๐ต ) = ( ( ๐ถ ยท ๐ต ) + ( ๐ท ยท ๐ต ) ) )
9 5 7 mulcld โŠข ( ๐œ‘ โ†’ ( ๐ถ ยท ๐ต ) โˆˆ โ„‚ )
10 6 7 mulcld โŠข ( ๐œ‘ โ†’ ( ๐ท ยท ๐ต ) โˆˆ โ„‚ )
11 9 10 addcomd โŠข ( ๐œ‘ โ†’ ( ( ๐ถ ยท ๐ต ) + ( ๐ท ยท ๐ต ) ) = ( ( ๐ท ยท ๐ต ) + ( ๐ถ ยท ๐ต ) ) )
12 10 9 addcomd โŠข ( ๐œ‘ โ†’ ( ( ๐ท ยท ๐ต ) + ( ๐ถ ยท ๐ต ) ) = ( ( ๐ถ ยท ๐ต ) + ( ๐ท ยท ๐ต ) ) )
13 4 eqcomd โŠข ( ๐œ‘ โ†’ ๐ต = ๐ด )
14 13 oveq2d โŠข ( ๐œ‘ โ†’ ( ๐ถ ยท ๐ต ) = ( ๐ถ ยท ๐ด ) )
15 13 oveq2d โŠข ( ๐œ‘ โ†’ ( ๐ท ยท ๐ต ) = ( ๐ท ยท ๐ด ) )
16 14 15 oveq12d โŠข ( ๐œ‘ โ†’ ( ( ๐ถ ยท ๐ต ) + ( ๐ท ยท ๐ต ) ) = ( ( ๐ถ ยท ๐ด ) + ( ๐ท ยท ๐ด ) ) )
17 12 16 eqtrd โŠข ( ๐œ‘ โ†’ ( ( ๐ท ยท ๐ต ) + ( ๐ถ ยท ๐ต ) ) = ( ( ๐ถ ยท ๐ด ) + ( ๐ท ยท ๐ด ) ) )
18 8 11 17 3eqtrd โŠข ( ๐œ‘ โ†’ ( ( ๐ถ + ๐ท ) ยท ๐ต ) = ( ( ๐ถ ยท ๐ด ) + ( ๐ท ยท ๐ด ) ) )