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

Theorem xkoinjcn 22297
Description: Continuity of "injection", i.e. currying, as a function on continuous function spaces. (Contributed by Mario Carneiro, 23-Mar-2015.)
Hypothesis
Ref Expression
xkoinjcn.3 𝐹 = (𝑥𝑋 ↦ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
Assertion
Ref Expression
xkoinjcn ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹 ∈ (𝑅 Cn ((𝑆 ×t 𝑅) ↑ko 𝑆)))
Distinct variable groups:   𝑥,𝑦,𝑅   𝑥,𝑆,𝑦   𝑥,𝑌,𝑦   𝑥,𝑋,𝑦
Allowed substitution hints:   𝐹(𝑥,𝑦)

Proof of Theorem xkoinjcn
Dummy variables 𝑓 𝑘 𝑟 𝑣 𝑤 𝑧 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simplr 767 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑆 ∈ (TopOn‘𝑌))
21cnmptid 22271 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑦) ∈ (𝑆 Cn 𝑆))
3 simpll 765 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑅 ∈ (TopOn‘𝑋))
4 simpr 487 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑥𝑋)
51, 3, 4cnmptc 22272 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑥) ∈ (𝑆 Cn 𝑅))
61, 2, 5cnmpt1t 22275 . . 3 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
7 xkoinjcn.3 . . 3 𝐹 = (𝑥𝑋 ↦ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
86, 7fmptd 6880 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)))
9 eqid 2823 . . . . . 6 𝑆 = 𝑆
10 eqid 2823 . . . . . 6 {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} = {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}
11 eqid 2823 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})
129, 10, 11xkobval 22196 . . . . 5 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑧 ∣ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})}
1312abeq2i 2950 . . . 4 (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ↔ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
14 simpll 765 . . . . . . . . . . . 12 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → (𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)))
1514, 6sylan 582 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
16 imaeq1 5926 . . . . . . . . . . . . 13 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → (𝑓𝑘) = ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘))
1716sseq1d 4000 . . . . . . . . . . . 12 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → ((𝑓𝑘) ⊆ 𝑣 ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1817elrab3 3683 . . . . . . . . . . 11 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1915, 18syl 17 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
20 funmpt 6395 . . . . . . . . . . 11 Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
21 simplrl 775 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 ∈ 𝒫 𝑆)
2221elpwid 4552 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 𝑆)
2314simprd 498 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑆 ∈ (TopOn‘𝑌))
24 toponuni 21524 . . . . . . . . . . . . . . 15 (𝑆 ∈ (TopOn‘𝑌) → 𝑌 = 𝑆)
2523, 24syl 17 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑌 = 𝑆)
2622, 25sseqtrrd 4010 . . . . . . . . . . . . 13 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘𝑌)
2726adantr 483 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘𝑌)
28 dmmptg 6098 . . . . . . . . . . . . 13 (∀𝑦𝑌𝑦, 𝑥⟩ ∈ V → dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌)
29 opex 5358 . . . . . . . . . . . . . 14 𝑦, 𝑥⟩ ∈ V
3029a1i 11 . . . . . . . . . . . . 13 (𝑦𝑌 → ⟨𝑦, 𝑥⟩ ∈ V)
3128, 30mprg 3154 . . . . . . . . . . . 12 dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌
3227, 31sseqtrrdi 4020 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
33 funimass4 6732 . . . . . . . . . . 11 ((Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∧ 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3420, 32, 33sylancr 589 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3527sselda 3969 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → 𝑧𝑌)
36 opeq1 4805 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧 → ⟨𝑦, 𝑥⟩ = ⟨𝑧, 𝑥⟩)
37 eqid 2823 . . . . . . . . . . . . . . . 16 (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
38 opex 5358 . . . . . . . . . . . . . . . 16 𝑧, 𝑥⟩ ∈ V
3936, 37, 38fvmpt 6770 . . . . . . . . . . . . . . 15 (𝑧𝑌 → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4035, 39syl 17 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4140eleq1d 2899 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
42 vex 3499 . . . . . . . . . . . . . 14 𝑥 ∈ V
43 opeq2 4806 . . . . . . . . . . . . . . 15 (𝑤 = 𝑥 → ⟨𝑧, 𝑤⟩ = ⟨𝑧, 𝑥⟩)
4443eleq1d 2899 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
4542, 44ralsn 4621 . . . . . . . . . . . . 13 (∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣)
4641, 45syl6bbr 291 . . . . . . . . . . . 12 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
4746ralbidva 3198 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
48 dfss3 3958 . . . . . . . . . . . 12 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣)
49 eleq1 2902 . . . . . . . . . . . . 13 (𝑡 = ⟨𝑧, 𝑤⟩ → (𝑡𝑣 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑣))
5049ralxp 5714 . . . . . . . . . . . 12 (∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5148, 50bitri 277 . . . . . . . . . . 11 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5247, 51syl6bbr 291 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5319, 34, 523bitrd 307 . . . . . . . . 9 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5453rabbidva 3480 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} = {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})
55 sneq 4579 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → {𝑥} = {𝑤})
5655xpeq2d 5587 . . . . . . . . . . . . 13 (𝑥 = 𝑤 → (𝑘 × {𝑥}) = (𝑘 × {𝑤}))
5756sseq1d 4000 . . . . . . . . . . . 12 (𝑥 = 𝑤 → ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × {𝑤}) ⊆ 𝑣))
5857elrab 3682 . . . . . . . . . . 11 (𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣))
59 eqid 2823 . . . . . . . . . . . . 13 (𝑆t 𝑘) = (𝑆t 𝑘)
60 eqid 2823 . . . . . . . . . . . . 13 𝑅 = 𝑅
61 simplr 767 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ Comp)
62 simpll 765 . . . . . . . . . . . . . . 15 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → 𝑅 ∈ (TopOn‘𝑋))
6362ad2antrr 724 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ (TopOn‘𝑋))
64 topontop 21523 . . . . . . . . . . . . . 14 (𝑅 ∈ (TopOn‘𝑋) → 𝑅 ∈ Top)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ Top)
66 topontop 21523 . . . . . . . . . . . . . . . . . 18 (𝑆 ∈ (TopOn‘𝑌) → 𝑆 ∈ Top)
6766adantl 484 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑆 ∈ Top)
6864adantr 483 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ Top)
69 txtop 22179 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ Top ∧ 𝑅 ∈ Top) → (𝑆 ×t 𝑅) ∈ Top)
7067, 68, 69syl2anc 586 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑆 ×t 𝑅) ∈ Top)
7170ad3antrrr 728 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆 ×t 𝑅) ∈ Top)
72 vex 3499 . . . . . . . . . . . . . . . 16 𝑘 ∈ V
73 toponmax 21536 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ (TopOn‘𝑋) → 𝑋𝑅)
7463, 73syl 17 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋𝑅)
75 xpexg 7475 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ V ∧ 𝑋𝑅) → (𝑘 × 𝑋) ∈ V)
7672, 74, 75sylancr 589 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × 𝑋) ∈ V)
77 simprr 771 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → 𝑣 ∈ (𝑆 ×t 𝑅))
7877ad2antrr 724 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑣 ∈ (𝑆 ×t 𝑅))
79 elrestr 16704 . . . . . . . . . . . . . . 15 (((𝑆 ×t 𝑅) ∈ Top ∧ (𝑘 × 𝑋) ∈ V ∧ 𝑣 ∈ (𝑆 ×t 𝑅)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)))
8071, 76, 78, 79syl3anc 1367 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)))
8167ad3antrrr 728 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑆 ∈ Top)
8272a1i 11 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 ∈ V)
83 txrest 22241 . . . . . . . . . . . . . . . 16 (((𝑆 ∈ Top ∧ 𝑅 ∈ Top) ∧ (𝑘 ∈ V ∧ 𝑋𝑅)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t (𝑅t 𝑋)))
8481, 65, 82, 74, 83syl22anc 836 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t (𝑅t 𝑋)))
85 toponuni 21524 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ (TopOn‘𝑋) → 𝑋 = 𝑅)
8663, 85syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋 = 𝑅)
8786oveq2d 7174 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = (𝑅t 𝑅))
8860restid 16709 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ (TopOn‘𝑋) → (𝑅t 𝑅) = 𝑅)
8963, 88syl 17 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑅) = 𝑅)
9087, 89eqtrd 2858 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = 𝑅)
9190oveq2d 7174 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆t 𝑘) ×t (𝑅t 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9284, 91eqtrd 2858 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9380, 92eleqtrd 2917 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆t 𝑘) ×t 𝑅))
9423adantr 483 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑆 ∈ (TopOn‘𝑌))
9526adantr 483 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘𝑌)
96 resttopon 21771 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ (TopOn‘𝑌) ∧ 𝑘𝑌) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
9794, 95, 96syl2anc 586 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
98 toponuni 21524 . . . . . . . . . . . . . . . 16 ((𝑆t 𝑘) ∈ (TopOn‘𝑘) → 𝑘 = (𝑆t 𝑘))
9997, 98syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 = (𝑆t 𝑘))
10099xpeq1d 5586 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) = ( (𝑆t 𝑘) × {𝑤}))
101 simprr 771 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ 𝑣)
102 simprl 769 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤𝑋)
103102snssd 4744 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → {𝑤} ⊆ 𝑋)
104 xpss2 5577 . . . . . . . . . . . . . . . 16 ({𝑤} ⊆ 𝑋 → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
105103, 104syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
106101, 105ssind 4211 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
107100, 106eqsstrrd 4008 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ( (𝑆t 𝑘) × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
108102, 86eleqtrd 2917 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤 𝑅)
10959, 60, 61, 65, 93, 107, 108txtube 22250 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
110 toponss 21537 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑟𝑅) → 𝑟𝑋)
11163, 110sylan 582 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑟𝑋)
112 ssrab 4051 . . . . . . . . . . . . . . . . 17 (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑟𝑋 ∧ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
113112baib 538 . . . . . . . . . . . . . . . 16 (𝑟𝑋 → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
114111, 113syl 17 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
115 xpss2 5577 . . . . . . . . . . . . . . . . . 18 (𝑟𝑋 → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
116111, 115syl 17 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
117116biantrud 534 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))))
118 iunid 4986 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑟 {𝑥} = 𝑟
119118xpeq2i 5584 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = (𝑘 × 𝑟)
120 xpiundi 5624 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = 𝑥𝑟 (𝑘 × {𝑥})
121119, 120eqtr3i 2848 . . . . . . . . . . . . . . . . . 18 (𝑘 × 𝑟) = 𝑥𝑟 (𝑘 × {𝑥})
122121sseq1i 3997 . . . . . . . . . . . . . . . . 17 ((𝑘 × 𝑟) ⊆ 𝑣 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
123 iunss 4971 . . . . . . . . . . . . . . . . 17 ( 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
124122, 123bitri 277 . . . . . . . . . . . . . . . 16 ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
125 ssin 4209 . . . . . . . . . . . . . . . 16 (((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋)) ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
126117, 124, 1253bitr3g 315 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
12799adantr 483 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑘 = (𝑆t 𝑘))
128127xpeq1d 5586 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) = ( (𝑆t 𝑘) × 𝑟))
129128sseq1d 4000 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)) ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
130114, 126, 1293bitrd 307 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
131130anbi2d 630 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) ↔ (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))))
132131rexbidva 3298 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) ↔ ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))))
133109, 132mpbird 259 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
13458, 133sylan2b 595 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) → ∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
135134ralrimiva 3184 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
136 eltop2 21585 . . . . . . . . . 10 (𝑅 ∈ Top → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
13714, 68, 1363syl 18 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
138135, 137mpbird 259 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅)
13954, 138eqeltrd 2915 . . . . . . 7 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅)
140 imaeq2 5927 . . . . . . . . 9 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
1417mptpreima 6094 . . . . . . . . 9 (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}}
142140, 141syl6eq 2874 . . . . . . . 8 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}})
143142eleq1d 2899 . . . . . . 7 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → ((𝐹𝑧) ∈ 𝑅 ↔ {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅))
144139, 143syl5ibrcom 249 . . . . . 6 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) ∈ 𝑅))
145144expimpd 456 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → (((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
146145rexlimdvva 3296 . . . 4 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
14713, 146syl5bi 244 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
148147ralrimiv 3183 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)
149 simpl 485 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ (TopOn‘𝑋))
150 ovex 7191 . . . . . 6 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
151150pwex 5283 . . . . 5 𝒫 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
1529, 10, 11xkotf 22195 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}):({𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} × (𝑆 ×t 𝑅))⟶𝒫 (𝑆 Cn (𝑆 ×t 𝑅))
153 frn 6522 . . . . . 6 ((𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}):({𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} × (𝑆 ×t 𝑅))⟶𝒫 (𝑆 Cn (𝑆 ×t 𝑅)) → ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ⊆ 𝒫 (𝑆 Cn (𝑆 ×t 𝑅)))
154152, 153ax-mp 5 . . . . 5 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ⊆ 𝒫 (𝑆 Cn (𝑆 ×t 𝑅))
155151, 154ssexi 5228 . . . 4 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V
156155a1i 11 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V)
1579, 10, 11xkoval 22197 . . . 4 ((𝑆 ∈ Top ∧ (𝑆 ×t 𝑅) ∈ Top) → ((𝑆 ×t 𝑅) ↑ko 𝑆) = (topGen‘(fi‘ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))))
15867, 70, 157syl2anc 586 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ((𝑆 ×t 𝑅) ↑ko 𝑆) = (topGen‘(fi‘ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))))
159 eqid 2823 . . . . 5 ((𝑆 ×t 𝑅) ↑ko 𝑆) = ((𝑆 ×t 𝑅) ↑ko 𝑆)
160159xkotopon 22210 . . . 4 ((𝑆 ∈ Top ∧ (𝑆 ×t 𝑅) ∈ Top) → ((𝑆 ×t 𝑅) ↑ko 𝑆) ∈ (TopOn‘(𝑆 Cn (𝑆 ×t 𝑅))))
16167, 70, 160syl2anc 586 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ((𝑆 ×t 𝑅) ↑ko 𝑆) ∈ (TopOn‘(𝑆 Cn (𝑆 ×t 𝑅))))
162149, 156, 158, 161subbascn 21864 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝐹 ∈ (𝑅 Cn ((𝑆 ×t 𝑅) ↑ko 𝑆)) ↔ (𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)) ∧ ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)))
1638, 148, 162mpbir2and 711 1 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹 ∈ (𝑅 Cn ((𝑆 ×t 𝑅) ↑ko 𝑆)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398   = wceq 1537  wcel 2114  wral 3140  wrex 3141  {crab 3144  Vcvv 3496  cin 3937  wss 3938  𝒫 cpw 4541  {csn 4569  cop 4575   cuni 4840   ciun 4921  cmpt 5148   × cxp 5555  ccnv 5556  dom cdm 5557  ran crn 5558  cima 5560  Fun wfun 6351  wf 6353  cfv 6357  (class class class)co 7158  cmpo 7160  ficfi 8876  t crest 16696  topGenctg 16713  Topctop 21503  TopOnctopon 21520   Cn ccn 21834  Compccmp 21996   ×t ctx 22170  ko cxko 22171
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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-map 8410  df-en 8512  df-dom 8513  df-fin 8515  df-fi 8877  df-rest 16698  df-topgen 16719  df-top 21504  df-topon 21521  df-bases 21556  df-cn 21837  df-cnp 21838  df-cmp 21997  df-tx 22172  df-xko 22173
This theorem is referenced by:  cnmpt2k  22298
  Copyright terms: Public domain W3C validator