Theorem nnmulcl 8942

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 5885	. . . . 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 5885	. . . . 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 5885	. . . . 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 5885	. . . . 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 8929	. . . 4 |- ( A e. NN -> A e. CC )
14		mulrid 7956	. . . . . 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 8941	. . . . . . . 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 8929	. . . . . . . . 9 |- ( y e. NN -> y e. CC )
21		ax-1cn 7906	. . . . . . . . . . 11 |- 1 e. CC
22		adddi 7945	. . . . . . . . . . 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 5893	. . . . . . . . . . 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	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 8937	. 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 5877   CCcc 7811   1c1 7814   + caddc 7816   x. cmul 7818   NNcn 8921

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 4123  ax-cnex 7904  ax-resscn 7905  ax-1cn 7906  ax-1re 7907  ax-icn 7908  ax-addcl 7909  ax-addrcl 7910  ax-mulcl 7911  ax-mulcom 7914  ax-addass 7915  ax-mulass 7916  ax-distr 7917  ax-1rid 7920  ax-cnre 7924

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 2741  df-un 3135  df-in 3137  df-ss 3144  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-int 3847  df-br 4006  df-iota 5180  df-fv 5226  df-ov 5880  df-inn 8922

This theorem is referenced by:  nnmulcli  8943  nndivtr  8963  nnmulcld  8970  nn0mulcl  9214  qaddcl  9637  qmulcl  9639  modqmulnn  10344  nnexpcl  10535  nnsqcl  10592  faccl  10717  facdiv  10720  faclbnd3  10725  bcrpcl  10735  trirecip  11511  fprodnncl  11620  lcmgcdlem  12079  lcmgcdnn  12084  pcmptcl  12342  pcmpt  12343  mulgnnass  13023  lgseisenlem1  14535  lgseisenlem2  14536