MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  utop2nei Structured version   Visualization version   GIF version

Theorem utop2nei 24192
Description: For any symmetrical entourage 𝑉 and any relation 𝑀, build a neighborhood of 𝑀. First part of proposition 2 of [BourbakiTop1] p. II.4. (Contributed by Thierry Arnoux, 14-Jan-2018.)
Hypothesis
Ref Expression
utoptop.1 𝐽 = (unifTop‘𝑈)
Assertion
Ref Expression
utop2nei ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀))

Proof of Theorem utop2nei
Dummy variables 𝑟 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 utoptop.1 . . . . . . . 8 𝐽 = (unifTop‘𝑈)
2 utoptop 24176 . . . . . . . 8 (𝑈 ∈ (UnifOn‘𝑋) → (unifTop‘𝑈) ∈ Top)
31, 2eqeltrid 2838 . . . . . . 7 (𝑈 ∈ (UnifOn‘𝑋) → 𝐽 ∈ Top)
4 txtop 23511 . . . . . . 7 ((𝐽 ∈ Top ∧ 𝐽 ∈ Top) → (𝐽 ×t 𝐽) ∈ Top)
53, 3, 4syl2anc 584 . . . . . 6 (𝑈 ∈ (UnifOn‘𝑋) → (𝐽 ×t 𝐽) ∈ Top)
653ad2ant1 1133 . . . . 5 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝐽 ×t 𝐽) ∈ Top)
76adantr 480 . . . 4 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → (𝐽 ×t 𝐽) ∈ Top)
8 0nei 23070 . . . 4 ((𝐽 ×t 𝐽) ∈ Top → ∅ ∈ ((nei‘(𝐽 ×t 𝐽))‘∅))
97, 8syl 17 . . 3 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → ∅ ∈ ((nei‘(𝐽 ×t 𝐽))‘∅))
10 coeq1 5804 . . . . . . 7 (𝑀 = ∅ → (𝑀𝑉) = (∅ ∘ 𝑉))
11 co01 6218 . . . . . . 7 (∅ ∘ 𝑉) = ∅
1210, 11eqtrdi 2785 . . . . . 6 (𝑀 = ∅ → (𝑀𝑉) = ∅)
1312coeq2d 5809 . . . . 5 (𝑀 = ∅ → (𝑉 ∘ (𝑀𝑉)) = (𝑉 ∘ ∅))
14 co02 6217 . . . . 5 (𝑉 ∘ ∅) = ∅
1513, 14eqtrdi 2785 . . . 4 (𝑀 = ∅ → (𝑉 ∘ (𝑀𝑉)) = ∅)
1615adantl 481 . . 3 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → (𝑉 ∘ (𝑀𝑉)) = ∅)
17 simpr 484 . . . 4 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → 𝑀 = ∅)
1817fveq2d 6836 . . 3 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → ((nei‘(𝐽 ×t 𝐽))‘𝑀) = ((nei‘(𝐽 ×t 𝐽))‘∅))
199, 16, 183eltr4d 2849 . 2 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 = ∅) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀))
206adantr 480 . . . . . 6 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝐽 ×t 𝐽) ∈ Top)
21 simpl1 1192 . . . . . . . . . 10 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝑈 ∈ (UnifOn‘𝑋))
2221, 3syl 17 . . . . . . . . 9 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝐽 ∈ Top)
23 simpl2l 1227 . . . . . . . . . 10 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝑉𝑈)
24 simp3 1138 . . . . . . . . . . . 12 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → 𝑀 ⊆ (𝑋 × 𝑋))
2524sselda 3931 . . . . . . . . . . 11 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝑟 ∈ (𝑋 × 𝑋))
26 xp1st 7963 . . . . . . . . . . 11 (𝑟 ∈ (𝑋 × 𝑋) → (1st𝑟) ∈ 𝑋)
2725, 26syl 17 . . . . . . . . . 10 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (1st𝑟) ∈ 𝑋)
281utopsnnei 24191 . . . . . . . . . 10 ((𝑈 ∈ (UnifOn‘𝑋) ∧ 𝑉𝑈 ∧ (1st𝑟) ∈ 𝑋) → (𝑉 “ {(1st𝑟)}) ∈ ((nei‘𝐽)‘{(1st𝑟)}))
2921, 23, 27, 28syl3anc 1373 . . . . . . . . 9 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝑉 “ {(1st𝑟)}) ∈ ((nei‘𝐽)‘{(1st𝑟)}))
30 xp2nd 7964 . . . . . . . . . . 11 (𝑟 ∈ (𝑋 × 𝑋) → (2nd𝑟) ∈ 𝑋)
3125, 30syl 17 . . . . . . . . . 10 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (2nd𝑟) ∈ 𝑋)
321utopsnnei 24191 . . . . . . . . . 10 ((𝑈 ∈ (UnifOn‘𝑋) ∧ 𝑉𝑈 ∧ (2nd𝑟) ∈ 𝑋) → (𝑉 “ {(2nd𝑟)}) ∈ ((nei‘𝐽)‘{(2nd𝑟)}))
3321, 23, 31, 32syl3anc 1373 . . . . . . . . 9 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝑉 “ {(2nd𝑟)}) ∈ ((nei‘𝐽)‘{(2nd𝑟)}))
34 eqid 2734 . . . . . . . . . 10 𝐽 = 𝐽
3534, 34neitx 23549 . . . . . . . . 9 (((𝐽 ∈ Top ∧ 𝐽 ∈ Top) ∧ ((𝑉 “ {(1st𝑟)}) ∈ ((nei‘𝐽)‘{(1st𝑟)}) ∧ (𝑉 “ {(2nd𝑟)}) ∈ ((nei‘𝐽)‘{(2nd𝑟)}))) → ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∈ ((nei‘(𝐽 ×t 𝐽))‘({(1st𝑟)} × {(2nd𝑟)})))
3622, 22, 29, 33, 35syl22anc 838 . . . . . . . 8 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∈ ((nei‘(𝐽 ×t 𝐽))‘({(1st𝑟)} × {(2nd𝑟)})))
37 fvex 6845 . . . . . . . . . 10 (1st𝑟) ∈ V
38 fvex 6845 . . . . . . . . . 10 (2nd𝑟) ∈ V
3937, 38xpsn 7084 . . . . . . . . 9 ({(1st𝑟)} × {(2nd𝑟)}) = {⟨(1st𝑟), (2nd𝑟)⟩}
4039fveq2i 6835 . . . . . . . 8 ((nei‘(𝐽 ×t 𝐽))‘({(1st𝑟)} × {(2nd𝑟)})) = ((nei‘(𝐽 ×t 𝐽))‘{⟨(1st𝑟), (2nd𝑟)⟩})
4136, 40eleqtrdi 2844 . . . . . . 7 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∈ ((nei‘(𝐽 ×t 𝐽))‘{⟨(1st𝑟), (2nd𝑟)⟩}))
4224adantr 480 . . . . . . . . . . 11 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝑀 ⊆ (𝑋 × 𝑋))
43 xpss 5638 . . . . . . . . . . . . 13 (𝑋 × 𝑋) ⊆ (V × V)
44 sstr 3940 . . . . . . . . . . . . 13 ((𝑀 ⊆ (𝑋 × 𝑋) ∧ (𝑋 × 𝑋) ⊆ (V × V)) → 𝑀 ⊆ (V × V))
4543, 44mpan2 691 . . . . . . . . . . . 12 (𝑀 ⊆ (𝑋 × 𝑋) → 𝑀 ⊆ (V × V))
46 df-rel 5629 . . . . . . . . . . . 12 (Rel 𝑀𝑀 ⊆ (V × V))
4745, 46sylibr 234 . . . . . . . . . . 11 (𝑀 ⊆ (𝑋 × 𝑋) → Rel 𝑀)
4842, 47syl 17 . . . . . . . . . 10 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → Rel 𝑀)
49 1st2nd 7981 . . . . . . . . . 10 ((Rel 𝑀𝑟𝑀) → 𝑟 = ⟨(1st𝑟), (2nd𝑟)⟩)
5048, 49sylancom 588 . . . . . . . . 9 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → 𝑟 = ⟨(1st𝑟), (2nd𝑟)⟩)
5150sneqd 4590 . . . . . . . 8 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → {𝑟} = {⟨(1st𝑟), (2nd𝑟)⟩})
5251fveq2d 6836 . . . . . . 7 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → ((nei‘(𝐽 ×t 𝐽))‘{𝑟}) = ((nei‘(𝐽 ×t 𝐽))‘{⟨(1st𝑟), (2nd𝑟)⟩}))
5341, 52eleqtrrd 2837 . . . . . 6 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟}))
54 relxp 5640 . . . . . . . . . . 11 Rel ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))
5554a1i 11 . . . . . . . . . 10 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → Rel ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})))
56 1st2nd 7981 . . . . . . . . . 10 ((Rel ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
5755, 56sylancom 588 . . . . . . . . 9 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
58 simpll2 1214 . . . . . . . . . . . . 13 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (𝑉𝑈𝑉 = 𝑉))
5958simprd 495 . . . . . . . . . . . 12 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑉 = 𝑉)
60 simpll1 1213 . . . . . . . . . . . . . 14 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑈 ∈ (UnifOn‘𝑋))
6158simpld 494 . . . . . . . . . . . . . 14 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑉𝑈)
62 ustrel 24154 . . . . . . . . . . . . . 14 ((𝑈 ∈ (UnifOn‘𝑋) ∧ 𝑉𝑈) → Rel 𝑉)
6360, 61, 62syl2anc 584 . . . . . . . . . . . . 13 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → Rel 𝑉)
64 xp1st 7963 . . . . . . . . . . . . . 14 (𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) → (1st𝑧) ∈ (𝑉 “ {(1st𝑟)}))
6564adantl 481 . . . . . . . . . . . . 13 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (1st𝑧) ∈ (𝑉 “ {(1st𝑟)}))
66 elrelimasn 6043 . . . . . . . . . . . . . 14 (Rel 𝑉 → ((1st𝑧) ∈ (𝑉 “ {(1st𝑟)}) ↔ (1st𝑟)𝑉(1st𝑧)))
6766biimpa 476 . . . . . . . . . . . . 13 ((Rel 𝑉 ∧ (1st𝑧) ∈ (𝑉 “ {(1st𝑟)})) → (1st𝑟)𝑉(1st𝑧))
6863, 65, 67syl2anc 584 . . . . . . . . . . . 12 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (1st𝑟)𝑉(1st𝑧))
69 fvex 6845 . . . . . . . . . . . . . . 15 (1st𝑧) ∈ V
7037, 69brcnv 5829 . . . . . . . . . . . . . 14 ((1st𝑟)𝑉(1st𝑧) ↔ (1st𝑧)𝑉(1st𝑟))
71 breq 5098 . . . . . . . . . . . . . 14 (𝑉 = 𝑉 → ((1st𝑟)𝑉(1st𝑧) ↔ (1st𝑟)𝑉(1st𝑧)))
7270, 71bitr3id 285 . . . . . . . . . . . . 13 (𝑉 = 𝑉 → ((1st𝑧)𝑉(1st𝑟) ↔ (1st𝑟)𝑉(1st𝑧)))
7372biimpar 477 . . . . . . . . . . . 12 ((𝑉 = 𝑉 ∧ (1st𝑟)𝑉(1st𝑧)) → (1st𝑧)𝑉(1st𝑟))
7459, 68, 73syl2anc 584 . . . . . . . . . . 11 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (1st𝑧)𝑉(1st𝑟))
75 simpll3 1215 . . . . . . . . . . . 12 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑀 ⊆ (𝑋 × 𝑋))
76 simplr 768 . . . . . . . . . . . 12 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑟𝑀)
77 1st2ndbr 7984 . . . . . . . . . . . . 13 ((Rel 𝑀𝑟𝑀) → (1st𝑟)𝑀(2nd𝑟))
7847, 77sylan 580 . . . . . . . . . . . 12 ((𝑀 ⊆ (𝑋 × 𝑋) ∧ 𝑟𝑀) → (1st𝑟)𝑀(2nd𝑟))
7975, 76, 78syl2anc 584 . . . . . . . . . . 11 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (1st𝑟)𝑀(2nd𝑟))
80 xp2nd 7964 . . . . . . . . . . . . 13 (𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) → (2nd𝑧) ∈ (𝑉 “ {(2nd𝑟)}))
8180adantl 481 . . . . . . . . . . . 12 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (2nd𝑧) ∈ (𝑉 “ {(2nd𝑟)}))
82 elrelimasn 6043 . . . . . . . . . . . . 13 (Rel 𝑉 → ((2nd𝑧) ∈ (𝑉 “ {(2nd𝑟)}) ↔ (2nd𝑟)𝑉(2nd𝑧)))
8382biimpa 476 . . . . . . . . . . . 12 ((Rel 𝑉 ∧ (2nd𝑧) ∈ (𝑉 “ {(2nd𝑟)})) → (2nd𝑟)𝑉(2nd𝑧))
8463, 81, 83syl2anc 584 . . . . . . . . . . 11 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (2nd𝑟)𝑉(2nd𝑧))
8569, 38, 373pm3.2i 1340 . . . . . . . . . . . . 13 ((1st𝑧) ∈ V ∧ (2nd𝑟) ∈ V ∧ (1st𝑟) ∈ V)
86 brcogw 5815 . . . . . . . . . . . . 13 ((((1st𝑧) ∈ V ∧ (2nd𝑟) ∈ V ∧ (1st𝑟) ∈ V) ∧ ((1st𝑧)𝑉(1st𝑟) ∧ (1st𝑟)𝑀(2nd𝑟))) → (1st𝑧)(𝑀𝑉)(2nd𝑟))
8785, 86mpan 690 . . . . . . . . . . . 12 (((1st𝑧)𝑉(1st𝑟) ∧ (1st𝑟)𝑀(2nd𝑟)) → (1st𝑧)(𝑀𝑉)(2nd𝑟))
88 fvex 6845 . . . . . . . . . . . . . 14 (2nd𝑧) ∈ V
8969, 88, 383pm3.2i 1340 . . . . . . . . . . . . 13 ((1st𝑧) ∈ V ∧ (2nd𝑧) ∈ V ∧ (2nd𝑟) ∈ V)
90 brcogw 5815 . . . . . . . . . . . . 13 ((((1st𝑧) ∈ V ∧ (2nd𝑧) ∈ V ∧ (2nd𝑟) ∈ V) ∧ ((1st𝑧)(𝑀𝑉)(2nd𝑟) ∧ (2nd𝑟)𝑉(2nd𝑧))) → (1st𝑧)(𝑉 ∘ (𝑀𝑉))(2nd𝑧))
9189, 90mpan 690 . . . . . . . . . . . 12 (((1st𝑧)(𝑀𝑉)(2nd𝑟) ∧ (2nd𝑟)𝑉(2nd𝑧)) → (1st𝑧)(𝑉 ∘ (𝑀𝑉))(2nd𝑧))
9287, 91sylan 580 . . . . . . . . . . 11 ((((1st𝑧)𝑉(1st𝑟) ∧ (1st𝑟)𝑀(2nd𝑟)) ∧ (2nd𝑟)𝑉(2nd𝑧)) → (1st𝑧)(𝑉 ∘ (𝑀𝑉))(2nd𝑧))
9374, 79, 84, 92syl21anc 837 . . . . . . . . . 10 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → (1st𝑧)(𝑉 ∘ (𝑀𝑉))(2nd𝑧))
94 df-br 5097 . . . . . . . . . 10 ((1st𝑧)(𝑉 ∘ (𝑀𝑉))(2nd𝑧) ↔ ⟨(1st𝑧), (2nd𝑧)⟩ ∈ (𝑉 ∘ (𝑀𝑉)))
9593, 94sylib 218 . . . . . . . . 9 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → ⟨(1st𝑧), (2nd𝑧)⟩ ∈ (𝑉 ∘ (𝑀𝑉)))
9657, 95eqeltrd 2834 . . . . . . . 8 ((((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) ∧ 𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)}))) → 𝑧 ∈ (𝑉 ∘ (𝑀𝑉)))
9796ex 412 . . . . . . 7 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝑧 ∈ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) → 𝑧 ∈ (𝑉 ∘ (𝑀𝑉))))
9897ssrdv 3937 . . . . . 6 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ⊆ (𝑉 ∘ (𝑀𝑉)))
99 simp1 1136 . . . . . . . . . . 11 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → 𝑈 ∈ (UnifOn‘𝑋))
100 simp2l 1200 . . . . . . . . . . 11 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → 𝑉𝑈)
101 ustssxp 24147 . . . . . . . . . . 11 ((𝑈 ∈ (UnifOn‘𝑋) ∧ 𝑉𝑈) → 𝑉 ⊆ (𝑋 × 𝑋))
10299, 100, 101syl2anc 584 . . . . . . . . . 10 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → 𝑉 ⊆ (𝑋 × 𝑋))
103 coss1 5802 . . . . . . . . . 10 (𝑉 ⊆ (𝑋 × 𝑋) → (𝑉 ∘ (𝑀𝑉)) ⊆ ((𝑋 × 𝑋) ∘ (𝑀𝑉)))
104102, 103syl 17 . . . . . . . . 9 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑉 ∘ (𝑀𝑉)) ⊆ ((𝑋 × 𝑋) ∘ (𝑀𝑉)))
105 coss1 5802 . . . . . . . . . . . 12 (𝑀 ⊆ (𝑋 × 𝑋) → (𝑀𝑉) ⊆ ((𝑋 × 𝑋) ∘ 𝑉))
10624, 105syl 17 . . . . . . . . . . 11 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑀𝑉) ⊆ ((𝑋 × 𝑋) ∘ 𝑉))
107 coss2 5803 . . . . . . . . . . . . 13 (𝑉 ⊆ (𝑋 × 𝑋) → ((𝑋 × 𝑋) ∘ 𝑉) ⊆ ((𝑋 × 𝑋) ∘ (𝑋 × 𝑋)))
108 xpcoid 6246 . . . . . . . . . . . . 13 ((𝑋 × 𝑋) ∘ (𝑋 × 𝑋)) = (𝑋 × 𝑋)
109107, 108sseqtrdi 3972 . . . . . . . . . . . 12 (𝑉 ⊆ (𝑋 × 𝑋) → ((𝑋 × 𝑋) ∘ 𝑉) ⊆ (𝑋 × 𝑋))
110102, 109syl 17 . . . . . . . . . . 11 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → ((𝑋 × 𝑋) ∘ 𝑉) ⊆ (𝑋 × 𝑋))
111106, 110sstrd 3942 . . . . . . . . . 10 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑀𝑉) ⊆ (𝑋 × 𝑋))
112 coss2 5803 . . . . . . . . . . 11 ((𝑀𝑉) ⊆ (𝑋 × 𝑋) → ((𝑋 × 𝑋) ∘ (𝑀𝑉)) ⊆ ((𝑋 × 𝑋) ∘ (𝑋 × 𝑋)))
113112, 108sseqtrdi 3972 . . . . . . . . . 10 ((𝑀𝑉) ⊆ (𝑋 × 𝑋) → ((𝑋 × 𝑋) ∘ (𝑀𝑉)) ⊆ (𝑋 × 𝑋))
114111, 113syl 17 . . . . . . . . 9 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → ((𝑋 × 𝑋) ∘ (𝑀𝑉)) ⊆ (𝑋 × 𝑋))
115104, 114sstrd 3942 . . . . . . . 8 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑉 ∘ (𝑀𝑉)) ⊆ (𝑋 × 𝑋))
116 utopbas 24177 . . . . . . . . . . . 12 (𝑈 ∈ (UnifOn‘𝑋) → 𝑋 = (unifTop‘𝑈))
1171unieqi 4873 . . . . . . . . . . . 12 𝐽 = (unifTop‘𝑈)
118116, 117eqtr4di 2787 . . . . . . . . . . 11 (𝑈 ∈ (UnifOn‘𝑋) → 𝑋 = 𝐽)
119118sqxpeqd 5654 . . . . . . . . . 10 (𝑈 ∈ (UnifOn‘𝑋) → (𝑋 × 𝑋) = ( 𝐽 × 𝐽))
12034, 34txuni 23534 . . . . . . . . . . 11 ((𝐽 ∈ Top ∧ 𝐽 ∈ Top) → ( 𝐽 × 𝐽) = (𝐽 ×t 𝐽))
1213, 3, 120syl2anc 584 . . . . . . . . . 10 (𝑈 ∈ (UnifOn‘𝑋) → ( 𝐽 × 𝐽) = (𝐽 ×t 𝐽))
122119, 121eqtrd 2769 . . . . . . . . 9 (𝑈 ∈ (UnifOn‘𝑋) → (𝑋 × 𝑋) = (𝐽 ×t 𝐽))
1231223ad2ant1 1133 . . . . . . . 8 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑋 × 𝑋) = (𝐽 ×t 𝐽))
124115, 123sseqtrd 3968 . . . . . . 7 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑉 ∘ (𝑀𝑉)) ⊆ (𝐽 ×t 𝐽))
125124adantr 480 . . . . . 6 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝑉 ∘ (𝑀𝑉)) ⊆ (𝐽 ×t 𝐽))
126 eqid 2734 . . . . . . 7 (𝐽 ×t 𝐽) = (𝐽 ×t 𝐽)
127126ssnei2 23058 . . . . . 6 ((((𝐽 ×t 𝐽) ∈ Top ∧ ((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟})) ∧ (((𝑉 “ {(1st𝑟)}) × (𝑉 “ {(2nd𝑟)})) ⊆ (𝑉 ∘ (𝑀𝑉)) ∧ (𝑉 ∘ (𝑀𝑉)) ⊆ (𝐽 ×t 𝐽))) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟}))
12820, 53, 98, 125, 127syl22anc 838 . . . . 5 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑟𝑀) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟}))
129128ralrimiva 3126 . . . 4 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → ∀𝑟𝑀 (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟}))
130129adantr 480 . . 3 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → ∀𝑟𝑀 (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟}))
1316adantr 480 . . . 4 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → (𝐽 ×t 𝐽) ∈ Top)
13224, 123sseqtrd 3968 . . . . 5 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → 𝑀 (𝐽 ×t 𝐽))
133132adantr 480 . . . 4 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → 𝑀 (𝐽 ×t 𝐽))
134 simpr 484 . . . 4 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → 𝑀 ≠ ∅)
135126neips 23055 . . . 4 (((𝐽 ×t 𝐽) ∈ Top ∧ 𝑀 (𝐽 ×t 𝐽) ∧ 𝑀 ≠ ∅) → ((𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀) ↔ ∀𝑟𝑀 (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟})))
136131, 133, 134, 135syl3anc 1373 . . 3 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → ((𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀) ↔ ∀𝑟𝑀 (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘{𝑟})))
137130, 136mpbird 257 . 2 (((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) ∧ 𝑀 ≠ ∅) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀))
13819, 137pm2.61dane 3017 1 ((𝑈 ∈ (UnifOn‘𝑋) ∧ (𝑉𝑈𝑉 = 𝑉) ∧ 𝑀 ⊆ (𝑋 × 𝑋)) → (𝑉 ∘ (𝑀𝑉)) ∈ ((nei‘(𝐽 ×t 𝐽))‘𝑀))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wcel 2113  wne 2930  wral 3049  Vcvv 3438  wss 3899  c0 4283  {csn 4578  cop 4584   cuni 4861   class class class wbr 5096   × cxp 5620  ccnv 5621  cima 5625  ccom 5626  Rel wrel 5627  cfv 6490  (class class class)co 7356  1st c1st 7929  2nd c2nd 7930  Topctop 22835  neicnei 23039   ×t ctx 23502  UnifOncust 24142  unifTopcutop 24172
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-1o 8395  df-2o 8396  df-en 8882  df-fin 8885  df-fi 9312  df-topgen 17361  df-top 22836  df-topon 22853  df-bases 22888  df-nei 23040  df-tx 23504  df-ust 24143  df-utop 24173
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator