Theorem nnmulcl 8651

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 5736	. . . . 5 |- ( x = 1 -> ( A x. x ) = ( A x. 1 ) )
2	1	eleq1d 2183	. . . 4 |- ( x = 1 -> ( ( A x. x ) e. NN <-> ( A x. 1 ) e. NN ) )
3	2	imbi2d 229	. . 3 |- ( x = 1 -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. 1 ) e. NN ) ) )
4		oveq2 5736	. . . . 5 |- ( x = y -> ( A x. x ) = ( A x. y ) )
5	4	eleq1d 2183	. . . 4 |- ( x = y -> ( ( A x. x ) e. NN <-> ( A x. y ) e. NN ) )
6	5	imbi2d 229	. . 3 |- ( x = y -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. y ) e. NN ) ) )
7		oveq2 5736	. . . . 5 |- ( x = ( y + 1 ) -> ( A x. x ) = ( A x. ( y + 1 ) ) )
8	7	eleq1d 2183	. . . 4 |- ( x = ( y + 1 ) -> ( ( A x. x ) e. NN <-> ( A x. ( y + 1 ) ) e. NN ) )
9	8	imbi2d 229	. . 3 |- ( x = ( y + 1 ) -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. ( y + 1 ) ) e. NN ) ) )
10		oveq2 5736	. . . . 5 |- ( x = B -> ( A x. x ) = ( A x. B ) )
11	10	eleq1d 2183	. . . 4 |- ( x = B -> ( ( A x. x ) e. NN <-> ( A x. B ) e. NN ) )
12	11	imbi2d 229	. . 3 |- ( x = B -> ( ( A e. NN -> ( A x. x ) e. NN ) <-> ( A e. NN -> ( A x. B ) e. NN ) ) )
13		nncn 8638	. . . 4 |- ( A e. NN -> A e. CC )
14		mulid1 7687	. . . . . 6 |- ( A e. CC -> ( A x. 1 ) = A )
15	14	eleq1d 2183	. . . . 5 |- ( A e. CC -> ( ( A x. 1 ) e. NN <-> A e. NN ) )
16	15	biimprd 157	. . . 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 8650	. . . . . . . 8 |- ( ( ( A x. y ) e. NN /\ A e. NN ) -> ( ( A x. y ) + A ) e. NN )
19	18	ancoms 266	. . . . . . 7 |- ( ( A e. NN /\ ( A x. y ) e. NN ) -> ( ( A x. y ) + A ) e. NN )
20		nncn 8638	. . . . . . . . 9 |- ( y e. NN -> y e. CC )
21		ax-1cn 7638	. . . . . . . . . . 11 |- 1 e. CC
22		adddi 7676	. . . . . . . . . . 11 |- ( ( A e. CC /\ y e. CC /\ 1 e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
23	21, 22	mp3an3 1287	. . . . . . . . . 10 |- ( ( A e. CC /\ y e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
24	14	oveq2d 5744	. . . . . . . . . . 11 |- ( A e. CC -> ( ( A x. y ) + ( A x. 1 ) ) = ( ( A x. y ) + A ) )
25	24	adantr 272	. . . . . . . . . 10 |- ( ( A e. CC /\ y e. CC ) -> ( ( A x. y ) + ( A x. 1 ) ) = ( ( A x. y ) + A ) )
26	23, 25	eqtrd 2147	. . . . . . . . 9 |- ( ( A e. CC /\ y e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + A ) )
27	13, 20, 26	syl2an 285	. . . . . . . 8 |- ( ( A e. NN /\ y e. NN ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + A ) )
28	27	eleq1d 2183	. . . . . . 7 |- ( ( A e. NN /\ y e. NN ) -> ( ( A x. ( y + 1 ) ) e. NN <-> ( ( A x. y ) + A ) e. NN ) )
29	19, 28	syl5ibr 155	. . . . . 6 |- ( ( A e. NN /\ y e. NN ) -> ( ( A e. NN /\ ( A x. y ) e. NN ) -> ( A x. ( y + 1 ) ) e. NN ) )
30	29	exp4b 362	. . . . 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 8646	. 2 |- ( B e. NN -> ( A e. NN -> ( A x. B ) e. NN ) )
34	33	impcom 124	1 |- ( ( A e. NN /\ B e. NN ) -> ( A x. B ) e. NN )

Syntax hints:   -> wi 4   /\ wa 103   = wceq 1314   e. wcel 1463  (class class class)co 5728   CCcc 7545   1c1 7548   + caddc 7550   x. cmul 7552   NNcn 8630

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-sep 4006  ax-cnex 7636  ax-resscn 7637  ax-1cn 7638  ax-1re 7639  ax-icn 7640  ax-addcl 7641  ax-addrcl 7642  ax-mulcl 7643  ax-mulcom 7646  ax-addass 7647  ax-mulass 7648  ax-distr 7649  ax-1rid 7652  ax-cnre 7656

This theorem depends on definitions:  df-bi 116  df-3an 947  df-tru 1317  df-nf 1420  df-sb 1719  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2244  df-ral 2395  df-rex 2396  df-rab 2399  df-v 2659  df-un 3041  df-in 3043  df-ss 3050  df-sn 3499  df-pr 3500  df-op 3502  df-uni 3703  df-int 3738  df-br 3896  df-iota 5046  df-fv 5089  df-ov 5731  df-inn 8631

This theorem is referenced by:  nnmulcli  8652  nndivtr  8672  nnmulcld  8679  nn0mulcl  8917  qaddcl  9329  qmulcl  9331  modqmulnn  10008  nnexpcl  10199  nnsqcl  10255  faccl  10374  facdiv  10377  faclbnd3  10382  bcrpcl  10392  trirecip  11162  lcmgcdlem  11604  lcmgcdnn  11609