Theorem toslub 33590

Description: In a toset, the lowest upper bound lub, defined for partial orders is the supremum, sup(𝐴, 𝐵, < ), defined for total orders. (these are the set.mm definitions: lowest upper bound and supremum are normally synonymous). Note that those two values are also equal if such a supremum does not exist: in that case, both are equal to the empty set. (Contributed by Thierry Arnoux, 15-Feb-2018.) (Revised by Thierry Arnoux, 24-Sep-2018.)

Hypotheses

Ref	Expression
toslub.b	⊢ 𝐵 = (Base‘𝐾)
toslub.l	⊢ < = (lt‘𝐾)
toslub.1	⊢ (𝜑 → 𝐾 ∈ Toset)
toslub.2	⊢ (𝜑 → 𝐴 ⊆ 𝐵)

Assertion

Ref	Expression
toslub	⊢ (𝜑 → ((lub‘𝐾)‘𝐴) = sup(𝐴, 𝐵, < ))

Proof of Theorem toslub

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

Step	Hyp	Ref	Expression
1		toslub.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		toslub.l	. . . 4 ⊢ < = (lt‘𝐾)
3		toslub.1	. . . 4 ⊢ (𝜑 → 𝐾 ∈ Toset)
4		toslub.2	. . . 4 ⊢ (𝜑 → 𝐴 ⊆ 𝐵)
5		eqid 2763	. . . 4 ⊢ (le‘𝐾) = (le‘𝐾)
6	1, 2, 3, 4, 5	toslublem 33589	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ((∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑎 ∧ ∀𝑐 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑐 → 𝑎(le‘𝐾)𝑐)) ↔ (∀𝑏 ∈ 𝐴 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ 𝐵 (𝑏 < 𝑎 → ∃𝑑 ∈ 𝐴 𝑏 < 𝑑))))
7	6	riotabidva 7406	. 2 ⊢ (𝜑 → (℩𝑎 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑎 ∧ ∀𝑐 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑐 → 𝑎(le‘𝐾)𝑐))) = (℩𝑎 ∈ 𝐵 (∀𝑏 ∈ 𝐴 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ 𝐵 (𝑏 < 𝑎 → ∃𝑑 ∈ 𝐴 𝑏 < 𝑑))))
8		eqid 2763	. . 3 ⊢ (lub‘𝐾) = (lub‘𝐾)
9		biid 264	. . 3 ⊢ ((∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑎 ∧ ∀𝑐 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑐 → 𝑎(le‘𝐾)𝑐)) ↔ (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑎 ∧ ∀𝑐 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑐 → 𝑎(le‘𝐾)𝑐)))
10	1, 5, 8, 9, 3, 4	lubval 18543	. 2 ⊢ (𝜑 → ((lub‘𝐾)‘𝐴) = (℩𝑎 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑎 ∧ ∀𝑐 ∈ 𝐵 (∀𝑏 ∈ 𝐴 𝑏(le‘𝐾)𝑐 → 𝑎(le‘𝐾)𝑐))))
11	1, 5, 2	tosso 18606	. . . . 5 ⊢ (𝐾 ∈ Toset → (𝐾 ∈ Toset ↔ ( < Or 𝐵 ∧ ( I ↾ 𝐵) ⊆ (le‘𝐾))))
12	11	ibi 270	. . . 4 ⊢ (𝐾 ∈ Toset → ( < Or 𝐵 ∧ ( I ↾ 𝐵) ⊆ (le‘𝐾)))
13	12	simpld 500	. . 3 ⊢ (𝐾 ∈ Toset → < Or 𝐵)
14		id 23	. . . 4 ⊢ ( < Or 𝐵 → < Or 𝐵)
15	14	supval2 9460	. . 3 ⊢ ( < Or 𝐵 → sup(𝐴, 𝐵, < ) = (℩𝑎 ∈ 𝐵 (∀𝑏 ∈ 𝐴 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ 𝐵 (𝑏 < 𝑎 → ∃𝑑 ∈ 𝐴 𝑏 < 𝑑))))
16	3, 13, 15	3syl 19	. 2 ⊢ (𝜑 → sup(𝐴, 𝐵, < ) = (℩𝑎 ∈ 𝐵 (∀𝑏 ∈ 𝐴 ¬ 𝑎 < 𝑏 ∧ ∀𝑏 ∈ 𝐵 (𝑏 < 𝑎 → ∃𝑑 ∈ 𝐴 𝑏 < 𝑑))))
17	7, 10, 16	3eqtr4d 2808	1 ⊢ (𝜑 → ((lub‘𝐾)‘𝐴) = sup(𝐴, 𝐵, < ))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2146  ∀wral 3080  ∃wrex 3090   ⊆ wss 3900   class class class wbr 5106   I cid 5549   Or wor 5562   ↾ cres 5657  ‘cfv 6547  ℩crio 7386  supcsup 9445  Basecbs 17402  lecple 17450  ltcplt 18497  lubclub 18498  Tosetctos 18603

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-po 5563  df-so 5564  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6501  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-riota 7387  df-sup 9447  df-proset 18483  df-poset 18502  df-plt 18517  df-lub 18533  df-toset 18604

This theorem is used by:  xrsp1  33630