Metamath Proof Explorer


Theorem ordtopn1

Description: An upward ray ( P , +oo ) is open. (Contributed by Mario Carneiro, 3-Sep-2015)

Ref Expression
Hypothesis ordttopon.3 X=domR
Assertion ordtopn1 RVPXxX|¬xRPordTopR

Proof

Step Hyp Ref Expression
1 ordttopon.3 X=domR
2 eqid ranyXxX|¬xRy=ranyXxX|¬xRy
3 eqid ranyXxX|¬yRx=ranyXxX|¬yRx
4 1 2 3 ordtuni RVX=XranyXxX|¬xRyranyXxX|¬yRx
5 4 adantr RVPXX=XranyXxX|¬xRyranyXxX|¬yRx
6 dmexg RVdomRV
7 1 6 eqeltrid RVXV
8 7 adantr RVPXXV
9 5 8 eqeltrrd RVPXXranyXxX|¬xRyranyXxX|¬yRxV
10 uniexb XranyXxX|¬xRyranyXxX|¬yRxVXranyXxX|¬xRyranyXxX|¬yRxV
11 9 10 sylibr RVPXXranyXxX|¬xRyranyXxX|¬yRxV
12 ssfii XranyXxX|¬xRyranyXxX|¬yRxVXranyXxX|¬xRyranyXxX|¬yRxfiXranyXxX|¬xRyranyXxX|¬yRx
13 11 12 syl RVPXXranyXxX|¬xRyranyXxX|¬yRxfiXranyXxX|¬xRyranyXxX|¬yRx
14 fibas fiXranyXxX|¬xRyranyXxX|¬yRxTopBases
15 bastg fiXranyXxX|¬xRyranyXxX|¬yRxTopBasesfiXranyXxX|¬xRyranyXxX|¬yRxtopGenfiXranyXxX|¬xRyranyXxX|¬yRx
16 14 15 ax-mp fiXranyXxX|¬xRyranyXxX|¬yRxtopGenfiXranyXxX|¬xRyranyXxX|¬yRx
17 13 16 sstrdi RVPXXranyXxX|¬xRyranyXxX|¬yRxtopGenfiXranyXxX|¬xRyranyXxX|¬yRx
18 1 2 3 ordtval RVordTopR=topGenfiXranyXxX|¬xRyranyXxX|¬yRx
19 18 adantr RVPXordTopR=topGenfiXranyXxX|¬xRyranyXxX|¬yRx
20 17 19 sseqtrrd RVPXXranyXxX|¬xRyranyXxX|¬yRxordTopR
21 ssun2 ranyXxX|¬xRyranyXxX|¬yRxXranyXxX|¬xRyranyXxX|¬yRx
22 ssun1 ranyXxX|¬xRyranyXxX|¬xRyranyXxX|¬yRx
23 simpr RVPXPX
24 eqidd RVPXxX|¬xRP=xX|¬xRP
25 breq2 y=PxRyxRP
26 25 notbid y=P¬xRy¬xRP
27 26 rabbidv y=PxX|¬xRy=xX|¬xRP
28 27 rspceeqv PXxX|¬xRP=xX|¬xRPyXxX|¬xRP=xX|¬xRy
29 23 24 28 syl2anc RVPXyXxX|¬xRP=xX|¬xRy
30 rabexg XVxX|¬xRPV
31 eqid yXxX|¬xRy=yXxX|¬xRy
32 31 elrnmpt xX|¬xRPVxX|¬xRPranyXxX|¬xRyyXxX|¬xRP=xX|¬xRy
33 8 30 32 3syl RVPXxX|¬xRPranyXxX|¬xRyyXxX|¬xRP=xX|¬xRy
34 29 33 mpbird RVPXxX|¬xRPranyXxX|¬xRy
35 22 34 sselid RVPXxX|¬xRPranyXxX|¬xRyranyXxX|¬yRx
36 21 35 sselid RVPXxX|¬xRPXranyXxX|¬xRyranyXxX|¬yRx
37 20 36 sseldd RVPXxX|¬xRPordTopR