Theorem addclnq 6881

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 6854	. . 3 |- Q. = ( ( N. X. N. ) /. ~Q )
2		oveq1 5622	. . . 4 |- ( [ <. x , y >. ] ~Q = A -> ( [ <. x , y >. ] ~Q +Q [ <. z , w >. ] ~Q ) = ( A +Q [ <. z , w >. ] ~Q ) )
3	2	eleq1d 2153	. . 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 5623	. . . 4 |- ( [ <. z , w >. ] ~Q = B -> ( A +Q [ <. z , w >. ] ~Q ) = ( A +Q B ) )
5	4	eleq1d 2153	. . 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 6876	. . . 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 6834	. . . . . . . 8 |- ( ( x e. N. /\ w e. N. ) -> ( x .N w ) e. N. )
8		mulclpi 6834	. . . . . . . 8 |- ( ( y e. N. /\ z e. N. ) -> ( y .N z ) e. N. )
9		addclpi 6833	. . . . . . . 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 283	. . . . . . 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 554	. . . . . 6 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( ( x .N w ) +N ( y .N z ) ) e. N. )
12		mulclpi 6834	. . . . . . 7 |- ( ( y e. N. /\ w e. N. ) -> ( y .N w ) e. N. )
13	12	ad2ant2l 492	. . . . . 6 |- ( ( ( x e. N. /\ y e. N. ) /\ ( z e. N. /\ w e. N. ) ) -> ( y .N w ) e. N. )
14	11, 13	jca 300	. . . . 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 4444	. . . . 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 6866	. . . . . 6 |- ~Q e. _V
17	16	ecelqsi 6300	. . . . 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 2161	. . 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 6334	. 2 |- ( ( A e. Q. /\ B e. Q. ) -> ( A +Q B ) e. ( ( N. X. N. ) /. ~Q ) )
21	20, 1	syl6eleqr 2178	1 |- ( ( A e. Q. /\ B e. Q. ) -> ( A +Q B ) e. Q. )

Syntax hints:   -> wi 4   /\ wa 102   = wceq 1287   e. wcel 1436   <.cop 3434   X. cxp 4411  (class class class)co 5615   [cec 6244   /.cqs 6245   N.cnpi 6778   +N cpli 6779   .N cmi 6780   ~Q ceq 6785   Q.cnq 6786   +Q cplq 6788

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1379  ax-7 1380  ax-gen 1381  ax-ie1 1425  ax-ie2 1426  ax-8 1438  ax-10 1439  ax-11 1440  ax-i12 1441  ax-bndl 1442  ax-4 1443  ax-13 1447  ax-14 1448  ax-17 1462  ax-i9 1466  ax-ial 1470  ax-i5r 1471  ax-ext 2067  ax-coll 3931  ax-sep 3934  ax-nul 3942  ax-pow 3986  ax-pr 4012  ax-un 4236  ax-setind 4328  ax-iinf 4378

This theorem depends on definitions:  df-bi 115  df-dc 779  df-3or 923  df-3an 924  df-tru 1290  df-fal 1293  df-nf 1393  df-sb 1690  df-eu 1948  df-mo 1949  df-clab 2072  df-cleq 2078  df-clel 2081  df-nfc 2214  df-ne 2252  df-ral 2360  df-rex 2361  df-reu 2362  df-rab 2364  df-v 2617  df-sbc 2830  df-csb 2923  df-dif 2990  df-un 2992  df-in 2994  df-ss 3001  df-nul 3276  df-pw 3417  df-sn 3437  df-pr 3438  df-op 3440  df-uni 3639  df-int 3674  df-iun 3717  df-br 3823  df-opab 3877  df-mpt 3878  df-tr 3914  df-id 4096  df-iord 4169  df-on 4171  df-suc 4174  df-iom 4381  df-xp 4419  df-rel 4420  df-cnv 4421  df-co 4422  df-dm 4423  df-rn 4424  df-res 4425  df-ima 4426  df-iota 4948  df-fun 4985  df-fn 4986  df-f 4987  df-f1 4988  df-fo 4989  df-f1o 4990  df-fv 4991  df-ov 5618  df-oprab 5619  df-mpt2 5620  df-1st 5870  df-2nd 5871  df-recs 6026  df-irdg 6091  df-oadd 6141  df-omul 6142  df-er 6246  df-ec 6248  df-qs 6252  df-ni 6810  df-pli 6811  df-mi 6812  df-plpq 6850  df-enq 6853  df-nqqs 6854  df-plqqs 6855

This theorem is referenced by:  ltaddnq  6913  halfnqq  6916  ltbtwnnqq  6921  prarloclemcalc  7008  addnqprl  7035  addnqpru  7036  addlocprlemeqgt  7038  addlocprlemgt  7040  addlocprlem  7041  addclpr  7043  plpvlu  7044  dmplp  7046  addnqprlemrl  7063  addnqprlemru  7064  addnqprlemfl  7065  addnqprlemfu  7066  addnqpr  7067  addassprg  7085  distrlem1prl  7088  distrlem1pru  7089  distrlem4prl  7090  distrlem4pru  7091  distrlem5prl  7092  distrlem5pru  7093  ltaddpr  7103  ltexprlemloc  7113  ltexprlemfl  7115  ltexprlemrl  7116  ltexprlemfu  7117  ltexprlemru  7118  addcanprleml  7120  addcanprlemu  7121  recexprlemm  7130  aptiprleml  7145  aptiprlemu  7146  caucvgprlemcanl  7150  cauappcvgprlemm  7151  cauappcvgprlemdisj  7157  cauappcvgprlemloc  7158  cauappcvgprlemladdfu  7160  cauappcvgprlemladdfl  7161  cauappcvgprlemladdru  7162  cauappcvgprlemladdrl  7163  cauappcvgprlem1  7165  cauappcvgprlem2  7166  caucvgprlemnkj  7172  caucvgprlemnbj  7173  caucvgprlemm  7174  caucvgprlemloc  7181  caucvgprlemladdfu  7183  caucvgprlemladdrl  7184  caucvgprlem2  7186  caucvgprprlemloccalc  7190  caucvgprprlemml  7200  caucvgprprlemmu  7201  caucvgprprlemopl  7203  caucvgprprlemloc  7209