ltaddpr - Intuitionistic Logic Explorer

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

Theorem ltaddpr 7964

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 7842	. . . 4 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
2		prml 7844	. . . 4 ⊢ (⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
3	1, 2	syl 14	. . 3 ⊢ (𝐵 ∈ P → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
4	3	adantl 277	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑝 ∈ Q 𝑝 ∈ (1^st ‘𝐵))
5		prop 7842	. . . . 5 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
6		prarloc 7870	. . . . 5 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑝 ∈ Q) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
7	5, 6	sylan 283	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝑝 ∈ Q) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
8	7	ad2ant2r 513	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) → ∃𝑟 ∈ (1^st ‘𝐴)∃𝑞 ∈ (2^nd ‘𝐴)𝑞 <_Q (𝑟 +_Q 𝑝))
9		elprnqu 7849	. . . . . . . . . . 11 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
10	5, 9	sylan 283	. . . . . . . . . 10 ⊢ ((𝐴 ∈ P ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
11	10	adantlr 481	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ (2^nd ‘𝐴)) → 𝑞 ∈ Q)
12	11	ad2ant2rl 515	. . . . . . . 8 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑞 ∈ Q)
13	12	adantr 276	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ Q)
14		simplrr 542	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ (2^nd ‘𝐴))
15		simprl 535	. . . . . . . . . . . . 13 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑟 ∈ (1^st ‘𝐴))
16		simplr 533	. . . . . . . . . . . . 13 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → 𝑝 ∈ (1^st ‘𝐵))
17	15, 16	jca 306	. . . . . . . . . . . 12 ⊢ (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑝 ∈ (1^st ‘𝐵)))
18		df-iplp 7835	. . . . . . . . . . . . 13 ⊢ +_P = (𝑥 ∈ P, 𝑦 ∈ P ↦ ⟨{𝑓 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (1^st ‘𝑥) ∧ ℎ ∈ (1^st ‘𝑦) ∧ 𝑓 = (𝑔 +_Q ℎ))}, {𝑓 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (2^nd ‘𝑥) ∧ ℎ ∈ (2^nd ‘𝑦) ∧ 𝑓 = (𝑔 +_Q ℎ))}⟩)
19		addclnq 7742	. . . . . . . . . . . . 13 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑔 +_Q ℎ) ∈ Q)
20	18, 19	genpprecll 7881	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑟 ∈ (1^st ‘𝐴) ∧ 𝑝 ∈ (1^st ‘𝐵)) → (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
21	17, 20	syl5 32	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
22	21	imdistani 449	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵)) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴)))) → ((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))))
23		addclpr 7904	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) ∈ P)
24		prop 7842	. . . . . . . . . . . 12 ⊢ ((𝐴 +_P 𝐵) ∈ P → ⟨(1^st ‘(𝐴 +_P 𝐵)), (2^nd ‘(𝐴 +_P 𝐵))⟩ ∈ P)
25		prcdnql 7851	. . . . . . . . . . . 12 ⊢ ((⟨(1^st ‘(𝐴 +_P 𝐵)), (2^nd ‘(𝐴 +_P 𝐵))⟩ ∈ P ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
26	24, 25	sylan 283	. . . . . . . . . . 11 ⊢ (((𝐴 +_P 𝐵) ∈ P ∧ (𝑟 +_Q 𝑝) ∈ (1^st ‘(𝐴 +_P 𝐵))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
27	23, 26	sylan 283	. . . . . . . . . 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 404	. . . . . . . 8 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
30	29	imp 124	. . . . . . 7 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))
31		rspe 2599	. . . . . . 7 ⊢ ((𝑞 ∈ Q ∧ (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))) → ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
32	13, 14, 30, 31	syl12anc 1276	. . . . . 6 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵))))
33		ltdfpr 7873	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ (𝐴 +_P 𝐵) ∈ P) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
34	23, 33	syldan 282	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
35	34	ad3antrrr 496	. . . . . 6 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → (𝐴<_P (𝐴 +_P 𝐵) ↔ ∃𝑞 ∈ Q (𝑞 ∈ (2^nd ‘𝐴) ∧ 𝑞 ∈ (1^st ‘(𝐴 +_P 𝐵)))))
36	32, 35	mpbird 167	. . . . 5 ⊢ (((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) ∧ 𝑞 <_Q (𝑟 +_Q 𝑝)) → 𝐴<_P (𝐴 +_P 𝐵))
37	36	ex 115	. . . 4 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑝 ∈ Q ∧ 𝑝 ∈ (1^st ‘𝐵))) ∧ (𝑟 ∈ (1^st ‘𝐴) ∧ 𝑞 ∈ (2^nd ‘𝐴))) → (𝑞 <_Q (𝑟 +_Q 𝑝) → 𝐴<_P (𝐴 +_P 𝐵)))
38	37	rexlimdvva 2676	. . 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 2673	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → 𝐴<_P (𝐴 +_P 𝐵))

Colors of variables: wff set class

This proof depends on syntax axioms: → wi 4 ∧ wa 104 ↔ wb 105 ∈ wcel 2209 ∃wrex 2529 ⟨cop 3712 class class class wbr 4130 ‘cfv 5377 (class class class)co 6085 1^st c1st 6372 2^nd c2nd 6373 Qcnq 7647 +_Q cplq 7649 <_Q cltq 7652 Pcnp 7658 +_P cpp 7660 <_P cltp 7662

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-coll 4246 ax-sep 4249 ax-nul 4259 ax-pow 4311 ax-pr 4346 ax-un 4578 ax-setind 4684 ax-iinf 4735

This proof depends on definitions: df-bi 117 df-dc 847 df-3or 1010 df-3an 1011 df-tru 1405 df-fal 1408 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-ral 2533 df-rex 2534 df-reu 2535 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-pw 3690 df-sn 3715 df-pr 3716 df-op 3718 df-uni 3936 df-int 3971 df-iun 4014 df-br 4131 df-opab 4193 df-mpt 4194 df-tr 4230 df-eprel 4434 df-id 4438 df-po 4441 df-iso 4442 df-iord 4511 df-on 4513 df-suc 4516 df-iom 4738 df-xp 4780 df-rel 4781 df-cnv 4782 df-co 4783 df-dm 4784 df-rn 4785 df-res 4786 df-ima 4787 df-iota 5337 df-fun 5379 df-fn 5380 df-f 5381 df-f1 5382 df-fo 5383 df-f1o 5384 df-fv 5385 df-ov 6088 df-oprab 6089 df-mpo 6090 df-1st 6374 df-2nd 6375 df-recs 6576 df-irdg 6641 df-1o 6687 df-2o 6688 df-oadd 6691 df-omul 6692 df-er 6807 df-ec 6809 df-qs 6813 df-ni 7671 df-pli 7672 df-mi 7673 df-lti 7674 df-plpq 7711 df-mpq 7712 df-enq 7714 df-nqqs 7715 df-plqqs 7716 df-mqqs 7717 df-1nqqs 7718 df-rq 7719 df-ltnqqs 7720 df-enq0 7791 df-nq0 7792 df-0nq0 7793 df-plq0 7794 df-mq0 7795 df-inp 7833 df-iplp 7835 df-iltp 7837

This theorem is used by: ltexprlemrl 7977 ltaprlem 7985 ltaprg 7986 prplnqu 7987 ltmprr 8009 caucvgprprlemnkltj 8056 caucvgprprlemnkeqj 8057 caucvgprprlemnbj 8060 0lt1sr 8132 recexgt0sr 8140 mulgt0sr 8145 archsr 8149 prsrpos 8152 mappsrprg 8171 pitoregt0 8216

W3C validator