Theorem nnmulcl 9258

Description: Closure of multiplication of positive integers. (Contributed by NM, 12-Jan-1997.)

Assertion

Ref	Expression
nnmulcl	|- ( ( A e. NN /\ B e. NN ) -> ( A x. B ) e. NN )

Proof of Theorem nnmulcl

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 6058	. . . . 5 |- ( x = 1 -> ( A x. x ) = ( A x. 1 ) )
2	1	eleq1d 2301	. . . 4 |- ( x = 1 -> ( ( A x. x ) e. NN <-> ( A x. 1 ) e. NN ) )
3	2	imbi2d 230	. . 3 |- ( x = 1 -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. 1 ) e. NN ) ) )
4		oveq2 6058	. . . . 5 |- ( x = y -> ( A x. x ) = ( A x. y ) )
5	4	eleq1d 2301	. . . 4 |- ( x = y -> ( ( A x. x ) e. NN <-> ( A x. y ) e. NN ) )
6	5	imbi2d 230	. . 3 |- ( x = y -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. y ) e. NN ) ) )
7		oveq2 6058	. . . . 5 |- ( x = ( y + 1 ) -> ( A x. x ) = ( A x. ( y + 1 ) ) )
8	7	eleq1d 2301	. . . 4 |- ( x = ( y + 1 ) -> ( ( A x. x ) e. NN <-> ( A x. ( y + 1 ) ) e. NN ) )
9	8	imbi2d 230	. . 3 |- ( x = ( y + 1 ) -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. ( y + 1 ) ) e. NN ) ) )
10		oveq2 6058	. . . . 5 |- ( x = B -> ( A x. x ) = ( A x. B ) )
11	10	eleq1d 2301	. . . 4 |- ( x = B -> ( ( A x. x ) e. NN <-> ( A x. B ) e. NN ) )
12	11	imbi2d 230	. . 3 |- ( x = B -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. B ) e. NN ) ) )
13		nncn 9245	. . . 4 |- ( A e. NN -> A e. CC )
14		mulrid 8271	. . . . . 6 |- ( A e. CC -> ( A x. 1 ) = A )
15	14	eleq1d 2301	. . . . 5 |- ( A e. CC -> ( ( A x. 1 ) e. NN <-> A e. NN ) )
16	15	biimprd 158	. . . 4 |- ( A e. CC -> ( A e. NN -> ( A x. 1 ) e. NN ) )
17	13, 16	mpcom 36	. . 3 |- ( A e. NN -> ( A x. 1 ) e. NN )
18		nnaddcl 9257	. . . . . . . 8 |- ( ( ( A x. y ) e. NN /\ A e. NN ) -> ( ( A x. y ) + A ) e. NN )
19	18	ancoms 268	. . . . . . 7 |- ( ( A e. NN /\ ( A x. y ) e. NN ) -> ( ( A x. y ) + A ) e. NN )
20		nncn 9245	. . . . . . . . 9 |- ( y e. NN -> y e. CC )
21		ax-1cn 8220	. . . . . . . . . . 11 |- 1 e. CC
22		adddi 8259	. . . . . . . . . . 11 |- ( ( A e. CC /\ y e. CC /\ 1 e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
23	21, 22	mp3an3 1363	. . . . . . . . . 10 |- ( ( A e. CC /\ y e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
24	14	oveq2d 6066	. . . . . . . . . . 11 |- ( A e. CC -> ( ( A x. y ) + ( A x. 1 ) ) = ( ( A x. y ) + A ) )
25	24	adantr 276	. . . . . . . . . 10 |- ( ( A e. CC /\ y e. CC ) -> ( ( A x. y ) + ( A x. 1 ) ) = ( ( A x. y ) + A ) )
26	23, 25	eqtrd 2265	. . . . . . . . 9 |- ( ( A e. CC /\ y e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + A ) )
27	13, 20, 26	syl2an 289	. . . . . . . 8 |- ( ( A e. NN /\ y e. NN ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + A ) )
28	27	eleq1d 2301	. . . . . . 7 |- ( ( A e. NN /\ y e. NN ) -> ( ( A x. ( y + 1 ) ) e. NN <-> ( ( A x. y ) + A ) e. NN ) )
29	19, 28	imbitrrid 156	. . . . . 6 |- ( ( A e. NN /\ y e. NN ) -> ( ( A e. NN /\ ( A x. y ) e. NN ) -> ( A x. ( y + 1 ) ) e. NN ) )
30	29	exp4b 367	. . . . 5 |- ( A e. NN -> ( y e. NN -> ( A e. NN -> ( ( A x. y ) e. NN -> ( A x. ( y + 1 ) ) e. NN ) ) ) )
31	30	pm2.43b 52	. . . 4 |- ( y e. NN -> ( A e. NN -> ( ( A x. y ) e. NN -> ( A x. ( y + 1 ) ) e. NN ) ) )
32	31	a2d 26	. . 3 |- ( y e. NN -> ( ( A e. NN -> ( A x. y ) e. NN ) -> ( A e. NN -> ( A x. ( y + 1 ) ) e. NN ) ) )
33	3, 6, 9, 12, 17, 32	nnind 9253	. 2 |- ( B e. NN -> ( A e. NN -> ( A x. B ) e. NN ) )
34	33	impcom 125	1 |- ( ( A e. NN /\ B e. NN ) -> ( A x. B ) e. NN )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1398   e. wcel 2203  (class class class)co 6050   CCcc 8125   1c1 8128   + caddc 8130   x. cmul 8132   NNcn 9237

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2214  ax-sep 4228  ax-cnex 8218  ax-resscn 8219  ax-1cn 8220  ax-1re 8221  ax-icn 8222  ax-addcl 8223  ax-addrcl 8224  ax-mulcl 8225  ax-mulcom 8228  ax-addass 8229  ax-mulass 8230  ax-distr 8231  ax-1rid 8234  ax-cnre 8238

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2815  df-un 3215  df-in 3217  df-ss 3224  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-br 4110  df-iota 5312  df-fv 5360  df-ov 6053  df-inn 9238

This theorem is referenced by:  nnmulcli  9259  nndivtr  9279  nnmulcld  9286  nn0mulcl  9532  qaddcl  9967  qmulcl  9969  modqmulnn  10704  nnexpcl  10914  nnsqcl  10971  faccl  11097  facdiv  11100  faclbnd3  11105  bcrpcl  11115  trirecip  12187  fprodnncl  12296  lcmgcdlem  12774  lcmgcdnn  12779  pcmptcl  13040  pcmpt  13041  4sqlem12  13100  mulgnnass  13874  lgseisenlem1  15943  lgseisenlem2  15944  lgseisenlem3  15945  lgseisenlem4  15946  lgsquadlem1  15950  lgsquadlem2  15951