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

Theorem xkoinjcn 23038
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 23012 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑦) ∈ (𝑆 Cn 𝑆))
3 simpll 765 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑅 ∈ (TopOn‘𝑋))
4 simpr 485 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑥𝑋)
51, 3, 4cnmptc 23013 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑥) ∈ (𝑆 Cn 𝑅))
61, 2, 5cnmpt1t 23016 . . 3 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
7 xkoinjcn.3 . . 3 𝐹 = (𝑥𝑋 ↦ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
86, 7fmptd 7062 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)))
9 eqid 2736 . . . . . 6 𝑆 = 𝑆
10 eqid 2736 . . . . . 6 {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} = {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}
11 eqid 2736 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})
129, 10, 11xkobval 22937 . . . . 5 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑧 ∣ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})}
1312eqabi 2881 . . . 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 580 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
16 imaeq1 6008 . . . . . . . . . . . . 13 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → (𝑓𝑘) = ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘))
1716sseq1d 3975 . . . . . . . . . . . 12 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → ((𝑓𝑘) ⊆ 𝑣 ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1817elrab3 3646 . . . . . . . . . . 11 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1915, 18syl 17 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
20 funmpt 6539 . . . . . . . . . . 11 Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
21 simplrl 775 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 ∈ 𝒫 𝑆)
2221elpwid 4569 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 𝑆)
2314simprd 496 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑆 ∈ (TopOn‘𝑌))
24 toponuni 22263 . . . . . . . . . . . . . . 15 (𝑆 ∈ (TopOn‘𝑌) → 𝑌 = 𝑆)
2523, 24syl 17 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑌 = 𝑆)
2622, 25sseqtrrd 3985 . . . . . . . . . . . . 13 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘𝑌)
2726adantr 481 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘𝑌)
28 dmmptg 6194 . . . . . . . . . . . . 13 (∀𝑦𝑌𝑦, 𝑥⟩ ∈ V → dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌)
29 opex 5421 . . . . . . . . . . . . . 14 𝑦, 𝑥⟩ ∈ V
3029a1i 11 . . . . . . . . . . . . 13 (𝑦𝑌 → ⟨𝑦, 𝑥⟩ ∈ V)
3128, 30mprg 3070 . . . . . . . . . . . 12 dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌
3227, 31sseqtrrdi 3995 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
33 funimass4 6907 . . . . . . . . . . 11 ((Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∧ 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3420, 32, 33sylancr 587 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3527sselda 3944 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → 𝑧𝑌)
36 opeq1 4830 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧 → ⟨𝑦, 𝑥⟩ = ⟨𝑧, 𝑥⟩)
37 eqid 2736 . . . . . . . . . . . . . . . 16 (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
38 opex 5421 . . . . . . . . . . . . . . . 16 𝑧, 𝑥⟩ ∈ V
3936, 37, 38fvmpt 6948 . . . . . . . . . . . . . . 15 (𝑧𝑌 → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4035, 39syl 17 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4140eleq1d 2822 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
42 vex 3449 . . . . . . . . . . . . . 14 𝑥 ∈ V
43 opeq2 4831 . . . . . . . . . . . . . . 15 (𝑤 = 𝑥 → ⟨𝑧, 𝑤⟩ = ⟨𝑧, 𝑥⟩)
4443eleq1d 2822 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
4542, 44ralsn 4642 . . . . . . . . . . . . 13 (∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣)
4641, 45bitr4di 288 . . . . . . . . . . . 12 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
4746ralbidva 3172 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
48 dfss3 3932 . . . . . . . . . . . 12 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣)
49 eleq1 2825 . . . . . . . . . . . . 13 (𝑡 = ⟨𝑧, 𝑤⟩ → (𝑡𝑣 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑣))
5049ralxp 5797 . . . . . . . . . . . 12 (∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5148, 50bitri 274 . . . . . . . . . . 11 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5247, 51bitr4di 288 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5319, 34, 523bitrd 304 . . . . . . . . 9 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5453rabbidva 3414 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} = {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})
55 sneq 4596 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → {𝑥} = {𝑤})
5655xpeq2d 5663 . . . . . . . . . . . . 13 (𝑥 = 𝑤 → (𝑘 × {𝑥}) = (𝑘 × {𝑤}))
5756sseq1d 3975 . . . . . . . . . . . 12 (𝑥 = 𝑤 → ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × {𝑤}) ⊆ 𝑣))
5857elrab 3645 . . . . . . . . . . 11 (𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣))
59 eqid 2736 . . . . . . . . . . . . 13 (𝑆t 𝑘) = (𝑆t 𝑘)
60 eqid 2736 . . . . . . . . . . . . 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 22262 . . . . . . . . . . . . . 14 (𝑅 ∈ (TopOn‘𝑋) → 𝑅 ∈ Top)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ Top)
66 topontop 22262 . . . . . . . . . . . . . . . . . 18 (𝑆 ∈ (TopOn‘𝑌) → 𝑆 ∈ Top)
6766adantl 482 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑆 ∈ Top)
6864adantr 481 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ Top)
69 txtop 22920 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ Top ∧ 𝑅 ∈ Top) → (𝑆 ×t 𝑅) ∈ Top)
7067, 68, 69syl2anc 584 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑆 ×t 𝑅) ∈ Top)
7170ad3antrrr 728 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆 ×t 𝑅) ∈ Top)
72 vex 3449 . . . . . . . . . . . . . . . 16 𝑘 ∈ V
73 toponmax 22275 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ (TopOn‘𝑋) → 𝑋𝑅)
7463, 73syl 17 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋𝑅)
75 xpexg 7684 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ V ∧ 𝑋𝑅) → (𝑘 × 𝑋) ∈ V)
7672, 74, 75sylancr 587 . . . . . . . . . . . . . . 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 17310 . . . . . . . . . . . . . . 15 (((𝑆 ×t 𝑅) ∈ Top ∧ (𝑘 × 𝑋) ∈ V ∧ 𝑣 ∈ (𝑆 ×t 𝑅)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)))
8071, 76, 78, 79syl3anc 1371 . . . . . . . . . . . . . 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 22982 . . . . . . . . . . . . . . . 16 (((𝑆 ∈ Top ∧ 𝑅 ∈ Top) ∧ (𝑘 ∈ V ∧ 𝑋𝑅)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t (𝑅t 𝑋)))
8481, 65, 82, 74, 83syl22anc 837 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t (𝑅t 𝑋)))
85 toponuni 22263 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ (TopOn‘𝑋) → 𝑋 = 𝑅)
8663, 85syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋 = 𝑅)
8786oveq2d 7373 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = (𝑅t 𝑅))
8860restid 17315 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ (TopOn‘𝑋) → (𝑅t 𝑅) = 𝑅)
8963, 88syl 17 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑅) = 𝑅)
9087, 89eqtrd 2776 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = 𝑅)
9190oveq2d 7373 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆t 𝑘) ×t (𝑅t 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9284, 91eqtrd 2776 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9380, 92eleqtrd 2840 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆t 𝑘) ×t 𝑅))
9423adantr 481 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑆 ∈ (TopOn‘𝑌))
9526adantr 481 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘𝑌)
96 resttopon 22512 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ (TopOn‘𝑌) ∧ 𝑘𝑌) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
9794, 95, 96syl2anc 584 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
98 toponuni 22263 . . . . . . . . . . . . . . . 16 ((𝑆t 𝑘) ∈ (TopOn‘𝑘) → 𝑘 = (𝑆t 𝑘))
9997, 98syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 = (𝑆t 𝑘))
10099xpeq1d 5662 . . . . . . . . . . . . . 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 4769 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → {𝑤} ⊆ 𝑋)
104 xpss2 5653 . . . . . . . . . . . . . . . 16 ({𝑤} ⊆ 𝑋 → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
105103, 104syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
106101, 105ssind 4192 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
107100, 106eqsstrrd 3983 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ( (𝑆t 𝑘) × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
108102, 86eleqtrd 2840 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤 𝑅)
10959, 60, 61, 65, 93, 107, 108txtube 22991 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
110 toponss 22276 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑟𝑅) → 𝑟𝑋)
11163, 110sylan 580 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑟𝑋)
112 ssrab 4030 . . . . . . . . . . . . . . . . 17 (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑟𝑋 ∧ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
113112baib 536 . . . . . . . . . . . . . . . 16 (𝑟𝑋 → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
114111, 113syl 17 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
115 xpss2 5653 . . . . . . . . . . . . . . . . . 18 (𝑟𝑋 → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
116111, 115syl 17 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
117116biantrud 532 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))))
118 iunid 5020 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑟 {𝑥} = 𝑟
119118xpeq2i 5660 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = (𝑘 × 𝑟)
120 xpiundi 5702 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = 𝑥𝑟 (𝑘 × {𝑥})
121119, 120eqtr3i 2766 . . . . . . . . . . . . . . . . . 18 (𝑘 × 𝑟) = 𝑥𝑟 (𝑘 × {𝑥})
122121sseq1i 3972 . . . . . . . . . . . . . . . . 17 ((𝑘 × 𝑟) ⊆ 𝑣 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
123 iunss 5005 . . . . . . . . . . . . . . . . 17 ( 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
124122, 123bitri 274 . . . . . . . . . . . . . . . 16 ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
125 ssin 4190 . . . . . . . . . . . . . . . 16 (((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋)) ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
126117, 124, 1253bitr3g 312 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
12799adantr 481 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑘 = (𝑆t 𝑘))
128127xpeq1d 5662 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) = ( (𝑆t 𝑘) × 𝑟))
129128sseq1d 3975 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)) ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
130114, 126, 1293bitrd 304 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
131130anbi2d 629 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) ↔ (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))))
132131rexbidva 3173 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) ↔ ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))))
133109, 132mpbird 256 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
13458, 133sylan2b 594 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) → ∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
135134ralrimiva 3143 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
136 eltop2 22325 . . . . . . . . . 10 (𝑅 ∈ Top → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
13714, 68, 1363syl 18 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
138135, 137mpbird 256 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅)
13954, 138eqeltrd 2838 . . . . . . 7 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅)
140 imaeq2 6009 . . . . . . . . 9 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
1417mptpreima 6190 . . . . . . . . 9 (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}}
142140, 141eqtrdi 2792 . . . . . . . 8 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}})
143142eleq1d 2822 . . . . . . 7 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → ((𝐹𝑧) ∈ 𝑅 ↔ {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅))
144139, 143syl5ibrcom 246 . . . . . 6 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) ∈ 𝑅))
145144expimpd 454 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → (((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
146145rexlimdvva 3205 . . . 4 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
14713, 146biimtrid 241 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
148147ralrimiv 3142 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)
149 simpl 483 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ (TopOn‘𝑋))
150 ovex 7390 . . . . . 6 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
151150pwex 5335 . . . . 5 𝒫 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
1529, 10, 11xkotf 22936 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}):({𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} × (𝑆 ×t 𝑅))⟶𝒫 (𝑆 Cn (𝑆 ×t 𝑅))
153 frn 6675 . . . . . 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 5279 . . . 4 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V
156155a1i 11 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V)
1579, 10, 11xkoval 22938 . . . 4 ((𝑆 ∈ Top ∧ (𝑆 ×t 𝑅) ∈ Top) → ((𝑆 ×t 𝑅) ↑ko 𝑆) = (topGen‘(fi‘ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))))
15867, 70, 157syl2anc 584 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ((𝑆 ×t 𝑅) ↑ko 𝑆) = (topGen‘(fi‘ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))))
159 eqid 2736 . . . . 5 ((𝑆 ×t 𝑅) ↑ko 𝑆) = ((𝑆 ×t 𝑅) ↑ko 𝑆)
160159xkotopon 22951 . . . 4 ((𝑆 ∈ Top ∧ (𝑆 ×t 𝑅) ∈ Top) → ((𝑆 ×t 𝑅) ↑ko 𝑆) ∈ (TopOn‘(𝑆 Cn (𝑆 ×t 𝑅))))
16167, 70, 160syl2anc 584 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ((𝑆 ×t 𝑅) ↑ko 𝑆) ∈ (TopOn‘(𝑆 Cn (𝑆 ×t 𝑅))))
162149, 156, 158, 161subbascn 22605 . 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 205  wa 396   = wceq 1541  wcel 2106  wral 3064  wrex 3073  {crab 3407  Vcvv 3445  cin 3909  wss 3910  𝒫 cpw 4560  {csn 4586  cop 4592   cuni 4865   ciun 4954  cmpt 5188   × cxp 5631  ccnv 5632  dom cdm 5633  ran crn 5634  cima 5636  Fun wfun 6490  wf 6492  cfv 6496  (class class class)co 7357  cmpo 7359  ficfi 9346  t crest 17302  topGenctg 17319  Topctop 22242  TopOnctopon 22259   Cn ccn 22575  Compccmp 22737   ×t ctx 22911  ko cxko 22912
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-1o 8412  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-fin 8887  df-fi 9347  df-rest 17304  df-topgen 17325  df-top 22243  df-topon 22260  df-bases 22296  df-cn 22578  df-cnp 22579  df-cmp 22738  df-tx 22913  df-xko 22914
This theorem is referenced by:  cnmpt2k  23039
  Copyright terms: Public domain W3C validator