ltaddpr - Intuitionistic Logic Explorer

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

Theorem ltaddpr 6695

Description: The sum of two positive reals is greater than one of them. Proposition 9-3.5(iii) of [Gleason] p. 123. (Contributed by NM, 26-Mar-1996.) (Revised by Mario Carneiro, 12-Jun-2013.)

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

Proof of Theorem ltaddpr Dummy variables 𝑓 𝑔 ℎ 𝑥 𝑦 𝑝 𝑞 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prop 6573	. . . 4 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
2		prml 6575	. . . 4 ⊢ (⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
3	1, 2	syl 14	. . 3 ⊢ (𝐵 ∈ P → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
4	3	adantl 262	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
5		prop 6573	. . . . 5 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
6		prarloc 6601	. . . . 5 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑝 ∈ Q) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
7	5, 6	sylan 267	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝑝 ∈ Q) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
8	7	ad2ant2r 478	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
9		elprnqu 6580	. . . . . . . . . . 11 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
10	5, 9	sylan 267	. . . . . . . . . 10 ⊢ ((𝐴 ∈ P ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
11	10	adantlr 446	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
12	11	ad2ant2rl 480	. . . . . . . 8 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑞 ∈ Q)
13	12	adantr 261	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ Q)
14		simplrr 488	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ (2^nd ‘𝐴))
15		simprl 483	. . . . . . . . . . . . 13 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑟 ∈ (1^st ‘𝐴))
16		simplr 482	. . . . . . . . . . . . 13 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑝 ∈ (1^st ‘𝐵))
17	15, 16	jca 290	. . . . . . . . . . . 12 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑝 ∈ (1^st ‘𝐵)))
18		df-iplp 6566	. . . . . . . . . . . . 13 ⊢ +_P = (𝑥 ∈ P, 𝑦 ∈ P ↦ ⟨{𝑓 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (1^st ‘𝑥) ∧ ℎ ∈ (1^st ‘𝑦) ∧ 𝑓 = (𝑔 +_Q ℎ))}, {𝑓 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (2^nd ‘𝑥) ∧ ℎ ∈ (2^nd ‘𝑦) ∧ 𝑓 = (𝑔 +_Q ℎ))}⟩)
19		addclnq 6473	. . . . . . . . . . . . 13 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑔 +_Q ℎ) ∈ Q)
20	18, 19	genpprecll 6612	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑟 ∈ (1^st ‘𝐴) ∧ 𝑝 ∈ (1^st ‘𝐵)) → (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
21	17, 20	syl5 28	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
22	21	imdistani 419	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴)))) → ((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
23		addclpr 6635	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ P)
24		prop 6573	. . . . . . . . . . . 12 ⊢ ((𝐴 +_P 𝐵) ∈ P → ⟨(1^st ‘(𝐴 +_P 𝐵)), (2^nd ‘(𝐴 +_P 𝐵))⟩ ∈ P)
25		prcdnql 6582	. . . . . . . . . . . 12 ⊢ ((⟨(1^st ‘(𝐴 +_P 𝐵)), (2^nd ‘(𝐴 +_P 𝐵))⟩ ∈ P ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
26	24, 25	sylan 267	. . . . . . . . . . 11 ⊢ (((𝐴 +_P 𝐵) ∈ P ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
27	23, 26	sylan 267	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
28	22, 27	syl 14	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴)))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
29	28	anassrs 380	. . . . . . . 8 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
30	29	imp 115	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))
31		rspe 2370	. . . . . . 7 ⊢ ((𝑞 ∈ Q ∧ (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))) → ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
32	13, 14, 30, 31	syl12anc 1133	. . . . . 6 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
33		ltdfpr 6604	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ (𝐴 +_P 𝐵) ∈ P) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
34	23, 33	syldan 266	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
35	34	ad3antrrr 461	. . . . . 6 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
36	32, 35	mpbird 156	. . . . 5 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝐴<_P (𝐴 +_P 𝐵))
37	36	ex 108	. . . 4 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝐴<_P (𝐴 +_P 𝐵)))
38	37	rexlimdvva 2440	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) → (∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝) → 𝐴<_P (𝐴 +_P 𝐵)))
39	8, 38	mpd 13	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) → 𝐴<_P (𝐴 +_P 𝐵))
40	4, 39	rexlimddv 2437	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → 𝐴<_P (𝐴 +_P 𝐵))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 97 ↔ wb 98 ∈ wcel 1393 ∃wrex 2307 ⟨cop 3378 class class class wbr 3764 ‘cfv 4902 (class class class)co 5512 1^st c1st 5765 2^nd c2nd 5766 Qcnq 6378 +_Q cplq 6380 <_Q cltq 6383 Pcnp 6389 +_P cpp 6391 <_P cltp 6393

