Theorem ordtprsuni 34470

Description: Value of the order topology. (Contributed by Thierry Arnoux, 13-Sep-2018.)

Hypotheses

Ref	Expression
ordtNEW.b	⊢ 𝐵 = (Base‘𝐾)
ordtNEW.l	⊢ ≤ = ((le‘𝐾) ∩ (𝐵 × 𝐵))
ordtposval.e	⊢ 𝐸 = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥})
ordtposval.f	⊢ 𝐹 = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦})

Assertion

Ref	Expression
ordtprsuni	⊢ (𝐾 ∈ Proset → 𝐵 = ∪ ({𝐵} ∪ (𝐸 ∪ 𝐹)))

Distinct variable groups:   𝑥,𝑦, ≤   𝑥,𝐵,𝑦   𝑥,𝐾,𝑦

Allowed substitution hints:   𝐸(𝑥, 𝑦)   𝐹(𝑥, 𝑦)

Proof of Theorem ordtprsuni

Step	Hyp	Ref	Expression
1		ordtNEW.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
2		ordtNEW.l	. . . . . 6 ⊢ ≤ = ((le‘𝐾) ∩ (𝐵 × 𝐵))
3	1, 2	prsdm 34465	. . . . 5 ⊢ (𝐾 ∈ Proset → dom ≤ = 𝐵)
4	3	sneqd 4596	. . . 4 ⊢ (𝐾 ∈ Proset → {dom ≤ } = {𝐵})
5		biidd 265	. . . . . . . 8 ⊢ (𝐾 ∈ Proset → (¬ 𝑦 ≤ 𝑥 ↔ ¬ 𝑦 ≤ 𝑥))
6	3, 5	rabeqbidv 3429	. . . . . . 7 ⊢ (𝐾 ∈ Proset → {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥} = {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥})
7	3, 6	mpteq12dv 5192	. . . . . 6 ⊢ (𝐾 ∈ Proset → (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) = (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}))
8	7	rneqd 5917	. . . . 5 ⊢ (𝐾 ∈ Proset → ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}))
9		biidd 265	. . . . . . . 8 ⊢ (𝐾 ∈ Proset → (¬ 𝑥 ≤ 𝑦 ↔ ¬ 𝑥 ≤ 𝑦))
10	3, 9	rabeqbidv 3429	. . . . . . 7 ⊢ (𝐾 ∈ Proset → {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦} = {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦})
11	3, 10	mpteq12dv 5192	. . . . . 6 ⊢ (𝐾 ∈ Proset → (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}) = (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))
12	11	rneqd 5917	. . . . 5 ⊢ (𝐾 ∈ Proset → ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}) = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))
13	8, 12	uneq12d 4116	. . . 4 ⊢ (𝐾 ∈ Proset → (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦})) = (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦})))
14	4, 13	uneq12d 4116	. . 3 ⊢ (𝐾 ∈ Proset → ({dom ≤ } ∪ (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}))) = ({𝐵} ∪ (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))))
15	14	unieqd 4880	. 2 ⊢ (𝐾 ∈ Proset → ∪ ({dom ≤ } ∪ (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}))) = ∪ ({𝐵} ∪ (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))))
16		fvex 6887	. . . . . 6 ⊢ (le‘𝐾) ∈ V
17	16	inex1 5277	. . . . 5 ⊢ ((le‘𝐾) ∩ (𝐵 × 𝐵)) ∈ V
18	2, 17	eqeltri 2856	. . . 4 ⊢ ≤ ∈ V
19		eqid 2760	. . . . 5 ⊢ dom ≤ = dom ≤
20		eqid 2760	. . . . 5 ⊢ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) = ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥})
21		eqid 2760	. . . . 5 ⊢ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}) = ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦})
22	19, 20, 21	ordtuni 23455	. . . 4 ⊢ ( ≤ ∈ V → dom ≤ = ∪ ({dom ≤ } ∪ (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}))))
23	18, 22	ax-mp 5	. . 3 ⊢ dom ≤ = ∪ ({dom ≤ } ∪ (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦})))
24	3, 23	eqtr3di 2810	. 2 ⊢ (𝐾 ∈ Proset → 𝐵 = ∪ ({dom ≤ } ∪ (ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ dom ≤ ↦ {𝑦 ∈ dom ≤ ∣ ¬ 𝑥 ≤ 𝑦}))))
25		ordtposval.e	. . . . . 6 ⊢ 𝐸 = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥})
26		ordtposval.f	. . . . . 6 ⊢ 𝐹 = ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦})
27	25, 26	uneq12i 4113	. . . . 5 ⊢ (𝐸 ∪ 𝐹) = (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))
28	27	a1i 11	. . . 4 ⊢ (𝐾 ∈ Proset → (𝐸 ∪ 𝐹) = (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦})))
29	28	uneq2d 4115	. . 3 ⊢ (𝐾 ∈ Proset → ({𝐵} ∪ (𝐸 ∪ 𝐹)) = ({𝐵} ∪ (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))))
30	29	unieqd 4880	. 2 ⊢ (𝐾 ∈ Proset → ∪ ({𝐵} ∪ (𝐸 ∪ 𝐹)) = ∪ ({𝐵} ∪ (ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑦 ≤ 𝑥}) ∪ ran (𝑥 ∈ 𝐵 ↦ {𝑦 ∈ 𝐵 ∣ ¬ 𝑥 ≤ 𝑦}))))
31	15, 24, 30	3eqtr4d 2805	1 ⊢ (𝐾 ∈ Proset → 𝐵 = ∪ ({𝐵} ∪ (𝐸 ∪ 𝐹)))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   = wceq 1570   ∈ wcel 2145  {crab 3412  Vcvv 3450   ∪ cun 3897   ∩ cin 3898  {csn 4584  ∪ cuni 4867   class class class wbr 5103   ↦ cmpt 5186   × cxp 5646  dom cdm 5648  ran crn 5649  ‘cfv 6528  Basecbs 17334  lecple 17382   Proset cproset 18413

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5249  ax-nul 5260  ax-pr 5391  ax-un 7735

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3740  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-fv 6536  df-proset 18415

This theorem is used by:  ordtrest2NEW  34474