Theorem xrsclat 33397

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 33396	. . 3 ⊢ ℝ*𝑠 ∈ Toset
2		tospos 18498	. . 3 ⊢ (ℝ*𝑠 ∈ Toset → ℝ*𝑠 ∈ Poset)
3	1, 2	ax-mp 5	. 2 ⊢ ℝ*𝑠 ∈ Poset
4		xrsbas 17684	. . . . . 6 ⊢ ℝ* = (Base‘ℝ*𝑠)
5		xrsle 17682	. . . . . 6 ⊢ ≤ = (le‘ℝ*𝑠)
6		eqid 2765	. . . . . 6 ⊢ (lub‘ℝ*𝑠) = (lub‘ℝ*𝑠)
7		biid 264	. . . . . 6 ⊢ ((∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
8	4, 5, 6, 7, 2	lubdm 18429	. . . . 5 ⊢ (ℝ*𝑠 ∈ Toset → dom (lub‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))})
9	1, 8	ax-mp 5	. . . 4 ⊢ dom (lub‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))}
10		rabid2 3451	. . . . 5 ⊢ (𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))} ↔ ∀𝑥 ∈ 𝒫 ℝ*∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
11		velpw 4569	. . . . . 6 ⊢ (𝑥 ∈ 𝒫 ℝ* ↔ 𝑥 ⊆ ℝ*)
12		xrltso 13184	. . . . . . . . 9 ⊢ < Or ℝ*
13	12	a1i 11	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → < Or ℝ*)
14		xrsupss 13353	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ∃𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑)))
15	13, 14	supeu 9421	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑)))
16		xrslt 33393	. . . . . . . . 9 ⊢ < = (lt‘ℝ*𝑠)
17	1	a1i 11	. . . . . . . . 9 ⊢ (𝑥 ⊆ ℝ* → ℝ*𝑠 ∈ Toset)
18		id 23	. . . . . . . . 9 ⊢ (𝑥 ⊆ ℝ* → 𝑥 ⊆ ℝ*)
19	4, 16, 17, 18, 5	toslublem 33358	. . . . . . . 8 ⊢ ((𝑥 ⊆ ℝ* ∧ 𝑎 ∈ ℝ*) → ((∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑))))
20	19	reubidva 3385	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → (∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)) ↔ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏 < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏 < 𝑑))))
21	15, 20	mpbird 260	. . . . . 6 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
22	11, 21	sylbi 220	. . . . 5 ⊢ (𝑥 ∈ 𝒫 ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐)))
23	10, 22	mprgbir 3088	. . . 4 ⊢ 𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑎 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑏 ≤ 𝑐 → 𝑎 ≤ 𝑐))}
24	9, 23	eqtr4i 2791	. . 3 ⊢ dom (lub‘ℝ*𝑠) = 𝒫 ℝ*
25		eqid 2765	. . . . . 6 ⊢ (glb‘ℝ*𝑠) = (glb‘ℝ*𝑠)
26		biid 264	. . . . . 6 ⊢ ((∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
27	4, 5, 25, 26, 2	glbdm 18442	. . . . 5 ⊢ (ℝ*𝑠 ∈ Toset → dom (glb‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))})
28	1, 27	ax-mp 5	. . . 4 ⊢ dom (glb‘ℝ*𝑠) = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))}
29		rabid2 3451	. . . . 5 ⊢ (𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))} ↔ ∀𝑥 ∈ 𝒫 ℝ*∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
30		cnvso 6293	. . . . . . . . . 10 ⊢ ( < Or ℝ* ↔ ◡ < Or ℝ*)
31	12, 30	mpbi 233	. . . . . . . . 9 ⊢ ◡ < Or ℝ*
32	31	a1i 11	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ◡ < Or ℝ*)
33		xrinfmss2 13355	. . . . . . . 8 ⊢ (𝑥 ⊆ ℝ* → ∃𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑)))
34	32, 33	supeu 9421	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑)))
35	4, 16, 17, 18, 5	tosglblem 33360	. . . . . . . 8 ⊢ ((𝑥 ⊆ ℝ* ∧ 𝑎 ∈ ℝ*) → ((∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑))))
36	35	reubidva 3385	. . . . . . 7 ⊢ (𝑥 ⊆ ℝ* → (∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)) ↔ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 ¬ 𝑎◡ < 𝑏 ∧ ∀𝑏 ∈ ℝ* (𝑏◡ < 𝑎 → ∃𝑑 ∈ 𝑥 𝑏◡ < 𝑑))))
37	34, 36	mpbird 260	. . . . . 6 ⊢ (𝑥 ⊆ ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
38	11, 37	sylbi 220	. . . . 5 ⊢ (𝑥 ∈ 𝒫 ℝ* → ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎)))
39	29, 38	mprgbir 3088	. . . 4 ⊢ 𝒫 ℝ* = {𝑥 ∈ 𝒫 ℝ* ∣ ∃!𝑎 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑎 ≤ 𝑏 ∧ ∀𝑐 ∈ ℝ* (∀𝑏 ∈ 𝑥 𝑐 ≤ 𝑏 → 𝑐 ≤ 𝑎))}
40	28, 39	eqtr4i 2791	. . 3 ⊢ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*
41	24, 40	pm3.2i 476	. 2 ⊢ (dom (lub‘ℝ*𝑠) = 𝒫 ℝ* ∧ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*)
42	4, 6, 25	isclat 18580	. 2 ⊢ (ℝ*𝑠 ∈ CLat ↔ (ℝ*𝑠 ∈ Poset ∧ (dom (lub‘ℝ*𝑠) = 𝒫 ℝ* ∧ dom (glb‘ℝ*𝑠) = 𝒫 ℝ*)))
43	3, 41, 42	mpbir2an 724	1 ⊢ ℝ*𝑠 ∈ CLat

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081  ∃wrex 3091  ∃!wreu 3369  {crab 3418   ⊆ wss 3906  𝒫 cpw 4564   class class class wbr 5111   Or wor 5570  ^◡ccnv 5662  dom cdm 5663  ‘cfv 6540  ℝ^*cxr 11259   < clt 11260   ≤ cle 11261  ℝ^*_𝑠cxrs 17578  Posetcpo 18387  lubclub 18389  glbcglb 18390  Tosetctos 18494  CLatccla 18578

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194  ax-pre-sup 11195

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-2 12320  df-3 12321  df-4 12322  df-5 12323  df-6 12324  df-7 12325  df-8 12326  df-9 12327  df-n0 12522  df-z 12609  df-dec 12730  df-uz 12881  df-fz 13554  df-struct 17231  df-slot 17266  df-ndx 17278  df-base 17294  df-plusg 17347  df-mulr 17348  df-tset 17353  df-ple 17354  df-ds 17356  df-xrs 17580  df-proset 18374  df-poset 18393  df-plt 18408  df-lub 18424  df-glb 18425  df-toset 18495  df-clat 18579

This theorem is used by: (None)