This theorem was proved from axioms: ax-1 5 ax-2 6 ax-mp 7 ax-ia1 99 ax-ia2 100 ax-ia3 101 ax-in1 544 ax-in2 545 ax-io 630 ax-5 1336 ax-7 1337 ax-gen 1338 ax-ie1 1382 ax-ie2 1383 ax-8 1395 ax-10 1396 ax-11 1397 ax-i12 1398 ax-bndl 1399 ax-4 1400 ax-13 1404 ax-14 1405 ax-17 1419 ax-i9 1423 ax-ial 1427 ax-i5r 1428 ax-ext 2022 ax-coll 3872 ax-sep 3875 ax-nul 3883 ax-pow 3927 ax-pr 3944 ax-un 4170 ax-setind 4262 ax-iinf 4311

This theorem depends on definitions: df-bi 110 df-dc 743 df-3or 886 df-3an 887 df-tru 1246 df-fal 1249 df-nf 1350 df-sb 1646 df-eu 1903 df-mo 1904 df-clab 2027 df-cleq 2033 df-clel 2036 df-nfc 2167 df-ne 2206 df-ral 2311 df-rex 2312 df-reu 2313 df-rab 2315 df-v 2559 df-sbc 2765 df-csb 2853 df-dif 2920 df-un 2922 df-in 2924 df-ss 2931 df-nul 3225 df-pw 3361 df-sn 3381 df-pr 3382 df-op 3384 df-uni 3581 df-int 3616 df-iun 3659 df-br 3765 df-opab 3819 df-mpt 3820 df-tr 3855 df-eprel 4026 df-id 4030 df-po 4033 df-iso 4034 df-iord 4103 df-on 4105 df-suc 4108 df-iom 4314 df-xp 4351 df-rel 4352 df-cnv 4353 df-co 4354 df-dm 4355 df-rn 4356 df-res 4357 df-ima 4358 df-iota 4867 df-fun 4904 df-fn 4905 df-f 4906 df-f1 4907 df-fo 4908 df-f1o 4909 df-fv 4910 df-ov 5515 df-oprab 5516 df-mpt2 5517 df-1st 5767 df-2nd 5768 df-recs 5920 df-irdg 5957 df-1o 6001 df-2o 6002 df-oadd 6005 df-omul 6006 df-er 6106 df-ec 6108 df-qs 6112 df-ni 6402 df-pli 6403 df-mi 6404 df-lti 6405 df-plpq 6442 df-mpq 6443 df-enq 6445 df-nqqs 6446 df-plqqs 6447 df-mqqs 6448 df-1nqqs 6449 df-rq 6450 df-ltnqqs 6451 df-enq0 6522 df-nq0 6523 df-0nq0 6524 df-plq0 6525 df-mq0 6526 df-inp 6564 df-iplp 6566 df-iltp 6568

This theorem is referenced by: ltexprlemrl 6708 ltaprlem 6716 ltaprg 6717 prplnqu 6718 ltmprr 6740 caucvgprprlemnkltj 6787 caucvgprprlemnkeqj 6788 caucvgprprlemnbj 6791 0lt1sr 6850 recexgt0sr 6858 mulgt0sr 6862 archsr 6866 prsrpos 6869 pitoregt0 6925

W3C validator