addclpr - Intuitionistic Logic Explorer

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

Theorem addclpr 7757

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 7688	. . . 4 ⊢ +_P = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦 +_Q 𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦 +_Q 𝑧))}⟩)
2	1	genpelxp 7731	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ (𝒫 Q × 𝒫 Q))
3		addclnq 7595	. . . 4 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 +_Q 𝑧) ∈ Q)
4	1, 3	genpml 7737	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))
5	1, 3	genpmu 7738	. . 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 7620	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧 +_Q 𝑥) <_Q (𝑧 +_Q 𝑦)))
8		addcomnqg 7601	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 +_Q 𝑦) = (𝑦 +_Q 𝑥))
9		addnqprl 7749	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑔 +_Q ℎ) → 𝑥 ∈ (1^st ‘(𝐴 +_P 𝐵))))
10	1, 3, 7, 8, 9	genprndl 7741	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
11		addnqpru 7750	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (2^nd ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (2^nd ‘𝐵))) ∧ 𝑥 ∈ Q) → ((𝑔 +_Q ℎ) <_Q 𝑥 → 𝑥 ∈ (2^nd ‘(𝐴 +_P 𝐵))))
12	1, 3, 7, 8, 11	genprndu 7742	. . . 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 7743	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 +_P 𝐵))))
15		addlocpr 7756	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 +_P 𝐵)))))
16	13, 14, 15	3jca 1203	. 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 7696	. 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 715 ∧ w3a 1004 ∈ wcel 2202 ∀wral 2510 ∃wrex 2511 𝒫 cpw 3652 class class class wbr 4088 × cxp 4723 ‘cfv 5326 (class class class)co 6018 1^st c1st 6301 2^nd c2nd 6302 Qcnq 7500 +_Q cplq 7502 <_Q cltq 7505 Pcnp 7511 +_P cpp 7513

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 716 ax-5 1495 ax-7 1496 ax-gen 1497 ax-ie1 1541 ax-ie2 1542 ax-8 1552 ax-10 1553 ax-11 1554 ax-i12 1555 ax-bndl 1557 ax-4 1558 ax-17 1574 ax-i9 1578 ax-ial 1582 ax-i5r 1583 ax-13 2204 ax-14 2205 ax-ext 2213 ax-coll 4204 ax-sep 4207 ax-nul 4215 ax-pow 4264 ax-pr 4299 ax-un 4530 ax-setind 4635 ax-iinf 4686

This theorem depends on definitions: df-bi 117 df-dc 842 df-3or 1005 df-3an 1006 df-tru 1400 df-fal 1403 df-nf 1509 df-sb 1811 df-eu 2082 df-mo 2083 df-clab 2218 df-cleq 2224 df-clel 2227 df-nfc 2363 df-ne 2403 df-ral 2515 df-rex 2516 df-reu 2517 df-rab 2519 df-v 2804 df-sbc 3032 df-csb 3128 df-dif 3202 df-un 3204 df-in 3206 df-ss 3213 df-nul 3495 df-pw 3654 df-sn 3675 df-pr 3676 df-op 3678 df-uni 3894 df-int 3929 df-iun 3972 df-br 4089 df-opab 4151 df-mpt 4152 df-tr 4188 df-eprel 4386 df-id 4390 df-po 4393 df-iso 4394 df-iord 4463 df-on 4465 df-suc 4468 df-iom 4689 df-xp 4731 df-rel 4732 df-cnv 4733 df-co 4734 df-dm 4735 df-rn 4736 df-res 4737 df-ima 4738 df-iota 5286 df-fun 5328 df-fn 5329 df-f 5330 df-f1 5331 df-fo 5332 df-f1o 5333 df-fv 5334 df-ov 6021 df-oprab 6022 df-mpo 6023 df-1st 6303 df-2nd 6304 df-recs 6471 df-irdg 6536 df-1o 6582 df-2o 6583 df-oadd 6586 df-omul 6587 df-er 6702 df-ec 6704 df-qs 6708 df-ni 7524 df-pli 7525 df-mi 7526 df-lti 7527 df-plpq 7564 df-mpq 7565 df-enq 7567 df-nqqs 7568 df-plqqs 7569 df-mqqs 7570 df-1nqqs 7571 df-rq 7572 df-ltnqqs 7573 df-enq0 7644 df-nq0 7645 df-0nq0 7646 df-plq0 7647 df-mq0 7648 df-inp 7686 df-iplp 7688

This theorem is referenced by: addnqprlemfl 7779 addnqprlemfu 7780 addnqpr 7781 addassprg 7799 distrlem1prl 7802 distrlem1pru 7803 distrlem4prl 7804 distrlem4pru 7805 distrprg 7808 ltaddpr 7817 ltexpri 7833 addcanprleml 7834 addcanprlemu 7835 ltaprlem 7838 ltaprg 7839 prplnqu 7840 addextpr 7841 caucvgprlemcanl 7864 cauappcvgprlemladdru 7876 cauappcvgprlemladdrl 7877 cauappcvgprlemladd 7878 cauappcvgprlem1 7879 caucvgprlemladdrl 7898 caucvgprlem1 7899 caucvgprprlemnbj 7913 caucvgprprlemopu 7919 caucvgprprlemloc 7923 caucvgprprlemexbt 7926 caucvgprprlemexb 7927 caucvgprprlemaddq 7928 caucvgprprlem2 7930 enrer 7955 addcmpblnr 7959 mulcmpblnrlemg 7960 mulcmpblnr 7961 ltsrprg 7967 1sr 7971 m1r 7972 addclsr 7973 mulclsr 7974 addasssrg 7976 mulasssrg 7978 distrsrg 7979 m1p1sr 7980 m1m1sr 7981 lttrsr 7982 ltsosr 7984 0lt1sr 7985 0idsr 7987 1idsr 7988 00sr 7989 ltasrg 7990 recexgt0sr 7993 mulgt0sr 7998 aptisr 7999 mulextsr1lem 8000 mulextsr1 8001 archsr 8002 srpospr 8003 prsrcl 8004 prsradd 8006 prsrlt 8007 caucvgsrlemcau 8013 caucvgsrlemgt1 8015 mappsrprg 8024 map2psrprg 8025 pitonnlem1p1 8066 pitonnlem2 8067 pitonn 8068 pitoregt0 8069 pitore 8070 recnnre 8071 recidpirqlemcalc 8077 recidpirq 8078

W3C validator