addclpr - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > addclpr		GIF version

Theorem addclpr 7747

Description: Closure of addition on positive reals. First statement of Proposition 9-3.5 of [Gleason] p. 123. Combination of Lemma 11.13 and Lemma 11.16 in [BauerTaylor], p. 53. (Contributed by NM, 13-Mar-1996.)

**Assertion**
Ref	Expression
addclpr	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ P)

Proof of Theorem addclpr Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑔 ℎ 𝑞 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-iplp 7678	. . . 4 ⊢ +_P = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦 +_Q 𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦 +_Q 𝑧))}⟩)
2	1	genpelxp 7721	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ (𝒫 Q × 𝒫 Q))
3		addclnq 7585	. . . 4 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 +_Q 𝑧) ∈ Q)
4	1, 3	genpml 7727	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))
5	1, 3	genpmu 7728	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))
6	2, 4, 5	jca32 310	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝐴 +_P 𝐵) ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))))
7		ltanqg 7610	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧 +_Q 𝑥) <_Q (𝑧 +_Q 𝑦)))
8		addcomnqg 7591	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 +_Q 𝑦) = (𝑦 +_Q 𝑥))
9		addnqprl 7739	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑔 +_Q ℎ) → 𝑥 ∈ (1^st ‘(𝐴 +_P 𝐵))))
10	1, 3, 7, 8, 9	genprndl 7731	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
11		addnqpru 7740	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (2^nd ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (2^nd ‘𝐵))) ∧ 𝑥 ∈ Q) → ((𝑔 +_Q ℎ) <_Q 𝑥 → 𝑥 ∈ (2^nd ‘(𝐴 +_P 𝐵))))
12	1, 3, 7, 8, 11	genprndu 7732	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵)))))
13	10, 12	jca 306	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 +_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))))))
14	1, 3, 7, 8	genpdisj 7733	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))))
15		addlocpr 7746	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))))
16	13, 14, 15	3jca 1201	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 +_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))))) ∧ ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))) ∧ ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵))))))
17		elnp1st2nd 7686	. 2 ⊢ ((𝐴 +_P 𝐵) ∈ P ↔ (((𝐴 +_P 𝐵) ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))) ∧ ((∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 +_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))))) ∧ ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))) ∧ ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))))))
18	6, 16, 17	sylanbrc 417	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ P)

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 713 ∧ w3a 1002 ∈ wcel 2200 ∀wral 2508 ∃wrex 2509 𝒫 cpw 3650 class class class wbr 4086 × cxp 4721 ‘cfv 5324 (class class class)co 6013 1^st c1st 6296 2^nd c2nd 6297 Qcnq 7490 +_Q cplq 7492 <_Q cltq 7495 Pcnp 7501 +_P cpp 7503

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4202 ax-sep 4205 ax-nul 4213 ax-pow 4262 ax-pr 4297 ax-un 4528 ax-setind 4633 ax-iinf 4684

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-ral 2513 df-rex 2514 df-reu 2515 df-rab 2517 df-v 2802 df-sbc 3030 df-csb 3126 df-dif 3200 df-un 3202 df-in 3204 df-ss 3211 df-nul 3493 df-pw 3652 df-sn 3673 df-pr 3674 df-op 3676 df-uni 3892 df-int 3927 df-iun 3970 df-br 4087 df-opab 4149 df-mpt 4150 df-tr 4186 df-eprel 4384 df-id 4388 df-po 4391 df-iso 4392 df-iord 4461 df-on 4463 df-suc 4466 df-iom 4687 df-xp 4729 df-rel 4730 df-cnv 4731 df-co 4732 df-dm 4733 df-rn 4734 df-res 4735 df-ima 4736 df-iota 5284 df-fun 5326 df-fn 5327 df-f 5328 df-f1 5329 df-fo 5330 df-f1o 5331 df-fv 5332 df-ov 6016 df-oprab 6017 df-mpo 6018 df-1st 6298 df-2nd 6299 df-recs 6466 df-irdg 6531 df-1o 6577 df-2o 6578 df-oadd 6581 df-omul 6582 df-er 6697 df-ec 6699 df-qs 6703 df-ni 7514 df-pli 7515 df-mi 7516 df-lti 7517 df-plpq 7554 df-mpq 7555 df-enq 7557 df-nqqs 7558 df-plqqs 7559 df-mqqs 7560 df-1nqqs 7561 df-rq 7562 df-ltnqqs 7563 df-enq0 7634 df-nq0 7635 df-0nq0 7636 df-plq0 7637 df-mq0 7638 df-inp 7676 df-iplp 7678

This theorem is referenced by: addnqprlemfl 7769 addnqprlemfu 7770 addnqpr 7771 addassprg 7789 distrlem1prl 7792 distrlem1pru 7793 distrlem4prl 7794 distrlem4pru 7795 distrprg 7798 ltaddpr 7807 ltexpri 7823 addcanprleml 7824 addcanprlemu 7825 ltaprlem 7828 ltaprg 7829 prplnqu 7830 addextpr 7831 caucvgprlemcanl 7854 cauappcvgprlemladdru 7866 cauappcvgprlemladdrl 7867 cauappcvgprlemladd 7868 cauappcvgprlem1 7869 caucvgprlemladdrl 7888 caucvgprlem1 7889 caucvgprprlemnbj 7903 caucvgprprlemopu 7909 caucvgprprlemloc 7913 caucvgprprlemexbt 7916 caucvgprprlemexb 7917 caucvgprprlemaddq 7918 caucvgprprlem2 7920 enrer 7945 addcmpblnr 7949 mulcmpblnrlemg 7950 mulcmpblnr 7951 ltsrprg 7957 1sr 7961 m1r 7962 addclsr 7963 mulclsr 7964 addasssrg 7966 mulasssrg 7968 distrsrg 7969 m1p1sr 7970 m1m1sr 7971 lttrsr 7972 ltsosr 7974 0lt1sr 7975 0idsr 7977 1idsr 7978 00sr 7979 ltasrg 7980 recexgt0sr 7983 mulgt0sr 7988 aptisr 7989 mulextsr1lem 7990 mulextsr1 7991 archsr 7992 srpospr 7993 prsrcl 7994 prsradd 7996 prsrlt 7997 caucvgsrlemcau 8003 caucvgsrlemgt1 8005 mappsrprg 8014 map2psrprg 8015 pitonnlem1p1 8056 pitonnlem2 8057 pitonn 8058 pitoregt0 8059 pitore 8060 recnnre 8061 recidpirqlemcalc 8067 recidpirq 8068

W3C validator