Metamath Proof Explorer


Theorem haust1

Description: A Hausdorff space is a T_1 space. (Contributed by FL, 11-Jun-2007) (Proof shortened by Mario Carneiro, 24-Aug-2015)

Ref Expression
Assertion haust1 JHausJFre

Proof

Step Hyp Ref Expression
1 eqid J=J
2 1 hausnei JHausxJyJxyzJwJxzywzw=
3 simprr1 JHausxJyJxyzJwJxzywzw=xz
4 noel ¬y
5 simprr3 JHausxJyJxyzJwJxzywzw=zw=
6 5 eleq2d JHausxJyJxyzJwJxzywzw=yzwy
7 4 6 mtbiri JHausxJyJxyzJwJxzywzw=¬yzw
8 simprr2 JHausxJyJxyzJwJxzywzw=yw
9 elin yzwyzyw
10 9 simplbi2com ywyzyzw
11 8 10 syl JHausxJyJxyzJwJxzywzw=yzyzw
12 7 11 mtod JHausxJyJxyzJwJxzywzw=¬yz
13 3 12 jca JHausxJyJxyzJwJxzywzw=xz¬yz
14 13 rexlimdvaa JHausxJyJxyzJwJxzywzw=xz¬yz
15 14 reximdva JHausxJyJxyzJwJxzywzw=zJxz¬yz
16 2 15 mpd JHausxJyJxyzJxz¬yz
17 rexanali zJxz¬yz¬zJxzyz
18 16 17 sylib JHausxJyJxy¬zJxzyz
19 18 3exp2 JHausxJyJxy¬zJxzyz
20 19 imp32 JHausxJyJxy¬zJxzyz
21 20 necon4ad JHausxJyJzJxzyzx=y
22 21 ralrimivva JHausxJyJzJxzyzx=y
23 haustop JHausJTop
24 toptopon2 JTopJTopOnJ
25 23 24 sylib JHausJTopOnJ
26 ist1-2 JTopOnJJFrexJyJzJxzyzx=y
27 25 26 syl JHausJFrexJyJzJxzyzx=y
28 22 27 mpbird JHausJFre