Metamath Proof Explorer


Theorem nnm0r

Description: Multiplication with zero. Exercise 16 of Enderton p. 82. (Contributed by NM, 20-Sep-1995) (Revised by Mario Carneiro, 15-Nov-2014)

Ref Expression
Assertion nnm0r ( ๐ด โˆˆ ฯ‰ โ†’ ( โˆ… ยทo ๐ด ) = โˆ… )

Proof

Step Hyp Ref Expression
1 oveq2 โŠข ( ๐‘ฅ = โˆ… โ†’ ( โˆ… ยทo ๐‘ฅ ) = ( โˆ… ยทo โˆ… ) )
2 1 eqeq1d โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( โˆ… ยทo ๐‘ฅ ) = โˆ… โ†” ( โˆ… ยทo โˆ… ) = โˆ… ) )
3 oveq2 โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( โˆ… ยทo ๐‘ฅ ) = ( โˆ… ยทo ๐‘ฆ ) )
4 3 eqeq1d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( โˆ… ยทo ๐‘ฅ ) = โˆ… โ†” ( โˆ… ยทo ๐‘ฆ ) = โˆ… ) )
5 oveq2 โŠข ( ๐‘ฅ = suc ๐‘ฆ โ†’ ( โˆ… ยทo ๐‘ฅ ) = ( โˆ… ยทo suc ๐‘ฆ ) )
6 5 eqeq1d โŠข ( ๐‘ฅ = suc ๐‘ฆ โ†’ ( ( โˆ… ยทo ๐‘ฅ ) = โˆ… โ†” ( โˆ… ยทo suc ๐‘ฆ ) = โˆ… ) )
7 oveq2 โŠข ( ๐‘ฅ = ๐ด โ†’ ( โˆ… ยทo ๐‘ฅ ) = ( โˆ… ยทo ๐ด ) )
8 7 eqeq1d โŠข ( ๐‘ฅ = ๐ด โ†’ ( ( โˆ… ยทo ๐‘ฅ ) = โˆ… โ†” ( โˆ… ยทo ๐ด ) = โˆ… ) )
9 0elon โŠข โˆ… โˆˆ On
10 om0 โŠข ( โˆ… โˆˆ On โ†’ ( โˆ… ยทo โˆ… ) = โˆ… )
11 9 10 ax-mp โŠข ( โˆ… ยทo โˆ… ) = โˆ…
12 oveq1 โŠข ( ( โˆ… ยทo ๐‘ฆ ) = โˆ… โ†’ ( ( โˆ… ยทo ๐‘ฆ ) +o โˆ… ) = ( โˆ… +o โˆ… ) )
13 oa0 โŠข ( โˆ… โˆˆ On โ†’ ( โˆ… +o โˆ… ) = โˆ… )
14 9 13 ax-mp โŠข ( โˆ… +o โˆ… ) = โˆ…
15 12 14 eqtrdi โŠข ( ( โˆ… ยทo ๐‘ฆ ) = โˆ… โ†’ ( ( โˆ… ยทo ๐‘ฆ ) +o โˆ… ) = โˆ… )
16 peano1 โŠข โˆ… โˆˆ ฯ‰
17 nnmsuc โŠข ( ( โˆ… โˆˆ ฯ‰ โˆง ๐‘ฆ โˆˆ ฯ‰ ) โ†’ ( โˆ… ยทo suc ๐‘ฆ ) = ( ( โˆ… ยทo ๐‘ฆ ) +o โˆ… ) )
18 16 17 mpan โŠข ( ๐‘ฆ โˆˆ ฯ‰ โ†’ ( โˆ… ยทo suc ๐‘ฆ ) = ( ( โˆ… ยทo ๐‘ฆ ) +o โˆ… ) )
19 18 eqeq1d โŠข ( ๐‘ฆ โˆˆ ฯ‰ โ†’ ( ( โˆ… ยทo suc ๐‘ฆ ) = โˆ… โ†” ( ( โˆ… ยทo ๐‘ฆ ) +o โˆ… ) = โˆ… ) )
20 15 19 imbitrrid โŠข ( ๐‘ฆ โˆˆ ฯ‰ โ†’ ( ( โˆ… ยทo ๐‘ฆ ) = โˆ… โ†’ ( โˆ… ยทo suc ๐‘ฆ ) = โˆ… ) )
21 2 4 6 8 11 20 finds โŠข ( ๐ด โˆˆ ฯ‰ โ†’ ( โˆ… ยทo ๐ด ) = โˆ… )