Metamath Proof Explorer


Theorem ipolubdm

Description: The domain of the LUB of the inclusion poset. (Contributed by Zhi Wang, 28-Sep-2024)

Ref Expression
Hypotheses ipolub.i I=toIncF
ipolub.f φFV
ipolub.s φSF
ipolub.u φU=lubI
ipolubdm.t φT=xF|Sx
Assertion ipolubdm φSdomUTF

Proof

Step Hyp Ref Expression
1 ipolub.i I=toIncF
2 ipolub.f φFV
3 ipolub.s φSF
4 ipolub.u φU=lubI
5 ipolubdm.t φT=xF|Sx
6 1 ipobas FVF=BaseI
7 2 6 syl φF=BaseI
8 eqidd φI=I
9 eqid I=I
10 1 2 3 9 ipolublem φtFStzFSztzySyItzFySyIztIz
11 1 ipopos IPoset
12 11 a1i φIPoset
13 7 8 4 10 12 lubeldm2d φSdomUSFtFStzFSztz
14 3 13 mpbirand φSdomUtFStzFSztz
15 5 ad2antrr φtFStzFSztzT=xF|Sx
16 intubeu tFStzFSztzt=xF|Sx
17 16 biimpa tFStzFSztzt=xF|Sx
18 17 adantll φtFStzFSztzt=xF|Sx
19 15 18 eqtr4d φtFStzFSztzT=t
20 simplr φtFStzFSztztF
21 19 20 eqeltrd φtFStzFSztzTF
22 21 ex φtFStzFSztzTF
23 simpr φTFTF
24 intubeu TFSTzFSzTzT=xF|Sx
25 24 biimparc T=xF|SxTFSTzFSzTz
26 5 25 sylan φTFSTzFSzTz
27 sseq2 t=TStST
28 sseq1 t=TtzTz
29 28 imbi2d t=TSztzSzTz
30 29 ralbidv t=TzFSztzzFSzTz
31 27 30 anbi12d t=TStzFSztzSTzFSzTz
32 22 23 26 31 rspceb2dv φtFStzFSztzTF
33 14 32 bitrd φSdomUTF