Metamath Proof Explorer


Theorem ipoglbdm

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

Ref Expression
Hypotheses ipolub.i I=toIncF
ipolub.f φFV
ipolub.s φSF
ipoglb.g φG=glbI
ipoglbdm.t φT=xF|xS
Assertion ipoglbdm φSdomGTF

Proof

Step Hyp Ref Expression
1 ipolub.i I=toIncF
2 ipolub.f φFV
3 ipolub.s φSF
4 ipoglb.g φG=glbI
5 ipoglbdm.t φT=xF|xS
6 1 ipobas FVF=BaseI
7 2 6 syl φF=BaseI
8 eqidd φI=I
9 eqid I=I
10 1 2 3 9 ipoglblem φwFwSzFzSzwySwIyzFySzIyzIw
11 1 ipopos IPoset
12 11 a1i φIPoset
13 7 8 4 10 12 glbeldm2d φSdomGSFwFwSzFzSzw
14 3 13 mpbirand φSdomGwFwSzFzSzw
15 5 ad2antrr φwFwSzFzSzwT=xF|xS
16 unilbeu wFwSzFzSzww=xF|xS
17 16 biimpa wFwSzFzSzww=xF|xS
18 17 adantll φwFwSzFzSzww=xF|xS
19 15 18 eqtr4d φwFwSzFzSzwT=w
20 simplr φwFwSzFzSzwwF
21 19 20 eqeltrd φwFwSzFzSzwTF
22 21 ex φwFwSzFzSzwTF
23 simpr φTFTF
24 unilbeu TFTSzFzSzTT=xF|xS
25 24 biimparc T=xF|xSTFTSzFzSzT
26 5 25 sylan φTFTSzFzSzT
27 sseq1 w=TwSTS
28 sseq2 w=TzwzT
29 28 imbi2d w=TzSzwzSzT
30 29 ralbidv w=TzFzSzwzFzSzT
31 27 30 anbi12d w=TwSzFzSzwTSzFzSzT
32 22 23 26 31 rspceb2dv φwFwSzFzSzwTF
33 14 32 bitrd φSdomGTF