Theorem suplem1pr 10739

Description: The union of a nonempty, bounded set of positive reals is a positive real. Part of Proposition 9-3.3 of [Gleason] p. 122. (Contributed by NM, 19-May-1996.) (Revised by Mario Carneiro, 12-Jun-2013.) (New usage is discouraged.)

Assertion

Ref	Expression
suplem1pr	⊢ ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → ∪ 𝐴 ∈ P)

Distinct variable group:   𝑥,𝑦,𝐴

Proof of Theorem suplem1pr

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ltrelpr 10685	. . . . . . . . 9 ⊢ <P ⊆ (P × P)
2	1	brel 5643	. . . . . . . 8 ⊢ (𝑦<P 𝑥 → (𝑦 ∈ P ∧ 𝑥 ∈ P))
3	2	simpld 494	. . . . . . 7 ⊢ (𝑦<P 𝑥 → 𝑦 ∈ P)
4	3	ralimi 3086	. . . . . 6 ⊢ (∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → ∀𝑦 ∈ 𝐴 𝑦 ∈ P)
5		dfss3 3905	. . . . . 6 ⊢ (𝐴 ⊆ P ↔ ∀𝑦 ∈ 𝐴 𝑦 ∈ P)
6	4, 5	sylibr 233	. . . . 5 ⊢ (∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → 𝐴 ⊆ P)
7	6	rexlimivw 3210	. . . 4 ⊢ (∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → 𝐴 ⊆ P)
8	7	adantl 481	. . 3 ⊢ ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → 𝐴 ⊆ P)
9		n0 4277	. . . . 5 ⊢ (𝐴 ≠ ∅ ↔ ∃𝑧 𝑧 ∈ 𝐴)
10		ssel 3910	. . . . . . 7 ⊢ (𝐴 ⊆ P → (𝑧 ∈ 𝐴 → 𝑧 ∈ P))
11		prn0 10676	. . . . . . . . . 10 ⊢ (𝑧 ∈ P → 𝑧 ≠ ∅)
12		0pss 4375	. . . . . . . . . 10 ⊢ (∅ ⊊ 𝑧 ↔ 𝑧 ≠ ∅)
13	11, 12	sylibr 233	. . . . . . . . 9 ⊢ (𝑧 ∈ P → ∅ ⊊ 𝑧)
14		elssuni 4868	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐴 → 𝑧 ⊆ ∪ 𝐴)
15		psssstr 4037	. . . . . . . . 9 ⊢ ((∅ ⊊ 𝑧 ∧ 𝑧 ⊆ ∪ 𝐴) → ∅ ⊊ ∪ 𝐴)
16	13, 14, 15	syl2an 595	. . . . . . . 8 ⊢ ((𝑧 ∈ P ∧ 𝑧 ∈ 𝐴) → ∅ ⊊ ∪ 𝐴)
17	16	expcom 413	. . . . . . 7 ⊢ (𝑧 ∈ 𝐴 → (𝑧 ∈ P → ∅ ⊊ ∪ 𝐴))
18	10, 17	sylcom 30	. . . . . 6 ⊢ (𝐴 ⊆ P → (𝑧 ∈ 𝐴 → ∅ ⊊ ∪ 𝐴))
19	18	exlimdv 1937	. . . . 5 ⊢ (𝐴 ⊆ P → (∃𝑧 𝑧 ∈ 𝐴 → ∅ ⊊ ∪ 𝐴))
20	9, 19	syl5bi 241	. . . 4 ⊢ (𝐴 ⊆ P → (𝐴 ≠ ∅ → ∅ ⊊ ∪ 𝐴))
21		prpssnq 10677	. . . . . . 7 ⊢ (𝑥 ∈ P → 𝑥 ⊊ Q)
22	21	adantl 481	. . . . . 6 ⊢ ((𝐴 ⊆ P ∧ 𝑥 ∈ P) → 𝑥 ⊊ Q)
23		ltprord 10717	. . . . . . . . . 10 ⊢ ((𝑦 ∈ P ∧ 𝑥 ∈ P) → (𝑦<P 𝑥 ↔ 𝑦 ⊊ 𝑥))
24		pssss 4026	. . . . . . . . . 10 ⊢ (𝑦 ⊊ 𝑥 → 𝑦 ⊆ 𝑥)
25	23, 24	syl6bi 252	. . . . . . . . 9 ⊢ ((𝑦 ∈ P ∧ 𝑥 ∈ P) → (𝑦<P 𝑥 → 𝑦 ⊆ 𝑥))
26	2, 25	mpcom 38	. . . . . . . 8 ⊢ (𝑦<P 𝑥 → 𝑦 ⊆ 𝑥)
27	26	ralimi 3086	. . . . . . 7 ⊢ (∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → ∀𝑦 ∈ 𝐴 𝑦 ⊆ 𝑥)
28		unissb 4870	. . . . . . 7 ⊢ (∪ 𝐴 ⊆ 𝑥 ↔ ∀𝑦 ∈ 𝐴 𝑦 ⊆ 𝑥)
29	27, 28	sylibr 233	. . . . . 6 ⊢ (∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → ∪ 𝐴 ⊆ 𝑥)
30		sspsstr 4036	. . . . . . 7 ⊢ ((∪ 𝐴 ⊆ 𝑥 ∧ 𝑥 ⊊ Q) → ∪ 𝐴 ⊊ Q)
31	30	expcom 413	. . . . . 6 ⊢ (𝑥 ⊊ Q → (∪ 𝐴 ⊆ 𝑥 → ∪ 𝐴 ⊊ Q))
32	22, 29, 31	syl2im 40	. . . . 5 ⊢ ((𝐴 ⊆ P ∧ 𝑥 ∈ P) → (∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → ∪ 𝐴 ⊊ Q))
33	32	rexlimdva 3212	. . . 4 ⊢ (𝐴 ⊆ P → (∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥 → ∪ 𝐴 ⊊ Q))
34	20, 33	anim12d 608	. . 3 ⊢ (𝐴 ⊆ P → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → (∅ ⊊ ∪ 𝐴 ∧ ∪ 𝐴 ⊊ Q)))
35	8, 34	mpcom 38	. 2 ⊢ ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → (∅ ⊊ ∪ 𝐴 ∧ ∪ 𝐴 ⊊ Q))
36		prcdnq 10680	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ P ∧ 𝑥 ∈ 𝑧) → (𝑦 <Q 𝑥 → 𝑦 ∈ 𝑧))
37	36	ex 412	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ P → (𝑥 ∈ 𝑧 → (𝑦 <Q 𝑥 → 𝑦 ∈ 𝑧)))
38	37	com3r 87	. . . . . . . . . . 11 ⊢ (𝑦 <Q 𝑥 → (𝑧 ∈ P → (𝑥 ∈ 𝑧 → 𝑦 ∈ 𝑧)))
39	10, 38	sylan9 507	. . . . . . . . . 10 ⊢ ((𝐴 ⊆ P ∧ 𝑦 <Q 𝑥) → (𝑧 ∈ 𝐴 → (𝑥 ∈ 𝑧 → 𝑦 ∈ 𝑧)))
40	39	reximdvai 3199	. . . . . . . . 9 ⊢ ((𝐴 ⊆ P ∧ 𝑦 <Q 𝑥) → (∃𝑧 ∈ 𝐴 𝑥 ∈ 𝑧 → ∃𝑧 ∈ 𝐴 𝑦 ∈ 𝑧))
41		eluni2 4840	. . . . . . . . 9 ⊢ (𝑥 ∈ ∪ 𝐴 ↔ ∃𝑧 ∈ 𝐴 𝑥 ∈ 𝑧)
42		eluni2 4840	. . . . . . . . 9 ⊢ (𝑦 ∈ ∪ 𝐴 ↔ ∃𝑧 ∈ 𝐴 𝑦 ∈ 𝑧)
43	40, 41, 42	3imtr4g 295	. . . . . . . 8 ⊢ ((𝐴 ⊆ P ∧ 𝑦 <Q 𝑥) → (𝑥 ∈ ∪ 𝐴 → 𝑦 ∈ ∪ 𝐴))
44	43	ex 412	. . . . . . 7 ⊢ (𝐴 ⊆ P → (𝑦 <Q 𝑥 → (𝑥 ∈ ∪ 𝐴 → 𝑦 ∈ ∪ 𝐴)))
45	44	com23 86	. . . . . 6 ⊢ (𝐴 ⊆ P → (𝑥 ∈ ∪ 𝐴 → (𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴)))
46	45	alrimdv 1933	. . . . 5 ⊢ (𝐴 ⊆ P → (𝑥 ∈ ∪ 𝐴 → ∀𝑦(𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴)))
47		eluni 4839	. . . . . 6 ⊢ (𝑥 ∈ ∪ 𝐴 ↔ ∃𝑧(𝑥 ∈ 𝑧 ∧ 𝑧 ∈ 𝐴))
48		prnmax 10682	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ P ∧ 𝑥 ∈ 𝑧) → ∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦)
49	48	ex 412	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ P → (𝑥 ∈ 𝑧 → ∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦))
50	10, 49	syl6 35	. . . . . . . . . . 11 ⊢ (𝐴 ⊆ P → (𝑧 ∈ 𝐴 → (𝑥 ∈ 𝑧 → ∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦)))
51	50	com23 86	. . . . . . . . . 10 ⊢ (𝐴 ⊆ P → (𝑥 ∈ 𝑧 → (𝑧 ∈ 𝐴 → ∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦)))
52	51	imp 406	. . . . . . . . 9 ⊢ ((𝐴 ⊆ P ∧ 𝑥 ∈ 𝑧) → (𝑧 ∈ 𝐴 → ∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦))
53		ssrexv 3984	. . . . . . . . . 10 ⊢ (𝑧 ⊆ ∪ 𝐴 → (∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦 → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
54	14, 53	syl 17	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐴 → (∃𝑦 ∈ 𝑧 𝑥 <Q 𝑦 → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
55	52, 54	sylcom 30	. . . . . . . 8 ⊢ ((𝐴 ⊆ P ∧ 𝑥 ∈ 𝑧) → (𝑧 ∈ 𝐴 → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
56	55	expimpd 453	. . . . . . 7 ⊢ (𝐴 ⊆ P → ((𝑥 ∈ 𝑧 ∧ 𝑧 ∈ 𝐴) → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
57	56	exlimdv 1937	. . . . . 6 ⊢ (𝐴 ⊆ P → (∃𝑧(𝑥 ∈ 𝑧 ∧ 𝑧 ∈ 𝐴) → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
58	47, 57	syl5bi 241	. . . . 5 ⊢ (𝐴 ⊆ P → (𝑥 ∈ ∪ 𝐴 → ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
59	46, 58	jcad 512	. . . 4 ⊢ (𝐴 ⊆ P → (𝑥 ∈ ∪ 𝐴 → (∀𝑦(𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴) ∧ ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦)))
60	59	ralrimiv 3106	. . 3 ⊢ (𝐴 ⊆ P → ∀𝑥 ∈ ∪ 𝐴(∀𝑦(𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴) ∧ ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
61	8, 60	syl 17	. 2 ⊢ ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → ∀𝑥 ∈ ∪ 𝐴(∀𝑦(𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴) ∧ ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦))
62		elnp 10674	. 2 ⊢ (∪ 𝐴 ∈ P ↔ ((∅ ⊊ ∪ 𝐴 ∧ ∪ 𝐴 ⊊ Q) ∧ ∀𝑥 ∈ ∪ 𝐴(∀𝑦(𝑦 <Q 𝑥 → 𝑦 ∈ ∪ 𝐴) ∧ ∃𝑦 ∈ ∪ 𝐴𝑥 <Q 𝑦)))
63	35, 61, 62	sylanbrc 582	1 ⊢ ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ P ∀𝑦 ∈ 𝐴 𝑦<P 𝑥) → ∪ 𝐴 ∈ P)

Syntax hints:   → wi 4   ∧ wa 395  ∀wal 1537  ∃wex 1783   ∈ wcel 2108   ≠ wne 2942  ∀wral 3063  ∃wrex 3064   ⊆ wss 3883   ⊊ wpss 3884  ∅c0 4253  ∪ cuni 4836   class class class wbr 5070  Qcnq 10539   <_Q cltq 10545  Pcnp 10546  <_P cltp 10550

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-inf2 9329

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-sb 2069  df-clab 2716  df-cleq 2730  df-clel 2817  df-ne 2943  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-br 5071  df-opab 5133  df-tr 5188  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-om 7688  df-ni 10559  df-nq 10599  df-ltnq 10605  df-np 10668  df-ltp 10672

This theorem is referenced by:  supexpr  10741