Metamath Proof Explorer


Theorem ist0cld

Description: The predicate "is a T_0 space", using closed sets. (Contributed by Thierry Arnoux, 16-Aug-2020)

Ref Expression
Hypotheses ist0cls.1 φB=J
ist0cls.2 φD=ClsdJ
Assertion ist0cld φJKol2JTopxByBdDxdydx=y

Proof

Step Hyp Ref Expression
1 ist0cls.1 φB=J
2 ist0cls.2 φD=ClsdJ
3 eqid J=J
4 3 ist0 JKol2JTopxJyJoJxoyox=y
5 4 simplbi JKol2JTop
6 5 adantl φJKol2JTop
7 4 baib JTopJKol2xJyJoJxoyox=y
8 7 adantl φJTopJKol2xJyJoJxoyox=y
9 1 adantr φJTopB=J
10 9 eqcomd φJTopJ=B
11 10 adantr φJTopxJJ=B
12 simp-4r φJTopxJyJoJJTop
13 uniexg JTopJV
14 difexg JVJoV
15 12 13 14 3syl φJTopxJyJoJJoV
16 3 iscld JTopdClsdJdJJdJ
17 16 adantl φJTopdClsdJdJJdJ
18 2 eleq2d φdDdClsdJ
19 18 adantr φJTopdDdClsdJ
20 simpr φJTopoJd=Jod=Jo
21 difssd φJTopoJd=JoJoJ
22 20 21 eqsstrd φJTopoJd=JodJ
23 22 r19.29an φJTopoJd=JodJ
24 simpr φJTopdJoJd=Jod=Jo
25 24 difeq2d φJTopdJoJd=JoJd=JJo
26 3 eltopss JTopoJoJ
27 26 ad5ant24 φJTopdJoJd=JooJ
28 dfss4 oJJJo=o
29 27 28 sylib φJTopdJoJd=JoJJo=o
30 simplr φJTopdJoJd=JooJ
31 29 30 eqeltrd φJTopdJoJd=JoJJoJ
32 25 31 eqeltrd φJTopdJoJd=JoJdJ
33 32 r19.29an φJTopdJoJd=JoJdJ
34 simpr φJTopdJJdJJdJ
35 simpr φJTopdJJdJo=Jdo=Jd
36 35 difeq2d φJTopdJJdJo=JdJo=JJd
37 36 eqeq2d φJTopdJJdJo=Jdd=Jod=JJd
38 simplr φJTopdJJdJdJ
39 dfss4 dJJJd=d
40 38 39 sylib φJTopdJJdJJJd=d
41 40 eqcomd φJTopdJJdJd=JJd
42 34 37 41 rspcedvd φJTopdJJdJoJd=Jo
43 33 42 impbida φJTopdJoJd=JoJdJ
44 23 43 biadanid φJTopoJd=JodJJdJ
45 17 19 44 3bitr4d φJTopdDoJd=Jo
46 45 ad2antrr φJTopxJyJdDoJd=Jo
47 simpr φJTopxJyJd=Jod=Jo
48 47 eleq2d φJTopxJyJd=JoxdxJo
49 eldif xJoxJ¬xo
50 49 baib xJxJo¬xo
51 50 ad3antlr φJTopxJyJd=JoxJo¬xo
52 48 51 bitrd φJTopxJyJd=Joxd¬xo
53 47 eleq2d φJTopxJyJd=JoydyJo
54 eldif yJoyJ¬yo
55 54 baib yJyJo¬yo
56 55 ad2antlr φJTopxJyJd=JoyJo¬yo
57 53 56 bitrd φJTopxJyJd=Joyd¬yo
58 52 57 bibi12d φJTopxJyJd=Joxdyd¬xo¬yo
59 notbi xoyo¬xo¬yo
60 58 59 bitr4di φJTopxJyJd=Joxdydxoyo
61 15 46 60 ralxfr2d φJTopxJyJdDxdydoJxoyo
62 61 bicomd φJTopxJyJoJxoyodDxdyd
63 62 imbi1d φJTopxJyJoJxoyox=ydDxdydx=y
64 11 63 raleqbidva φJTopxJyJoJxoyox=yyBdDxdydx=y
65 10 64 raleqbidva φJTopxJyJoJxoyox=yxByBdDxdydx=y
66 8 65 bitrd φJTopJKol2xByBdDxdydx=y
67 6 66 biadanid φJKol2JTopxByBdDxdydx=y