Theorem xrsclat 33331

Description: The extended real numbers form a complete lattice. (Contributed by Thierry Arnoux, 15-Feb-2018.)

Assertion

Ref	Expression
xrsclat	⊢ ℝ*𝑠 ∈ CLat

Proof of Theorem xrsclat

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xrstos 33330	. . 3 ⊢ ℝ*𝑠 ∈ Toset
2		tospos 18469	. . 3 ⊢ (ℝ*𝑠 ∈ Toset → ℝ*𝑠 ∈ Poset)
3	1, 2	ax-mp 5	. 2 ⊢ ℝ*𝑠 ∈ Poset
4		xrsbas 17655	. . . . . 6 ⊢ ℝ* = (Base‘ℝ*𝑠)
5		xrsle 17653	. . . . . 6 ⊢ ≤ = (le‘ℝ*𝑠)
6		eqid 2763	. . . . . 6 ⊢ (lub‘ℝ*𝑠) = (lub‘ℝ*𝑠)
7		biid 264	. . . . . 6 ⊢ ((∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
8	4, 5, 6, 7, 2	lubdm 18400	. . . . 5 ⊢ (ℝ*𝑠 ∈ Toset → dom (lub‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))})
9	1, 8	ax-mp 5	. . . 4 ⊢ dom (lub‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))}
10		rabid2 3449	. . . . 5 ⊢ (𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))} ↔ ∀𝑥 ∈ 𝒫 ℝ*∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
11		velpw 4567	. . . . . 6 ⊢ (𝑥 ∈ 𝒫 ℝ* ↔ 𝑥 ⊆ ℝ*)
12		xrltso 13161	. . . . . . . . 9 ⊢ < Or ℝ*
13	12	a1i 11	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → < Or ℝ*)
14		xrsupss 13330	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ∃𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑)))
15	13, 14	supeu 9410	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑)))
16		xrslt 33327	. . . . . . . . 9 ⊢ < = (lt‘ℝ*𝑠)
17	1	a1i 11	. . . . . . . . 9 ⊢ (𝑥 ⊆ ℝ* → ℝ*𝑠 ∈ Toset)
18		id 23	. . . . . . . . 9 ⊢ (𝑥 ⊆ ℝ* → 𝑥 ⊆ ℝ*)
19	4, 16, 17, 18, 5	toslublem 33292	. . . . . . . 8 ⊢ ((𝑥 ⊆ ℝ* ∧ 𝑎 ∈ ℝ*) → ((∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑))))
20	19	reubidva 3383	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → (∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑))))
21	15, 20	mpbird 260	. . . . . 6 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
22	11, 21	sylbi 220	. . . . 5 ⊢ (𝑥 ∈ 𝒫 ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
23	10, 22	mprgbir 3086	. . . 4 ⊢ 𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))}
24	9, 23	eqtr4i 2789	. . 3 ⊢ dom (lub‘ℝ*𝑠) = 𝒫 ℝ*
25		eqid 2763	. . . . . 6 ⊢ (glb‘ℝ*𝑠) = (glb‘ℝ*𝑠)
26		biid 264	. . . . . 6 ⊢ ((∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
27	4, 5, 25, 26, 2	glbdm 18413	. . . . 5 ⊢ (ℝ*𝑠 ∈ Toset → dom (glb‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))})
28	1, 27	ax-mp 5	. . . 4 ⊢ dom (glb‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))}
29		rabid2 3449	. . . . 5 ⊢ (𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))} ↔ ∀𝑥 ∈ 𝒫 ℝ*∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
30		cnvso 6289	. . . . . . . . . 10 ⊢ ( < Or ℝ* ↔ ◡ < Or ℝ*)
31	12, 30	mpbi 233	. . . . . . . . 9 ⊢ ◡ < Or ℝ*
32	31	a1i 11	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ◡ < Or ℝ*)
33		xrinfmss2 13332	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ∃𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑)))
34	32, 33	supeu 9410	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑)))
35	4, 16, 17, 18, 5	tosglblem 33294	. . . . . . . 8 ⊢ ((𝑥 ⊆ ℝ* ∧ 𝑎 ∈ ℝ*) → ((∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑))))
36	35	reubidva 3383	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → (∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑))))
37	34, 36	mpbird 260	. . . . . 6 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
38	11, 37	sylbi 220	. . . . 5 ⊢ (𝑥 ∈ 𝒫 ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
39	29, 38	mprgbir 3086	. . . 4 ⊢ 𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))}
40	28, 39	eqtr4i 2789	. . 3 ⊢ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*
41	24, 40	pm3.2i 475	. 2 ⊢ (dom (lub‘ℝ*𝑠) = 𝒫 ℝ* ∧ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*)
42	4, 6, 25	isclat 18551	. 2 ⊢ (ℝ*𝑠 ∈ CLat ↔ (ℝ*𝑠 ∈ Poset ∧ (dom (lub‘ℝ*𝑠) = 𝒫 ℝ* ∧ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*)))
43	3, 41, 42	mpbir2an 723	1 ⊢ ℝ*𝑠 ∈ CLat

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ∀wral 3079  ∃wrex 3089  ∃!wreu 3367  {crab 3416   ⊆ wss 3905  𝒫 cpw 4562   class class class wbr 5109   Or wor 5568  ^◡ccnv 5660  dom cdm 5661  ‘cfv 6536  ℝ^*cxr 11237   < clt 11238   ≤ cle 11239  ℝ^*_𝑠cxrs 17549  Posetcpo 18358  lubclub 18360  glbcglb 18361  Tosetctos 18465  CLatccla 18549

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172  ax-pre-sup 11173

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-nn 12229  df-2 12298  df-3 12299  df-4 12300  df-5 12301  df-6 12302  df-7 12303  df-8 12304  df-9 12305  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12858  df-fz 13531  df-struct 17202  df-slot 17237  df-ndx 17249  df-base 17265  df-plusg 17318  df-mulr 17319  df-tset 17324  df-ple 17325  df-ds 17327  df-xrs 17551  df-proset 18345  df-poset 18364  df-plt 18379  df-lub 18395  df-glb 18396  df-toset 18466  df-clat 18550

This theorem is referenced by: (None)