Metamath Proof Explorer

Theorem hausdiag

Description: A topology is Hausdorff iff the diagonal set is closed in the topology's product with itself.EDITORIAL: very clumsy proof, can probably be shortened substantially. (Contributed by Stefan O'Rear, 25-Jan-2015) (Proof shortened by Peter Mazsa, 2-Oct-2022)

Ref Expression
Hypothesis hausdiag.x ⊢ X = ⋃ J
Assertion hausdiag ⊢ J ∈ Haus ↔ J ∈ Top ∧ I ↾ X ∈ Clsd ⁡ J × t J

Proof

Step Hyp Ref Expression
1 hausdiag.x ⊢ X = ⋃ J
2 1 ishaus ⊢ J ∈ Haus ↔ J ∈ Top ∧ ∀ a ∈ X ∀ b ∈ X a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
3 txtop ⊢ J ∈ Top ∧ J ∈ Top → J × t J ∈ Top
4 3 anidms ⊢ J ∈ Top → J × t J ∈ Top
5 idssxp ⊢ I ↾ X ⊆ X × X
6 1 1 txuni ⊢ J ∈ Top ∧ J ∈ Top → X × X = ⋃ J × t J
7 6 anidms ⊢ J ∈ Top → X × X = ⋃ J × t J
8 5 7 sseqtrid ⊢ J ∈ Top → I ↾ X ⊆ ⋃ J × t J
9 eqid ⊢ ⋃ J × t J = ⋃ J × t J
10 9 iscld2 ⊢ J × t J ∈ Top ∧ I ↾ X ⊆ ⋃ J × t J → I ↾ X ∈ Clsd ⁡ J × t J ↔ ⋃ J × t J ∖ I ↾ X ∈ J × t J
11 4 8 10 syl2anc ⊢ J ∈ Top → I ↾ X ∈ Clsd ⁡ J × t J ↔ ⋃ J × t J ∖ I ↾ X ∈ J × t J
12 eltx ⊢ J ∈ Top ∧ J ∈ Top → ⋃ J × t J ∖ I ↾ X ∈ J × t J ↔ ∀ e ∈ ⋃ J × t J ∖ I ↾ X ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
13 12 anidms ⊢ J ∈ Top → ⋃ J × t J ∖ I ↾ X ∈ J × t J ↔ ∀ e ∈ ⋃ J × t J ∖ I ↾ X ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
14 eldif ⊢ e ∈ ⋃ J × t J ∖ I ↾ X ↔ e ∈ ⋃ J × t J ∧ ¬ e ∈ I ↾ X
15 7 eqcomd ⊢ J ∈ Top → ⋃ J × t J = X × X
16 15 eleq2d ⊢ J ∈ Top → e ∈ ⋃ J × t J ↔ e ∈ X × X
17 16 anbi1d ⊢ J ∈ Top → e ∈ ⋃ J × t J ∧ ¬ e ∈ I ↾ X ↔ e ∈ X × X ∧ ¬ e ∈ I ↾ X
18 14 17 bitrid ⊢ J ∈ Top → e ∈ ⋃ J × t J ∖ I ↾ X ↔ e ∈ X × X ∧ ¬ e ∈ I ↾ X
19 18 imbi1d ⊢ J ∈ Top → e ∈ ⋃ J × t J ∖ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ e ∈ X × X ∧ ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
20 impexp ⊢ e ∈ X × X ∧ ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ e ∈ X × X → ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
21 19 20 bitrdi ⊢ J ∈ Top → e ∈ ⋃ J × t J ∖ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ e ∈ X × X → ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
22 21 ralbidv2 ⊢ J ∈ Top → ∀ e ∈ ⋃ J × t J ∖ I ↾ X ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∀ e ∈ X × X ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
23 eleq1 ⊢ e = a b → e ∈ I ↾ X ↔ a b ∈ I ↾ X
24 23 notbid ⊢ e = a b → ¬ e ∈ I ↾ X ↔ ¬ a b ∈ I ↾ X
25 eleq1 ⊢ e = a b → e ∈ c × d ↔ a b ∈ c × d
26 25 anbi1d ⊢ e = a b → e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
27 26 2rexbidv ⊢ e = a b → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
28 24 27 imbi12d ⊢ e = a b → ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ¬ a b ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
29 28 ralxp ⊢ ∀ e ∈ X × X ¬ e ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∀ a ∈ X ∀ b ∈ X ¬ a b ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
30 22 29 bitrdi ⊢ J ∈ Top → ∀ e ∈ ⋃ J × t J ∖ I ↾ X ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∀ a ∈ X ∀ b ∈ X ¬ a b ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
31 vex ⊢ b ∈ V
32 31 opelresi ⊢ a b ∈ I ↾ X ↔ a ∈ X ∧ a b ∈ I
33 ibar ⊢ a ∈ X → a b ∈ I ↔ a ∈ X ∧ a b ∈ I
34 33 adantr ⊢ a ∈ X ∧ b ∈ X → a b ∈ I ↔ a ∈ X ∧ a b ∈ I
35 df-br ⊢ a I b ↔ a b ∈ I
36 31 ideq ⊢ a I b ↔ a = b
37 35 36 bitr3i ⊢ a b ∈ I ↔ a = b
38 34 37 bitr3di ⊢ a ∈ X ∧ b ∈ X → a ∈ X ∧ a b ∈ I ↔ a = b
39 32 38 bitrid ⊢ a ∈ X ∧ b ∈ X → a b ∈ I ↾ X ↔ a = b
40 39 adantl ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X → a b ∈ I ↾ X ↔ a = b
41 40 necon3bbid ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X → ¬ a b ∈ I ↾ X ↔ a ≠ b
42 elssuni ⊢ c ∈ J → c ⊆ ⋃ J
43 elssuni ⊢ d ∈ J → d ⊆ ⋃ J
44 xpss12 ⊢ c ⊆ ⋃ J ∧ d ⊆ ⋃ J → c × d ⊆ ⋃ J × ⋃ J
45 42 43 44 syl2an ⊢ c ∈ J ∧ d ∈ J → c × d ⊆ ⋃ J × ⋃ J
46 1 1 xpeq12i ⊢ X × X = ⋃ J × ⋃ J
47 45 46 sseqtrrdi ⊢ c ∈ J ∧ d ∈ J → c × d ⊆ X × X
48 47 adantl ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ⊆ X × X
49 7 ad2antrr ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → X × X = ⋃ J × t J
50 48 49 sseqtrd ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ⊆ ⋃ J × t J
51 reldisj ⊢ c × d ⊆ ⋃ J × t J → c × d ∩ I ↾ X = ∅ ↔ c × d ⊆ ⋃ J × t J ∖ I ↾ X
52 50 51 syl ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ↾ X = ∅ ↔ c × d ⊆ ⋃ J × t J ∖ I ↾ X
53 df-res ⊢ I ↾ X = I ∩ X × V
54 53 ineq2i ⊢ c × d ∩ I ↾ X = c × d ∩ I ∩ X × V
55 inass ⊢ c × d ∩ I ∩ X × V = c × d ∩ I ∩ X × V
56 inss1 ⊢ c × d ∩ I ⊆ c × d
57 56 48 sstrid ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ⊆ X × X
58 ssv ⊢ X ⊆ V
59 xpss2 ⊢ X ⊆ V → X × X ⊆ X × V
60 58 59 ax-mp ⊢ X × X ⊆ X × V
61 57 60 sstrdi ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ⊆ X × V
62 dfss2 ⊢ c × d ∩ I ⊆ X × V ↔ c × d ∩ I ∩ X × V = c × d ∩ I
63 61 62 sylib ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ∩ X × V = c × d ∩ I
64 55 63 eqtr3id ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ∩ X × V = c × d ∩ I
65 54 64 eqtrid ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ↾ X = c × d ∩ I
66 65 eqeq1d ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ↾ X = ∅ ↔ c × d ∩ I = ∅
67 opelxp ⊢ a a ∈ c × d ↔ a ∈ c ∧ a ∈ d
68 df-br ⊢ a c × d a ↔ a a ∈ c × d
69 elin ⊢ a ∈ c ∩ d ↔ a ∈ c ∧ a ∈ d
70 67 68 69 3bitr4i ⊢ a c × d a ↔ a ∈ c ∩ d
71 70 notbii ⊢ ¬ a c × d a ↔ ¬ a ∈ c ∩ d
72 71 albii ⊢ ∀ a ¬ a c × d a ↔ ∀ a ¬ a ∈ c ∩ d
73 intirr ⊢ c × d ∩ I = ∅ ↔ ∀ a ¬ a c × d a
74 eq0 ⊢ c ∩ d = ∅ ↔ ∀ a ¬ a ∈ c ∩ d
75 72 73 74 3bitr4i ⊢ c × d ∩ I = ∅ ↔ c ∩ d = ∅
76 66 75 bitrdi ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ∩ I ↾ X = ∅ ↔ c ∩ d = ∅
77 52 76 bitr3d ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ c ∩ d = ∅
78 77 anbi2d ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → a ∈ c ∧ b ∈ d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
79 opelxp ⊢ a b ∈ c × d ↔ a ∈ c ∧ b ∈ d
80 79 anbi1i ⊢ a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ a ∈ c ∧ b ∈ d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X
81 df-3an ⊢ a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅ ↔ a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
82 78 80 81 3bitr4g ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X ∧ c ∈ J ∧ d ∈ J → a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
83 82 2rexbidva ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
84 41 83 imbi12d ⊢ J ∈ Top ∧ a ∈ X ∧ b ∈ X → ¬ a b ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
85 84 2ralbidva ⊢ J ∈ Top → ∀ a ∈ X ∀ b ∈ X ¬ a b ∈ I ↾ X → ∃ c ∈ J ∃ d ∈ J a b ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∀ a ∈ X ∀ b ∈ X a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
86 30 85 bitrd ⊢ J ∈ Top → ∀ e ∈ ⋃ J × t J ∖ I ↾ X ∃ c ∈ J ∃ d ∈ J e ∈ c × d ∧ c × d ⊆ ⋃ J × t J ∖ I ↾ X ↔ ∀ a ∈ X ∀ b ∈ X a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅
87 11 13 86 3bitrrd ⊢ J ∈ Top → ∀ a ∈ X ∀ b ∈ X a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅ ↔ I ↾ X ∈ Clsd ⁡ J × t J
88 87 pm5.32i ⊢ J ∈ Top ∧ ∀ a ∈ X ∀ b ∈ X a ≠ b → ∃ c ∈ J ∃ d ∈ J a ∈ c ∧ b ∈ d ∧ c ∩ d = ∅ ↔ J ∈ Top ∧ I ↾ X ∈ Clsd ⁡ J × t J
89 2 88 bitri ⊢ J ∈ Haus ↔ J ∈ Top ∧ I ↾ X ∈ Clsd ⁡ J × t J