Theorem addclsr 9592

Description: Closure of addition on signed reals. (Contributed by NM, 25-Jul-1995.) (New usage is discouraged.)

Assertion

Ref	Expression
addclsr	⊢ ((𝐴 ∈ R ∧ 𝐵 ∈ R) → (𝐴 +R 𝐵) ∈ R)

Proof of Theorem addclsr

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

Step	Hyp	Ref	Expression
1		df-nr 9566	. . 3 ⊢ R = ((P × P) / ~R )
2		oveq1 6370	. . . 4 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ([⟨𝑥, 𝑦⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 +R [⟨𝑧, 𝑤⟩] ~R ))
3	2	eleq1d 2567	. . 3 ⊢ ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (([⟨𝑥, 𝑦⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) ∈ ((P × P) / ~R ) ↔ (𝐴 +R [⟨𝑧, 𝑤⟩] ~R ) ∈ ((P × P) / ~R )))
4		oveq2 6371	. . . 4 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (𝐴 +R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 +R 𝐵))
5	4	eleq1d 2567	. . 3 ⊢ ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → ((𝐴 +R [⟨𝑧, 𝑤⟩] ~R ) ∈ ((P × P) / ~R ) ↔ (𝐴 +R 𝐵) ∈ ((P × P) / ~R )))
6		addsrpr 9584	. . . 4 ⊢ (((𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑥, 𝑦⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) = [⟨(𝑥 +P 𝑧), (𝑦 +P 𝑤)⟩] ~R )
7		addclpr 9528	. . . . . . 7 ⊢ ((𝑥 ∈ P ∧ 𝑧 ∈ P) → (𝑥 +P 𝑧) ∈ P)
8		addclpr 9528	. . . . . . 7 ⊢ ((𝑦 ∈ P ∧ 𝑤 ∈ P) → (𝑦 +P 𝑤) ∈ P)
9	7, 8	anim12i 582	. . . . . 6 ⊢ (((𝑥 ∈ P ∧ 𝑧 ∈ P) ∧ (𝑦 ∈ P ∧ 𝑤 ∈ P)) → ((𝑥 +P 𝑧) ∈ P ∧ (𝑦 +P 𝑤) ∈ P))
10	9	an4s 855	. . . . 5 ⊢ (((𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ((𝑥 +P 𝑧) ∈ P ∧ (𝑦 +P 𝑤) ∈ P))
11		opelxpi 4912	. . . . 5 ⊢ (((𝑥 +P 𝑧) ∈ P ∧ (𝑦 +P 𝑤) ∈ P) → ⟨(𝑥 +P 𝑧), (𝑦 +P 𝑤)⟩ ∈ (P × P))
12		enrex 9576	. . . . . 6 ⊢ ~R ∈ V
13	12	ecelqsi 7501	. . . . 5 ⊢ (⟨(𝑥 +P 𝑧), (𝑦 +P 𝑤)⟩ ∈ (P × P) → [⟨(𝑥 +P 𝑧), (𝑦 +P 𝑤)⟩] ~R ∈ ((P × P) / ~R ))
14	10, 11, 13	3syl 18	. . . 4 ⊢ (((𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → [⟨(𝑥 +P 𝑧), (𝑦 +P 𝑤)⟩] ~R ∈ ((P × P) / ~R ))
15	6, 14	eqeltrd 2583	. . 3 ⊢ (((𝑥 ∈ P ∧ 𝑦 ∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) → ([⟨𝑥, 𝑦⟩] ~R +R [⟨𝑧, 𝑤⟩] ~R ) ∈ ((P × P) / ~R ))
16	1, 3, 5, 15	2ecoptocl 7536	. 2 ⊢ ((𝐴 ∈ R ∧ 𝐵 ∈ R) → (𝐴 +R 𝐵) ∈ ((P × P) / ~R ))
17	16, 1	syl6eleqr 2594	1 ⊢ ((𝐴 ∈ R ∧ 𝐵 ∈ R) → (𝐴 +R 𝐵) ∈ R)

Syntax hints:   → wi 4   ∧ wa 378   = wceq 1468   ∈ wcel 1937  ⟨cop 4001   × cxp 4878  (class class class)co 6363  [cec 7438   / cqs 7439  Pcnp 9369   +_P cpp 9371   ~_R cer 9374  Rcnr 9375   +_R cplr 9379

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1698  ax-4 1711  ax-5 1789  ax-6 1836  ax-7 1883  ax-8 1939  ax-9 1946  ax-10 1965  ax-11 1970  ax-12 1983  ax-13 2137  ax-ext 2485  ax-sep 4558  ax-nul 4567  ax-pow 4619  ax-pr 4680  ax-un 6659  ax-inf2 8231

This theorem depends on definitions:  df-bi 192  df-or 379  df-an 380  df-3or 1022  df-3an 1023  df-tru 1471  df-ex 1693  df-nf 1697  df-sb 1829  df-eu 2357  df-mo 2358  df-clab 2492  df-cleq 2498  df-clel 2501  df-nfc 2635  df-ne 2677  df-ral 2796  df-rex 2797  df-reu 2798  df-rmo 2799  df-rab 2800  df-v 3068  df-sbc 3292  df-csb 3386  df-dif 3429  df-un 3431  df-in 3433  df-ss 3440  df-pss 3442  df-nul 3758  df-if 3909  df-pw 3980  df-sn 3996  df-pr 3998  df-tp 4000  df-op 4002  df-uni 4229  df-int 4265  df-iun 4309  df-br 4435  df-opab 4494  df-mpt 4495  df-tr 4531  df-eprel 4791  df-id 4795  df-po 4801  df-so 4802  df-fr 4839  df-we 4841  df-xp 4886  df-rel 4887  df-cnv 4888  df-co 4889  df-dm 4890  df-rn 4891  df-res 4892  df-ima 4893  df-pred 5431  df-ord 5477  df-on 5478  df-lim 5479  df-suc 5480  df-iota 5597  df-fun 5635  df-fn 5636  df-f 5637  df-f1 5638  df-fo 5639  df-f1o 5640  df-fv 5641  df-ov 6366  df-oprab 6367  df-mpt2 6368  df-om 6770  df-1st 6870  df-2nd 6871  df-wrecs 7105  df-recs 7167  df-rdg 7205  df-1o 7259  df-oadd 7263  df-omul 7264  df-er 7440  df-ec 7442  df-qs 7446  df-ni 9382  df-pli 9383  df-mi 9384  df-lti 9385  df-plpq 9418  df-mpq 9419  df-ltpq 9420  df-enq 9421  df-nq 9422  df-erq 9423  df-plq 9424  df-mq 9425  df-1nq 9426  df-rq 9427  df-ltnq 9428  df-np 9491  df-plp 9493  df-ltp 9495  df-enr 9565  df-nr 9566  df-plr 9567

This theorem is referenced by:  dmaddsr  9594  map2psrpr  9619  axaddf  9654  axmulf  9655  axaddrcl  9661  axaddass  9665  axmulass  9666  axdistr  9667