Metamath Proof Explorer


Theorem numsuc

Description: The successor of a decimal integer (no carry). (Contributed by Mario Carneiro, 18-Feb-2014)

Ref Expression
Hypotheses numnncl.1 โŠข ๐‘‡ โˆˆ โ„•0
numnncl.2 โŠข ๐ด โˆˆ โ„•0
numcl.2 โŠข ๐ต โˆˆ โ„•0
numsuc.4 โŠข ( ๐ต + 1 ) = ๐ถ
numsuc.5 โŠข ๐‘ = ( ( ๐‘‡ ยท ๐ด ) + ๐ต )
Assertion numsuc ( ๐‘ + 1 ) = ( ( ๐‘‡ ยท ๐ด ) + ๐ถ )

Proof

Step Hyp Ref Expression
1 numnncl.1 โŠข ๐‘‡ โˆˆ โ„•0
2 numnncl.2 โŠข ๐ด โˆˆ โ„•0
3 numcl.2 โŠข ๐ต โˆˆ โ„•0
4 numsuc.4 โŠข ( ๐ต + 1 ) = ๐ถ
5 numsuc.5 โŠข ๐‘ = ( ( ๐‘‡ ยท ๐ด ) + ๐ต )
6 5 oveq1i โŠข ( ๐‘ + 1 ) = ( ( ( ๐‘‡ ยท ๐ด ) + ๐ต ) + 1 )
7 1 2 nn0mulcli โŠข ( ๐‘‡ ยท ๐ด ) โˆˆ โ„•0
8 7 nn0cni โŠข ( ๐‘‡ ยท ๐ด ) โˆˆ โ„‚
9 3 nn0cni โŠข ๐ต โˆˆ โ„‚
10 ax-1cn โŠข 1 โˆˆ โ„‚
11 8 9 10 addassi โŠข ( ( ( ๐‘‡ ยท ๐ด ) + ๐ต ) + 1 ) = ( ( ๐‘‡ ยท ๐ด ) + ( ๐ต + 1 ) )
12 4 oveq2i โŠข ( ( ๐‘‡ ยท ๐ด ) + ( ๐ต + 1 ) ) = ( ( ๐‘‡ ยท ๐ด ) + ๐ถ )
13 6 11 12 3eqtri โŠข ( ๐‘ + 1 ) = ( ( ๐‘‡ ยท ๐ด ) + ๐ถ )