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

Theorem xkoinjcn 22289
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 22263 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑦) ∈ (𝑆 Cn 𝑆))
3 simpll 765 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑅 ∈ (TopOn‘𝑋))
4 simpr 487 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑥𝑋)
51, 3, 4cnmptc 22264 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑥) ∈ (𝑆 Cn 𝑅))
61, 2, 5cnmpt1t 22267 . . 3 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
7 xkoinjcn.3 . . 3 𝐹 = (𝑥𝑋 ↦ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
86, 7fmptd 6873 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)))
9 eqid 2821 . . . . . 6 𝑆 = 𝑆
10 eqid 2821 . . . . . 6 {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} = {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}
11 eqid 2821 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})
129, 10, 11xkobval 22188 . . . . 5 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑧 ∣ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})}
1312abeq2i 2948 . . . 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 5919 . . . . . . . . . . . . 13 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → (𝑓𝑘) = ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘))
1716sseq1d 3998 . . . . . . . . . . . 12 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → ((𝑓𝑘) ⊆ 𝑣 ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1817elrab3 3681 . . . . . . . . . . 11 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1915, 18syl 17 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
20 funmpt 6388 . . . . . . . . . . 11 Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
21 simplrl 775 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 ∈ 𝒫 𝑆)
2221elpwid 4553 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 𝑆)
2314simprd 498 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑆 ∈ (TopOn‘𝑌))
24 toponuni 21516 . . . . . . . . . . . . . . 15 (𝑆 ∈ (TopOn‘𝑌) → 𝑌 = 𝑆)
2523, 24syl 17 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑌 = 𝑆)
2622, 25sseqtrrd 4008 . . . . . . . . . . . . 13 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘𝑌)
2726adantr 483 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘𝑌)
28 dmmptg 6091 . . . . . . . . . . . . 13 (∀𝑦𝑌𝑦, 𝑥⟩ ∈ V → dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌)
29 opex 5349 . . . . . . . . . . . . . 14 𝑦, 𝑥⟩ ∈ V
3029a1i 11 . . . . . . . . . . . . 13 (𝑦𝑌 → ⟨𝑦, 𝑥⟩ ∈ V)
3128, 30mprg 3152 . . . . . . . . . . . 12 dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌
3227, 31sseqtrrdi 4018 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
33 funimass4 6725 . . . . . . . . . . 11 ((Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∧ 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3420, 32, 33sylancr 589 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3527sselda 3967 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → 𝑧𝑌)
36 opeq1 4797 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧 → ⟨𝑦, 𝑥⟩ = ⟨𝑧, 𝑥⟩)
37 eqid 2821 . . . . . . . . . . . . . . . 16 (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
38 opex 5349 . . . . . . . . . . . . . . . 16 𝑧, 𝑥⟩ ∈ V
3936, 37, 38fvmpt 6763 . . . . . . . . . . . . . . 15 (𝑧𝑌 → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4035, 39syl 17 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4140eleq1d 2897 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
42 vex 3498 . . . . . . . . . . . . . 14 𝑥 ∈ V
43 opeq2 4798 . . . . . . . . . . . . . . 15 (𝑤 = 𝑥 → ⟨𝑧, 𝑤⟩ = ⟨𝑧, 𝑥⟩)
4443eleq1d 2897 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
4542, 44ralsn 4613 . . . . . . . . . . . . 13 (∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣)
4641, 45syl6bbr 291 . . . . . . . . . . . 12 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
4746ralbidva 3196 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
48 dfss3 3956 . . . . . . . . . . . 12 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣)
49 eleq1 2900 . . . . . . . . . . . . 13 (𝑡 = ⟨𝑧, 𝑤⟩ → (𝑡𝑣 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑣))
5049ralxp 5707 . . . . . . . . . . . 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 3479 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} = {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})
55 sneq 4571 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → {𝑥} = {𝑤})
5655xpeq2d 5580 . . . . . . . . . . . . 13 (𝑥 = 𝑤 → (𝑘 × {𝑥}) = (𝑘 × {𝑤}))
5756sseq1d 3998 . . . . . . . . . . . 12 (𝑥 = 𝑤 → ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × {𝑤}) ⊆ 𝑣))
5857elrab 3680 . . . . . . . . . . 11 (𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣))
59 eqid 2821 . . . . . . . . . . . . 13 (𝑆t 𝑘) = (𝑆t 𝑘)
60 eqid 2821 . . . . . . . . . . . . 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 21515 . . . . . . . . . . . . . 14 (𝑅 ∈ (TopOn‘𝑋) → 𝑅 ∈ Top)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ Top)
66 topontop 21515 . . . . . . . . . . . . . . . . . 18 (𝑆 ∈ (TopOn‘𝑌) → 𝑆 ∈ Top)
6766adantl 484 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑆 ∈ Top)
6864adantr 483 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ Top)
69 txtop 22171 . . . . . . . . . . . . . . . . 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 3498 . . . . . . . . . . . . . . . 16 𝑘 ∈ V
73 toponmax 21528 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ (TopOn‘𝑋) → 𝑋𝑅)
7463, 73syl 17 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋𝑅)
75 xpexg 7467 . . . . . . . . . . . . . . . 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 16696 . . . . . . . . . . . . . . 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 22233 . . . . . . . . . . . . . . . 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 21516 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ (TopOn‘𝑋) → 𝑋 = 𝑅)
8663, 85syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋 = 𝑅)
8786oveq2d 7166 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = (𝑅t 𝑅))
8860restid 16701 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ (TopOn‘𝑋) → (𝑅t 𝑅) = 𝑅)
8963, 88syl 17 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑅) = 𝑅)
9087, 89eqtrd 2856 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = 𝑅)
9190oveq2d 7166 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆t 𝑘) ×t (𝑅t 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9284, 91eqtrd 2856 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9380, 92eleqtrd 2915 . . . . . . . . . . . . 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 21763 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ (TopOn‘𝑌) ∧ 𝑘𝑌) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
9794, 95, 96syl2anc 586 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
98 toponuni 21516 . . . . . . . . . . . . . . . 16 ((𝑆t 𝑘) ∈ (TopOn‘𝑘) → 𝑘 = (𝑆t 𝑘))
9997, 98syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 = (𝑆t 𝑘))
10099xpeq1d 5579 . . . . . . . . . . . . . 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 4736 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → {𝑤} ⊆ 𝑋)
104 xpss2 5570 . . . . . . . . . . . . . . . 16 ({𝑤} ⊆ 𝑋 → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
105103, 104syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
106101, 105ssind 4209 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
107100, 106eqsstrrd 4006 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ( (𝑆t 𝑘) × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
108102, 86eleqtrd 2915 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤 𝑅)
10959, 60, 61, 65, 93, 107, 108txtube 22242 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
110 toponss 21529 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑟𝑅) → 𝑟𝑋)
11163, 110sylan 582 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑟𝑋)
112 ssrab 4049 . . . . . . . . . . . . . . . . 17 (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑟𝑋 ∧ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
113112baib 538 . . . . . . . . . . . . . . . 16 (𝑟𝑋 → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
114111, 113syl 17 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
115 xpss2 5570 . . . . . . . . . . . . . . . . . 18 (𝑟𝑋 → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
116111, 115syl 17 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
117116biantrud 534 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))))
118 iunid 4977 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑟 {𝑥} = 𝑟
119118xpeq2i 5577 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = (𝑘 × 𝑟)
120 xpiundi 5617 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = 𝑥𝑟 (𝑘 × {𝑥})
121119, 120eqtr3i 2846 . . . . . . . . . . . . . . . . . 18 (𝑘 × 𝑟) = 𝑥𝑟 (𝑘 × {𝑥})
122121sseq1i 3995 . . . . . . . . . . . . . . . . 17 ((𝑘 × 𝑟) ⊆ 𝑣 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
123 iunss 4962 . . . . . . . . . . . . . . . . 17 ( 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
124122, 123bitri 277 . . . . . . . . . . . . . . . 16 ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
125 ssin 4207 . . . . . . . . . . . . . . . 16 (((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋)) ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
126117, 124, 1253bitr3g 315 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
12799adantr 483 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑘 = (𝑆t 𝑘))
128127xpeq1d 5579 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) = ( (𝑆t 𝑘) × 𝑟))
129128sseq1d 3998 . . . . . . . . . . . . . . 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 3296 . . . . . . . . . . . 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 3182 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
136 eltop2 21577 . . . . . . . . . 10 (𝑅 ∈ Top → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
13714, 68, 1363syl 18 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
138135, 137mpbird 259 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅)
13954, 138eqeltrd 2913 . . . . . . 7 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅)
140 imaeq2 5920 . . . . . . . . 9 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
1417mptpreima 6087 . . . . . . . . 9 (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}}
142140, 141syl6eq 2872 . . . . . . . 8 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}})
143142eleq1d 2897 . . . . . . 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 3294 . . . 4 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
14713, 146syl5bi 244 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
148147ralrimiv 3181 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)
149 simpl 485 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ (TopOn‘𝑋))
150 ovex 7183 . . . . . 6 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
151150pwex 5274 . . . . 5 𝒫 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
1529, 10, 11xkotf 22187 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}):({𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} × (𝑆 ×t 𝑅))⟶𝒫 (𝑆 Cn (𝑆 ×t 𝑅))
153 frn 6515 . . . . . 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 5219 . . . 4 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V
156155a1i 11 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V)
1579, 10, 11xkoval 22189 . . . 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 2821 . . . . 5 ((𝑆 ×t 𝑅) ↑ko 𝑆) = ((𝑆 ×t 𝑅) ↑ko 𝑆)
160159xkotopon 22202 . . . 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 21856 . 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 1533  wcel 2110  wral 3138  wrex 3139  {crab 3142  Vcvv 3495  cin 3935  wss 3936  𝒫 cpw 4539  {csn 4561  cop 4567   cuni 4832   ciun 4912  cmpt 5139   × cxp 5548  ccnv 5549  dom cdm 5550  ran crn 5551  cima 5553  Fun wfun 6344  wf 6346  cfv 6350  (class class class)co 7150  cmpo 7152  ficfi 8868  t crest 16688  topGenctg 16705  Topctop 21495  TopOnctopon 21512   Cn ccn 21826  Compccmp 21988   ×t ctx 22162  ko cxko 22163
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2156  ax-12 2172  ax-ext 2793  ax-rep 5183  ax-sep 5196  ax-nul 5203  ax-pow 5259  ax-pr 5322  ax-un 7455
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3497  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4562  df-pr 4564  df-tp 4566  df-op 4568  df-uni 4833  df-int 4870  df-iun 4914  df-iin 4915  df-br 5060  df-opab 5122  df-mpt 5140  df-tr 5166  df-id 5455  df-eprel 5460  df-po 5469  df-so 5470  df-fr 5509  df-we 5511  df-xp 5556  df-rel 5557  df-cnv 5558  df-co 5559  df-dm 5560  df-rn 5561  df-res 5562  df-ima 5563  df-pred 6143  df-ord 6189  df-on 6190  df-lim 6191  df-suc 6192  df-iota 6309  df-fun 6352  df-fn 6353  df-f 6354  df-f1 6355  df-fo 6356  df-f1o 6357  df-fv 6358  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7575  df-1st 7683  df-2nd 7684  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-oadd 8100  df-er 8283  df-map 8402  df-en 8504  df-dom 8505  df-fin 8507  df-fi 8869  df-rest 16690  df-topgen 16711  df-top 21496  df-topon 21513  df-bases 21548  df-cn 21829  df-cnp 21830  df-cmp 21989  df-tx 22164  df-xko 22165
This theorem is referenced by:  cnmpt2k  22290
  Copyright terms: Public domain W3C validator