Theorem addclnq 6837

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

Assertion

Ref	Expression
addclnq	⊢ ((𝐴 ∈ Q ∧ 𝐵 ∈ Q) → (𝐴 +Q 𝐵) ∈ Q)

Proof of Theorem addclnq

Dummy variables 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-nqqs 6810	. . 3 ⊢ Q = ((N × N) / ~Q )
2		oveq1 5598	. . . 4 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ))
3	2	eleq1d 2151	. . 3 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ) ↔ (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q )))
4		oveq2 5599	. . . 4 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) = (𝐴 +Q 𝐵))
5	4	eleq1d 2151	. . 3 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ((𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ) ↔ (𝐴 +Q 𝐵) ∈ ((N × N) / ~Q )))
6		addpipqqs 6832	. . . 4 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩] ~Q )
7		mulclpi 6790	. . . . . . . 8 ⊢ ((𝑥 ∈ N ∧ 𝑤 ∈ N) → (𝑥 ·N 𝑤) ∈ N)
8		mulclpi 6790	. . . . . . . 8 ⊢ ((𝑦 ∈ N ∧ 𝑧 ∈ N) → (𝑦 ·N 𝑧) ∈ N)
9		addclpi 6789	. . . . . . . 8 ⊢ (((𝑥 ·N 𝑤) ∈ N ∧ (𝑦 ·N 𝑧) ∈ N) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
10	7, 8, 9	syl2an 283	. . . . . . 7 ⊢ (((𝑥 ∈ N ∧ 𝑤 ∈ N) ∧ (𝑦 ∈ N ∧ 𝑧 ∈ N)) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
11	10	an42s 554	. . . . . 6 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
12		mulclpi 6790	. . . . . . 7 ⊢ ((𝑦 ∈ N ∧ 𝑤 ∈ N) → (𝑦 ·N 𝑤) ∈ N)
13	12	ad2ant2l 492	. . . . . 6 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → (𝑦 ·N 𝑤) ∈ N)
14	11, 13	jca 300	. . . . 5 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → (((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N ∧ (𝑦 ·N 𝑤) ∈ N))
15		opelxpi 4432	. . . . 5 ⊢ ((((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N ∧ (𝑦 ·N 𝑤) ∈ N) → ⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩ ∈ (N × N))
16		enqex 6822	. . . . . 6 ⊢ ~Q ∈ V
17	16	ecelqsi 6276	. . . . 5 ⊢ (⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩ ∈ (N × N) → [⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩] ~Q ∈ ((N × N) / ~Q ))
18	14, 15, 17	3syl 17	. . . 4 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → [⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩] ~Q ∈ ((N × N) / ~Q ))
19	6, 18	eqeltrd 2159	. . 3 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ))
20	1, 3, 5, 19	2ecoptocl 6310	. 2 ⊢ ((𝐴 ∈ Q ∧ 𝐵 ∈ Q) → (𝐴 +Q 𝐵) ∈ ((N × N) / ~Q ))
21	20, 1	syl6eleqr 2176	1 ⊢ ((𝐴 ∈ Q ∧ 𝐵 ∈ Q) → (𝐴 +Q 𝐵) ∈ Q)

Syntax hints:   → wi 4   ∧ wa 102   = wceq 1285   ∈ wcel 1434  ⟨cop 3425   × cxp 4399  (class class class)co 5591  [cec 6220   / cqs 6221  Ncnpi 6734   +_N cpli 6735   ·_N cmi 6736   ~_Q ceq 6741  Qcnq 6742   +_Q cplq 6744

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 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-13 1445  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-coll 3919  ax-sep 3922  ax-nul 3930  ax-pow 3974  ax-pr 4000  ax-un 4224  ax-setind 4316  ax-iinf 4366

This theorem depends on definitions:  df-bi 115  df-dc 777  df-3or 921  df-3an 922  df-tru 1288  df-fal 1291  df-nf 1391  df-sb 1688  df-eu 1946  df-mo 1947  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ne 2250  df-ral 2358  df-rex 2359  df-reu 2360  df-rab 2362  df-v 2614  df-sbc 2827  df-csb 2920  df-dif 2986  df-un 2988  df-in 2990  df-ss 2997  df-nul 3270  df-pw 3408  df-sn 3428  df-pr 3429  df-op 3431  df-uni 3628  df-int 3663  df-iun 3706  df-br 3812  df-opab 3866  df-mpt 3867  df-tr 3902  df-id 4084  df-iord 4157  df-on 4159  df-suc 4162  df-iom 4369  df-xp 4407  df-rel 4408  df-cnv 4409  df-co 4410  df-dm 4411  df-rn 4412  df-res 4413  df-ima 4414  df-iota 4934  df-fun 4971  df-fn 4972  df-f 4973  df-f1 4974  df-fo 4975  df-f1o 4976  df-fv 4977  df-ov 5594  df-oprab 5595  df-mpt2 5596  df-1st 5846  df-2nd 5847  df-recs 6002  df-irdg 6067  df-oadd 6117  df-omul 6118  df-er 6222  df-ec 6224  df-qs 6228  df-ni 6766  df-pli 6767  df-mi 6768  df-plpq 6806  df-enq 6809  df-nqqs 6810  df-plqqs 6811

This theorem is referenced by:  ltaddnq  6869  halfnqq  6872  ltbtwnnqq  6877  prarloclemcalc  6964  addnqprl  6991  addnqpru  6992  addlocprlemeqgt  6994  addlocprlemgt  6996  addlocprlem  6997  addclpr  6999  plpvlu  7000  dmplp  7002  addnqprlemrl  7019  addnqprlemru  7020  addnqprlemfl  7021  addnqprlemfu  7022  addnqpr  7023  addassprg  7041  distrlem1prl  7044  distrlem1pru  7045  distrlem4prl  7046  distrlem4pru  7047  distrlem5prl  7048  distrlem5pru  7049  ltaddpr  7059  ltexprlemloc  7069  ltexprlemfl  7071  ltexprlemrl  7072  ltexprlemfu  7073  ltexprlemru  7074  addcanprleml  7076  addcanprlemu  7077  recexprlemm  7086  aptiprleml  7101  aptiprlemu  7102  caucvgprlemcanl  7106  cauappcvgprlemm  7107  cauappcvgprlemdisj  7113  cauappcvgprlemloc  7114  cauappcvgprlemladdfu  7116  cauappcvgprlemladdfl  7117  cauappcvgprlemladdru  7118  cauappcvgprlemladdrl  7119  cauappcvgprlem1  7121  cauappcvgprlem2  7122  caucvgprlemnkj  7128  caucvgprlemnbj  7129  caucvgprlemm  7130  caucvgprlemloc  7137  caucvgprlemladdfu  7139  caucvgprlemladdrl  7140  caucvgprlem2  7142  caucvgprprlemloccalc  7146  caucvgprprlemml  7156  caucvgprprlemmu  7157  caucvgprprlemopl  7159  caucvgprprlemloc  7165