Theorem addclnq 7131

Description: Closure of addition on positive fractions. (Contributed by NM, 29-Aug-1995.)

Assertion

Ref	Expression
addclnq	|- ( ( A e. Q. /\ B e. Q. ) -> ( A +Q B ) e. Q. )

Proof of Theorem addclnq

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

Step	Hyp	Ref	Expression
1		df-nqqs 7104	. . 3 |- Q. = ( ( N. X. N. ) /. ~Q )
2		oveq1 5735	. . . 4 |- ( [ <. x , y >. ] ~Q = A -> ( [ <. x , y >. ] ~Q +Q [ <. z , w >. ] ~Q ) = ( A +Q [ <. z , w >. ] ~Q ) )
3	2	eleq1d 2183	. . 3 |- ( [ <. x , y >. ] ~Q = A -> ( ( [ <. x , y >. ] ~Q +Q [ <. z , w >. ] ~Q ) e. ( ( N. X. N. ) /. ~Q ) <-> ( A +Q [ <. z , w >. ] ~Q ) e. ( ( N. X. N. ) /. ~Q ) ) )
4		oveq2 5736	. . . 4 |- ( [ <. z , w >. ] ~Q = B -> ( A +Q [ <. z , w >. ] ~Q ) = ( A +Q B ) )
5	4	eleq1d 2183	. . 3 |- ( [ <. z , w >. ] ~Q = B -> ( ( A +Q [ <. z , w >. ] ~Q ) e. ( ( N. X. N. ) /. ~Q ) <-> ( A +Q B ) e. ( ( N. X. N. ) /. ~Q ) ) )
6		addpipqqs 7126	. . . 4 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( [ <. x , y >. ] ~Q +Q [ <. z , w >. ] ~Q ) = [ <. ( ( x .N w ) +N ( y .N z ) ) , ( y .N w ) >. ] ~Q )
7		mulclpi 7084	. . . . . . . 8 |- ( ( x e. N. /\ w e. N. ) -> ( x .N w ) e. N. )
8		mulclpi 7084	. . . . . . . 8 |- ( ( y e. N. /\ z e. N. ) -> ( y .N z ) e. N. )
9		addclpi 7083	. . . . . . . 8 |- ( ( ( x .N w ) e. N. /\ ( y .N z ) e. N. ) -> ( ( x .N w ) +N ( y .N z ) ) e. N. )
10	7, 8, 9	syl2an 285	. . . . . . 7 |- ( ( ( x e. N. /\ w e. N. ) /\ ( y e. N. /\ z e. N. ) ) -> ( ( x .N w ) +N ( y .N z ) ) e. N. )
11	10	an42s 561	. . . . . 6 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( ( x .N w ) +N ( y .N z ) ) e. N. )
12		mulclpi 7084	. . . . . . 7 |- ( ( y e. N. /\ w e. N. ) -> ( y .N w ) e. N. )
13	12	ad2ant2l 497	. . . . . 6 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( y .N w ) e. N. )
14	11, 13	jca 302	. . . . 5 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( ( ( x .N w ) +N ( y .N z ) ) e. N. /\ ( y .N w ) e. N. ) )
15		opelxpi 4531	. . . . 5 |- ( ( ( ( x .N w ) +N ( y .N z ) ) e. N. /\ ( y .N w ) e. N. ) -> <. ( ( x .N w ) +N ( y .N z ) ) , ( y .N w ) >. e. ( N. X. N. ) )
16		enqex 7116	. . . . . 6 |- ~Q e. _V
17	16	ecelqsi 6437	. . . . 5 |- ( <. ( ( x .N w ) +N ( y .N z ) ) , ( y .N w ) >. e. ( N. X. N. ) -> [ <. ( ( x .N w ) +N ( y .N z ) ) , ( y .N w ) >. ] ~Q e. ( ( N. X. N. ) /. ~Q ) )
18	14, 15, 17	3syl 17	. . . 4 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> [ <. ( ( x .N w ) +N ( y .N z ) ) , ( y .N w ) >. ] ~Q e. ( ( N. X. N. ) /. ~Q ) )
19	6, 18	eqeltrd 2191	. . 3 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( [ <. x , y >. ] ~Q +Q [ <. z , w >. ] ~Q ) e. ( ( N. X. N. ) /. ~Q ) )
20	1, 3, 5, 19	2ecoptocl 6471	. 2 |- ( ( A e. Q. /\ B e. Q. ) -> ( A +Q B ) e. ( ( N. X. N. ) /. ~Q ) )
21	20, 1	syl6eleqr 2208	1 |- ( ( A e. Q. /\ B e. Q. ) -> ( A +Q B ) e. Q. )

