Metamath Proof Explorer


Theorem ordtprsval

Description: Value of the order topology for a proset. (Contributed by Thierry Arnoux, 11-Sep-2015)

Ref Expression
Hypotheses ordtNEW.b B=BaseK
ordtNEW.l ˙=KB×B
ordtposval.e E=ranxByB|¬y˙x
ordtposval.f F=ranxByB|¬x˙y
Assertion ordtprsval KProsetordTop˙=topGenfiBEF

Proof

Step Hyp Ref Expression
1 ordtNEW.b B=BaseK
2 ordtNEW.l ˙=KB×B
3 ordtposval.e E=ranxByB|¬y˙x
4 ordtposval.f F=ranxByB|¬x˙y
5 fvex KV
6 5 inex1 KB×BV
7 2 6 eqeltri ˙V
8 eqid dom˙=dom˙
9 eqid ranxdom˙ydom˙|¬y˙x=ranxdom˙ydom˙|¬y˙x
10 eqid ranxdom˙ydom˙|¬x˙y=ranxdom˙ydom˙|¬x˙y
11 8 9 10 ordtval ˙VordTop˙=topGenfidom˙ranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y
12 7 11 ax-mp ordTop˙=topGenfidom˙ranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y
13 1 2 prsdm KProsetdom˙=B
14 13 sneqd KProsetdom˙=B
15 13 rabeqdv KProsetydom˙|¬y˙x=yB|¬y˙x
16 13 15 mpteq12dv KProsetxdom˙ydom˙|¬y˙x=xByB|¬y˙x
17 16 rneqd KProsetranxdom˙ydom˙|¬y˙x=ranxByB|¬y˙x
18 17 3 eqtr4di KProsetranxdom˙ydom˙|¬y˙x=E
19 13 rabeqdv KProsetydom˙|¬x˙y=yB|¬x˙y
20 13 19 mpteq12dv KProsetxdom˙ydom˙|¬x˙y=xByB|¬x˙y
21 20 rneqd KProsetranxdom˙ydom˙|¬x˙y=ranxByB|¬x˙y
22 21 4 eqtr4di KProsetranxdom˙ydom˙|¬x˙y=F
23 18 22 uneq12d KProsetranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y=EF
24 14 23 uneq12d KProsetdom˙ranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y=BEF
25 24 fveq2d KProsetfidom˙ranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y=fiBEF
26 25 fveq2d KProsettopGenfidom˙ranxdom˙ydom˙|¬y˙xranxdom˙ydom˙|¬x˙y=topGenfiBEF
27 12 26 eqtrid KProsetordTop˙=topGenfiBEF