MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  nnmcl Unicode version

Theorem nnmcl 6694
Description: Closure of multiplication of natural numbers. Proposition 8.17 of [TakeutiZaring] p. 63. (Contributed by NM, 20-Sep-1995.) (Proof shortened by Andrew Salmon, 22-Oct-2011.)
Assertion
Ref Expression
nnmcl  |-  ( ( A  e.  om  /\  B  e.  om )  ->  ( A  .o  B
)  e.  om )

Proof of Theorem nnmcl
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq2 5950 . . . . 5  |-  ( x  =  B  ->  ( A  .o  x )  =  ( A  .o  B
) )
21eleq1d 2424 . . . 4  |-  ( x  =  B  ->  (
( A  .o  x
)  e.  om  <->  ( A  .o  B )  e.  om ) )
32imbi2d 307 . . 3  |-  ( x  =  B  ->  (
( A  e.  om  ->  ( A  .o  x
)  e.  om )  <->  ( A  e.  om  ->  ( A  .o  B )  e.  om ) ) )
4 oveq2 5950 . . . . 5  |-  ( x  =  (/)  ->  ( A  .o  x )  =  ( A  .o  (/) ) )
54eleq1d 2424 . . . 4  |-  ( x  =  (/)  ->  ( ( A  .o  x )  e.  om  <->  ( A  .o  (/) )  e.  om ) )
6 oveq2 5950 . . . . 5  |-  ( x  =  y  ->  ( A  .o  x )  =  ( A  .o  y
) )
76eleq1d 2424 . . . 4  |-  ( x  =  y  ->  (
( A  .o  x
)  e.  om  <->  ( A  .o  y )  e.  om ) )
8 oveq2 5950 . . . . 5  |-  ( x  =  suc  y  -> 
( A  .o  x
)  =  ( A  .o  suc  y ) )
98eleq1d 2424 . . . 4  |-  ( x  =  suc  y  -> 
( ( A  .o  x )  e.  om  <->  ( A  .o  suc  y
)  e.  om )
)
10 nnm0 6687 . . . . 5  |-  ( A  e.  om  ->  ( A  .o  (/) )  =  (/) )
11 peano1 4754 . . . . 5  |-  (/)  e.  om
1210, 11syl6eqel 2446 . . . 4  |-  ( A  e.  om  ->  ( A  .o  (/) )  e.  om )
13 nnacl 6693 . . . . . . . 8  |-  ( ( ( A  .o  y
)  e.  om  /\  A  e.  om )  ->  ( ( A  .o  y )  +o  A
)  e.  om )
1413expcom 424 . . . . . . 7  |-  ( A  e.  om  ->  (
( A  .o  y
)  e.  om  ->  ( ( A  .o  y
)  +o  A )  e.  om ) )
1514adantr 451 . . . . . 6  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( ( A  .o  y )  e.  om  ->  ( ( A  .o  y )  +o  A
)  e.  om )
)
16 nnmsuc 6689 . . . . . . 7  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( A  .o  suc  y )  =  ( ( A  .o  y
)  +o  A ) )
1716eleq1d 2424 . . . . . 6  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( ( A  .o  suc  y )  e.  om  <->  ( ( A  .o  y
)  +o  A )  e.  om ) )
1815, 17sylibrd 225 . . . . 5  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( ( A  .o  y )  e.  om  ->  ( A  .o  suc  y )  e.  om ) )
1918expcom 424 . . . 4  |-  ( y  e.  om  ->  ( A  e.  om  ->  ( ( A  .o  y
)  e.  om  ->  ( A  .o  suc  y
)  e.  om )
) )
205, 7, 9, 12, 19finds2 4763 . . 3  |-  ( x  e.  om  ->  ( A  e.  om  ->  ( A  .o  x )  e.  om ) )
213, 20vtoclga 2925 . 2  |-  ( B  e.  om  ->  ( A  e.  om  ->  ( A  .o  B )  e.  om ) )
2221impcom 419 1  |-  ( ( A  e.  om  /\  B  e.  om )  ->  ( A  .o  B
)  e.  om )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 358    = wceq 1642    e. wcel 1710   (/)c0 3531   suc csuc 4473   omcom 4735  (class class class)co 5942    +o coa 6560    .o comu 6561
This theorem is referenced by:  nnecl  6695  nnmcli  6697  nndi  6705  nnmass  6706  nnmsucr  6707  nnmordi  6713  nnmord  6714  nnmword  6715  omabslem  6728  nnneo  6733  nneob  6734  fin1a2lem4  8116  mulclpi  8604
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-13 1712  ax-14 1714  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-sep 4220  ax-nul 4228  ax-pow 4267  ax-pr 4293  ax-un 4591
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-mo 2214  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ne 2523  df-ral 2624  df-rex 2625  df-reu 2626  df-rab 2628  df-v 2866  df-sbc 3068  df-csb 3158  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-pss 3244  df-nul 3532  df-if 3642  df-pw 3703  df-sn 3722  df-pr 3723  df-tp 3724  df-op 3725  df-uni 3907  df-iun 3986  df-br 4103  df-opab 4157  df-mpt 4158  df-tr 4193  df-eprel 4384  df-id 4388  df-po 4393  df-so 4394  df-fr 4431  df-we 4433  df-ord 4474  df-on 4475  df-lim 4476  df-suc 4477  df-om 4736  df-xp 4774  df-rel 4775  df-cnv 4776  df-co 4777  df-dm 4778  df-rn 4779  df-res 4780  df-ima 4781  df-iota 5298  df-fun 5336  df-fn 5337  df-f 5338  df-f1 5339  df-fo 5340  df-f1o 5341  df-fv 5342  df-ov 5945  df-oprab 5946  df-mpt2 5947  df-recs 6472  df-rdg 6507  df-oadd 6567  df-omul 6568
  Copyright terms: Public domain W3C validator