Syntax hints:   -> wi 4   /\ wa 103   = wceq 1314   e. wcel 1463   <.cop 3496   X. cxp 4497  (class class class)co 5728   [cec 6381   /.cqs 6382   N.cnpi 7028   +N cpli 7029   .N cmi 7030   ~Q ceq 7035   Q.cnq 7036   +Q cplq 7038

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-in1 586  ax-in2 587  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-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-coll 4003  ax-sep 4006  ax-nul 4014  ax-pow 4058  ax-pr 4091  ax-un 4315  ax-setind 4412  ax-iinf 4462

This theorem depends on definitions:  df-bi 116  df-dc 803  df-3or 946  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2244  df-ne 2283  df-ral 2395  df-rex 2396  df-reu 2397  df-rab 2399  df-v 2659  df-sbc 2879  df-csb 2972  df-dif 3039  df-un 3041  df-in 3043  df-ss 3050  df-nul 3330  df-pw 3478  df-sn 3499  df-pr 3500  df-op 3502  df-uni 3703  df-int 3738  df-iun 3781  df-br 3896  df-opab 3950  df-mpt 3951  df-tr 3987  df-id 4175  df-iord 4248  df-on 4250  df-suc 4253  df-iom 4465  df-xp 4505  df-rel 4506  df-cnv 4507  df-co 4508  df-dm 4509  df-rn 4510  df-res 4511  df-ima 4512  df-iota 5046  df-fun 5083  df-fn 5084  df-f 5085  df-f1 5086  df-fo 5087  df-f1o 5088  df-fv 5089  df-ov 5731  df-oprab 5732  df-mpo 5733  df-1st 5992  df-2nd 5993  df-recs 6156  df-irdg 6221  df-oadd 6271  df-omul 6272  df-er 6383  df-ec 6385  df-qs 6389  df-ni 7060  df-pli 7061  df-mi 7062  df-plpq 7100  df-enq 7103  df-nqqs 7104  df-plqqs 7105

This theorem is referenced by:  ltaddnq  7163  halfnqq  7166  ltbtwnnqq  7171  prarloclemcalc  7258  addnqprl  7285  addnqpru  7286  addlocprlemeqgt  7288  addlocprlemgt  7290  addlocprlem  7291  addclpr  7293  plpvlu  7294  dmplp  7296  addnqprlemrl  7313  addnqprlemru  7314  addnqprlemfl  7315  addnqprlemfu  7316  addnqpr  7317  addassprg  7335  distrlem1prl  7338  distrlem1pru  7339  distrlem4prl  7340  distrlem4pru  7341  distrlem5prl  7342  distrlem5pru  7343  ltaddpr  7353  ltexprlemloc  7363  ltexprlemfl  7365  ltexprlemrl  7366  ltexprlemfu  7367  ltexprlemru  7368  addcanprleml  7370  addcanprlemu  7371  recexprlemm  7380  aptiprleml  7395  aptiprlemu  7396  caucvgprlemcanl  7400  cauappcvgprlemm  7401  cauappcvgprlemdisj  7407  cauappcvgprlemloc  7408  cauappcvgprlemladdfu  7410  cauappcvgprlemladdfl  7411  cauappcvgprlemladdru  7412  cauappcvgprlemladdrl  7413  cauappcvgprlem1  7415  cauappcvgprlem2  7416  caucvgprlemnkj  7422  caucvgprlemnbj  7423  caucvgprlemm  7424  caucvgprlemloc  7431  caucvgprlemladdfu  7433  caucvgprlemladdrl  7434  caucvgprlem2  7436  caucvgprprlemloccalc  7440  caucvgprprlemml  7450  caucvgprprlemmu  7451  caucvgprprlemopl  7453  caucvgprprlemloc  7459