Theorem nnmulcl 8929

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 5877	. . . . 5 |- ( x = 1 -> ( A x. x ) = ( A x. 1 ) )
2	1	eleq1d 2246	. . . 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 5877	. . . . 5 |- ( x = y -> ( A x. x ) = ( A x. y ) )
5	4	eleq1d 2246	. . . 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 5877	. . . . 5 |- ( x = ( y + 1 ) -> ( A x. x ) = ( A x. ( y + 1 ) ) )
8	7	eleq1d 2246	. . . 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 5877	. . . . 5 |- ( x = B -> ( A x. x ) = ( A x. B ) )
11	10	eleq1d 2246	. . . 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 8916	. . . 4 |- ( A e. NN -> A e. CC )
14		mulid1 7945	. . . . . 6 |- ( A e. CC -> ( A x. 1 ) = A )
15	14	eleq1d 2246	. . . . 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 8928	. . . . . . . 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 8916	. . . . . . . . 9 |- ( y e. NN -> y e. CC )
21		ax-1cn 7895	. . . . . . . . . . 11 |- 1 e. CC
22		adddi 7934	. . . . . . . . . . 11 |- ( ( A e. CC /\ y e. CC /\ 1 e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
23	21, 22	mp3an3 1326	. . . . . . . . . 10 |- ( ( A e. CC /\ y e. CC ) -> ( A x. ( y + 1 ) ) = ( ( A x. y ) + ( A x. 1 ) ) )
24	14	oveq2d 5885	. . . . . . . . . . 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 2210	. . . . . . . . 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 2246	. . . . . . 7 |- ( ( A e. NN /\ y e. NN ) -> ( ( A x. ( y + 1 ) ) e. NN <-> ( ( A x. y ) + A ) e. NN ) )
29	19, 28	syl5ibr 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 8924	. 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 1353   e. wcel 2148  (class class class)co 5869   CCcc 7800   1c1 7803   + caddc 7805   x. cmul 7807   NNcn 8908

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 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159  ax-sep 4118  ax-cnex 7893  ax-resscn 7894  ax-1cn 7895  ax-1re 7896  ax-icn 7897  ax-addcl 7898  ax-addrcl 7899  ax-mulcl 7900  ax-mulcom 7903  ax-addass 7904  ax-mulass 7905  ax-distr 7906  ax-1rid 7909  ax-cnre 7913

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2739  df-un 3133  df-in 3135  df-ss 3142  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-int 3843  df-br 4001  df-iota 5174  df-fv 5220  df-ov 5872  df-inn 8909

This theorem is referenced by:  nnmulcli  8930  nndivtr  8950  nnmulcld  8957  nn0mulcl  9201  qaddcl  9624  qmulcl  9626  modqmulnn  10328  nnexpcl  10519  nnsqcl  10575  faccl  10699  facdiv  10702  faclbnd3  10707  bcrpcl  10717  trirecip  11493  fprodnncl  11602  lcmgcdlem  12060  lcmgcdnn  12065  pcmptcl  12323  pcmpt  12324  mulgnnass  12906