Metamath Proof Explorer


Theorem numma2c

Description: Perform a multiply-add of two decimal integers M and N against a fixed multiplicand P (with carry). (Contributed by Mario Carneiro, 18-Feb-2014)

Ref Expression
Hypotheses numma.1 โŠข ๐‘‡ โˆˆ โ„•0
numma.2 โŠข ๐ด โˆˆ โ„•0
numma.3 โŠข ๐ต โˆˆ โ„•0
numma.4 โŠข ๐ถ โˆˆ โ„•0
numma.5 โŠข ๐ท โˆˆ โ„•0
numma.6 โŠข ๐‘€ = ( ( ๐‘‡ ยท ๐ด ) + ๐ต )
numma.7 โŠข ๐‘ = ( ( ๐‘‡ ยท ๐ถ ) + ๐ท )
numma2c.8 โŠข ๐‘ƒ โˆˆ โ„•0
numma2c.9 โŠข ๐น โˆˆ โ„•0
numma2c.10 โŠข ๐บ โˆˆ โ„•0
numma2c.11 โŠข ( ( ๐‘ƒ ยท ๐ด ) + ( ๐ถ + ๐บ ) ) = ๐ธ
numma2c.12 โŠข ( ( ๐‘ƒ ยท ๐ต ) + ๐ท ) = ( ( ๐‘‡ ยท ๐บ ) + ๐น )
Assertion numma2c ( ( ๐‘ƒ ยท ๐‘€ ) + ๐‘ ) = ( ( ๐‘‡ ยท ๐ธ ) + ๐น )

Proof

Step Hyp Ref Expression
1 numma.1 โŠข ๐‘‡ โˆˆ โ„•0
2 numma.2 โŠข ๐ด โˆˆ โ„•0
3 numma.3 โŠข ๐ต โˆˆ โ„•0
4 numma.4 โŠข ๐ถ โˆˆ โ„•0
5 numma.5 โŠข ๐ท โˆˆ โ„•0
6 numma.6 โŠข ๐‘€ = ( ( ๐‘‡ ยท ๐ด ) + ๐ต )
7 numma.7 โŠข ๐‘ = ( ( ๐‘‡ ยท ๐ถ ) + ๐ท )
8 numma2c.8 โŠข ๐‘ƒ โˆˆ โ„•0
9 numma2c.9 โŠข ๐น โˆˆ โ„•0
10 numma2c.10 โŠข ๐บ โˆˆ โ„•0
11 numma2c.11 โŠข ( ( ๐‘ƒ ยท ๐ด ) + ( ๐ถ + ๐บ ) ) = ๐ธ
12 numma2c.12 โŠข ( ( ๐‘ƒ ยท ๐ต ) + ๐ท ) = ( ( ๐‘‡ ยท ๐บ ) + ๐น )
13 8 nn0cni โŠข ๐‘ƒ โˆˆ โ„‚
14 1 2 3 numcl โŠข ( ( ๐‘‡ ยท ๐ด ) + ๐ต ) โˆˆ โ„•0
15 6 14 eqeltri โŠข ๐‘€ โˆˆ โ„•0
16 15 nn0cni โŠข ๐‘€ โˆˆ โ„‚
17 13 16 mulcomi โŠข ( ๐‘ƒ ยท ๐‘€ ) = ( ๐‘€ ยท ๐‘ƒ )
18 17 oveq1i โŠข ( ( ๐‘ƒ ยท ๐‘€ ) + ๐‘ ) = ( ( ๐‘€ ยท ๐‘ƒ ) + ๐‘ )
19 2 nn0cni โŠข ๐ด โˆˆ โ„‚
20 19 13 mulcomi โŠข ( ๐ด ยท ๐‘ƒ ) = ( ๐‘ƒ ยท ๐ด )
21 20 oveq1i โŠข ( ( ๐ด ยท ๐‘ƒ ) + ( ๐ถ + ๐บ ) ) = ( ( ๐‘ƒ ยท ๐ด ) + ( ๐ถ + ๐บ ) )
22 21 11 eqtri โŠข ( ( ๐ด ยท ๐‘ƒ ) + ( ๐ถ + ๐บ ) ) = ๐ธ
23 3 nn0cni โŠข ๐ต โˆˆ โ„‚
24 23 13 mulcomi โŠข ( ๐ต ยท ๐‘ƒ ) = ( ๐‘ƒ ยท ๐ต )
25 24 oveq1i โŠข ( ( ๐ต ยท ๐‘ƒ ) + ๐ท ) = ( ( ๐‘ƒ ยท ๐ต ) + ๐ท )
26 25 12 eqtri โŠข ( ( ๐ต ยท ๐‘ƒ ) + ๐ท ) = ( ( ๐‘‡ ยท ๐บ ) + ๐น )
27 1 2 3 4 5 6 7 8 9 10 22 26 nummac โŠข ( ( ๐‘€ ยท ๐‘ƒ ) + ๐‘ ) = ( ( ๐‘‡ ยท ๐ธ ) + ๐น )
28 18 27 eqtri โŠข ( ( ๐‘ƒ ยท ๐‘€ ) + ๐‘ ) = ( ( ๐‘‡ ยท ๐ธ ) + ๐น )