Theorem addclnq 7686

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 7659	. . 3 ⊢ Q = ((N × N) / ~Q )
2		oveq1 6056	. . . 4 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ))
3	2	eleq1d 2301	. . 3 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ) ↔ (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q )))
4		oveq2 6057	. . . 4 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) = (𝐴 +Q 𝐵))
5	4	eleq1d 2301	. . 3 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ((𝐴 +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ) ↔ (𝐴 +Q 𝐵) ∈ ((N × N) / ~Q )))
6		addpipqqs 7681	. . . 4 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩] ~Q )
7		mulclpi 7639	. . . . . . . 8 ⊢ ((𝑥 ∈ N ∧ 𝑤 ∈ N) → (𝑥 ·N 𝑤) ∈ N)
8		mulclpi 7639	. . . . . . . 8 ⊢ ((𝑦 ∈ N ∧ 𝑧 ∈ N) → (𝑦 ·N 𝑧) ∈ N)
9		addclpi 7638	. . . . . . . 8 ⊢ (((𝑥 ·N 𝑤) ∈ N ∧ (𝑦 ·N 𝑧) ∈ N) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
10	7, 8, 9	syl2an 289	. . . . . . 7 ⊢ (((𝑥 ∈ N ∧ 𝑤 ∈ N) ∧ (𝑦 ∈ N ∧ 𝑧 ∈ N)) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
11	10	an42s 593	. . . . . 6 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N)
12		mulclpi 7639	. . . . . . 7 ⊢ ((𝑦 ∈ N ∧ 𝑤 ∈ N) → (𝑦 ·N 𝑤) ∈ N)
13	12	ad2ant2l 508	. . . . . 6 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → (𝑦 ·N 𝑤) ∈ N)
14	11, 13	jca 306	. . . . 5 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → (((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N ∧ (𝑦 ·N 𝑤) ∈ N))
15		opelxpi 4780	. . . . 5 ⊢ ((((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)) ∈ N ∧ (𝑦 ·N 𝑤) ∈ N) → ⟨((𝑥 ·N 𝑤) +N (𝑦 ·N 𝑧)), (𝑦 ·N 𝑤)⟩ ∈ (N × N))
16		enqex 7671	. . . . . 6 ⊢ ~Q ∈ V
17	16	ecelqsi 6822	. . . . 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 2309	. . 3 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ([⟨𝑥, 𝑦⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ∈ ((N × N) / ~Q ))
20	1, 3, 5, 19	2ecoptocl 6856	. 2 ⊢ ((𝐴 ∈ Q ∧ 𝐵 ∈ Q) → (𝐴 +Q 𝐵) ∈ ((N × N) / ~Q ))
21	20, 1	eleqtrrdi 2326	1 ⊢ ((𝐴 ∈ Q ∧ 𝐵 ∈ Q) → (𝐴 +Q 𝐵) ∈ Q)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1398   ∈ wcel 2203  ⟨cop 3691   × cxp 4746  (class class class)co 6049  [cec 6764   / cqs 6765  Ncnpi 7583   +_N cpli 7584   ·_N cmi 7585   ~_Q ceq 7590  Qcnq 7591   +_Q cplq 7593

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-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-iord 4486  df-on 4488  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-irdg 6600  df-oadd 6650  df-omul 6651  df-er 6766  df-ec 6768  df-qs 6772  df-ni 7615  df-pli 7616  df-mi 7617  df-plpq 7655  df-enq 7658  df-nqqs 7659  df-plqqs 7660

This theorem is referenced by:  ltaddnq  7718  halfnqq  7721  ltbtwnnqq  7726  prarloclemcalc  7813  addnqprl  7840  addnqpru  7841  addlocprlemeqgt  7843  addlocprlemgt  7845  addlocprlem  7846  addclpr  7848  plpvlu  7849  dmplp  7851  addnqprlemrl  7868  addnqprlemru  7869  addnqprlemfl  7870  addnqprlemfu  7871  addnqpr  7872  addassprg  7890  distrlem1prl  7893  distrlem1pru  7894  distrlem4prl  7895  distrlem4pru  7896  distrlem5prl  7897  distrlem5pru  7898  ltaddpr  7908  ltexprlemloc  7918  ltexprlemfl  7920  ltexprlemrl  7921  ltexprlemfu  7922  ltexprlemru  7923  addcanprleml  7925  addcanprlemu  7926  recexprlemm  7935  aptiprleml  7950  aptiprlemu  7951  caucvgprlemcanl  7955  cauappcvgprlemm  7956  cauappcvgprlemdisj  7962  cauappcvgprlemloc  7963  cauappcvgprlemladdfu  7965  cauappcvgprlemladdfl  7966  cauappcvgprlemladdru  7967  cauappcvgprlemladdrl  7968  cauappcvgprlem1  7970  cauappcvgprlem2  7971  caucvgprlemnkj  7977  caucvgprlemnbj  7978  caucvgprlemm  7979  caucvgprlemloc  7986  caucvgprlemladdfu  7988  caucvgprlemladdrl  7989  caucvgprlem2  7991  caucvgprprlemloccalc  7995  caucvgprprlemml  8005  caucvgprprlemmu  8006  caucvgprprlemopl  8008  caucvgprprlemloc  8014  suplocexprlemmu  8029