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

Theorem xkoinjcn 22838
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 766 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑆 ∈ (TopOn‘𝑌))
21cnmptid 22812 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑦) ∈ (𝑆 Cn 𝑆))
3 simpll 764 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑅 ∈ (TopOn‘𝑋))
4 simpr 485 . . . . 5 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → 𝑥𝑋)
51, 3, 4cnmptc 22813 . . . 4 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌𝑥) ∈ (𝑆 Cn 𝑅))
61, 2, 5cnmpt1t 22816 . . 3 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
7 xkoinjcn.3 . . 3 𝐹 = (𝑥𝑋 ↦ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
86, 7fmptd 6988 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)))
9 eqid 2738 . . . . . 6 𝑆 = 𝑆
10 eqid 2738 . . . . . 6 {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} = {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}
11 eqid 2738 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})
129, 10, 11xkobval 22737 . . . . 5 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑧 ∣ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})}
1312abeq2i 2875 . . . 4 (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ↔ ∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
14 simpll 764 . . . . . . . . . . . 12 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → (𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)))
1514, 6sylan 580 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)))
16 imaeq1 5964 . . . . . . . . . . . . 13 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → (𝑓𝑘) = ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘))
1716sseq1d 3952 . . . . . . . . . . . 12 (𝑓 = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) → ((𝑓𝑘) ⊆ 𝑣 ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1817elrab3 3625 . . . . . . . . . . 11 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ (𝑆 Cn (𝑆 ×t 𝑅)) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
1915, 18syl 17 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣))
20 funmpt 6472 . . . . . . . . . . 11 Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
21 simplrl 774 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 ∈ 𝒫 𝑆)
2221elpwid 4544 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘 𝑆)
2314simprd 496 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑆 ∈ (TopOn‘𝑌))
24 toponuni 22063 . . . . . . . . . . . . . . 15 (𝑆 ∈ (TopOn‘𝑌) → 𝑌 = 𝑆)
2523, 24syl 17 . . . . . . . . . . . . . 14 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑌 = 𝑆)
2622, 25sseqtrrd 3962 . . . . . . . . . . . . 13 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → 𝑘𝑌)
2726adantr 481 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘𝑌)
28 dmmptg 6145 . . . . . . . . . . . . 13 (∀𝑦𝑌𝑦, 𝑥⟩ ∈ V → dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌)
29 opex 5379 . . . . . . . . . . . . . 14 𝑦, 𝑥⟩ ∈ V
3029a1i 11 . . . . . . . . . . . . 13 (𝑦𝑌 → ⟨𝑦, 𝑥⟩ ∈ V)
3128, 30mprg 3078 . . . . . . . . . . . 12 dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = 𝑌
3227, 31sseqtrrdi 3972 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩))
33 funimass4 6834 . . . . . . . . . . 11 ((Fun (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∧ 𝑘 ⊆ dom (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3420, 32, 33sylancr 587 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) “ 𝑘) ⊆ 𝑣 ↔ ∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣))
3527sselda 3921 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → 𝑧𝑌)
36 opeq1 4804 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧 → ⟨𝑦, 𝑥⟩ = ⟨𝑧, 𝑥⟩)
37 eqid 2738 . . . . . . . . . . . . . . . 16 (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) = (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)
38 opex 5379 . . . . . . . . . . . . . . . 16 𝑧, 𝑥⟩ ∈ V
3936, 37, 38fvmpt 6875 . . . . . . . . . . . . . . 15 (𝑧𝑌 → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4035, 39syl 17 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) = ⟨𝑧, 𝑥⟩)
4140eleq1d 2823 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
42 vex 3436 . . . . . . . . . . . . . 14 𝑥 ∈ V
43 opeq2 4805 . . . . . . . . . . . . . . 15 (𝑤 = 𝑥 → ⟨𝑧, 𝑤⟩ = ⟨𝑧, 𝑥⟩)
4443eleq1d 2823 . . . . . . . . . . . . . 14 (𝑤 = 𝑥 → (⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣))
4542, 44ralsn 4617 . . . . . . . . . . . . 13 (∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣 ↔ ⟨𝑧, 𝑥⟩ ∈ 𝑣)
4641, 45bitr4di 289 . . . . . . . . . . . 12 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) ∧ 𝑧𝑘) → (((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
4746ralbidva 3111 . . . . . . . . . . 11 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣))
48 dfss3 3909 . . . . . . . . . . . 12 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣)
49 eleq1 2826 . . . . . . . . . . . . 13 (𝑡 = ⟨𝑧, 𝑤⟩ → (𝑡𝑣 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑣))
5049ralxp 5750 . . . . . . . . . . . 12 (∀𝑡 ∈ (𝑘 × {𝑥})𝑡𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5148, 50bitri 274 . . . . . . . . . . 11 ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑧𝑘𝑤 ∈ {𝑥}⟨𝑧, 𝑤⟩ ∈ 𝑣)
5247, 51bitr4di 289 . . . . . . . . . 10 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → (∀𝑧𝑘 ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩)‘𝑧) ∈ 𝑣 ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5319, 34, 523bitrd 305 . . . . . . . . 9 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ 𝑥𝑋) → ((𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} ↔ (𝑘 × {𝑥}) ⊆ 𝑣))
5453rabbidva 3413 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} = {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})
55 sneq 4571 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → {𝑥} = {𝑤})
5655xpeq2d 5619 . . . . . . . . . . . . 13 (𝑥 = 𝑤 → (𝑘 × {𝑥}) = (𝑘 × {𝑤}))
5756sseq1d 3952 . . . . . . . . . . . 12 (𝑥 = 𝑤 → ((𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × {𝑤}) ⊆ 𝑣))
5857elrab 3624 . . . . . . . . . . 11 (𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣))
59 eqid 2738 . . . . . . . . . . . . 13 (𝑆t 𝑘) = (𝑆t 𝑘)
60 eqid 2738 . . . . . . . . . . . . 13 𝑅 = 𝑅
61 simplr 766 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ Comp)
62 simpll 764 . . . . . . . . . . . . . . 15 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → 𝑅 ∈ (TopOn‘𝑋))
6362ad2antrr 723 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ (TopOn‘𝑋))
64 topontop 22062 . . . . . . . . . . . . . 14 (𝑅 ∈ (TopOn‘𝑋) → 𝑅 ∈ Top)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑅 ∈ Top)
66 topontop 22062 . . . . . . . . . . . . . . . . . 18 (𝑆 ∈ (TopOn‘𝑌) → 𝑆 ∈ Top)
6766adantl 482 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑆 ∈ Top)
6864adantr 481 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ Top)
69 txtop 22720 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ Top ∧ 𝑅 ∈ Top) → (𝑆 ×t 𝑅) ∈ Top)
7067, 68, 69syl2anc 584 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑆 ×t 𝑅) ∈ Top)
7170ad3antrrr 727 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆 ×t 𝑅) ∈ Top)
72 vex 3436 . . . . . . . . . . . . . . . 16 𝑘 ∈ V
73 toponmax 22075 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ (TopOn‘𝑋) → 𝑋𝑅)
7463, 73syl 17 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋𝑅)
75 xpexg 7600 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ V ∧ 𝑋𝑅) → (𝑘 × 𝑋) ∈ V)
7672, 74, 75sylancr 587 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × 𝑋) ∈ V)
77 simprr 770 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) → 𝑣 ∈ (𝑆 ×t 𝑅))
7877ad2antrr 723 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑣 ∈ (𝑆 ×t 𝑅))
79 elrestr 17139 . . . . . . . . . . . . . . 15 (((𝑆 ×t 𝑅) ∈ Top ∧ (𝑘 × 𝑋) ∈ V ∧ 𝑣 ∈ (𝑆 ×t 𝑅)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)))
8071, 76, 78, 79syl3anc 1370 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑣 ∩ (𝑘 × 𝑋)) ∈ ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)))
8167ad3antrrr 727 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑆 ∈ Top)
8272a1i 11 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 ∈ V)
83 txrest 22782 . . . . . . . . . . . . . . . 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 22063 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ (TopOn‘𝑋) → 𝑋 = 𝑅)
8663, 85syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑋 = 𝑅)
8786oveq2d 7291 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = (𝑅t 𝑅))
8860restid 17144 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ (TopOn‘𝑋) → (𝑅t 𝑅) = 𝑅)
8963, 88syl 17 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑅) = 𝑅)
9087, 89eqtrd 2778 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑅t 𝑋) = 𝑅)
9190oveq2d 7291 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆t 𝑘) ×t (𝑅t 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9284, 91eqtrd 2778 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ((𝑆 ×t 𝑅) ↾t (𝑘 × 𝑋)) = ((𝑆t 𝑘) ×t 𝑅))
9380, 92eleqtrd 2841 . . . . . . . . . . . . 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 22312 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ (TopOn‘𝑌) ∧ 𝑘𝑌) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
9794, 95, 96syl2anc 584 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑆t 𝑘) ∈ (TopOn‘𝑘))
98 toponuni 22063 . . . . . . . . . . . . . . . 16 ((𝑆t 𝑘) ∈ (TopOn‘𝑘) → 𝑘 = (𝑆t 𝑘))
9997, 98syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑘 = (𝑆t 𝑘))
10099xpeq1d 5618 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) = ( (𝑆t 𝑘) × {𝑤}))
101 simprr 770 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ 𝑣)
102 simprl 768 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤𝑋)
103102snssd 4742 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → {𝑤} ⊆ 𝑋)
104 xpss2 5609 . . . . . . . . . . . . . . . 16 ({𝑤} ⊆ 𝑋 → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
105103, 104syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑘 × 𝑋))
106101, 105ssind 4166 . . . . . . . . . . . . . 14 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → (𝑘 × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
107100, 106eqsstrrd 3960 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ( (𝑆t 𝑘) × {𝑤}) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
108102, 86eleqtrd 2841 . . . . . . . . . . . . 13 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → 𝑤 𝑅)
10959, 60, 61, 65, 93, 107, 108txtube 22791 . . . . . . . . . . . 12 (((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) → ∃𝑟𝑅 (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
110 toponss 22076 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑟𝑅) → 𝑟𝑋)
11163, 110sylan 580 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑟𝑋)
112 ssrab 4006 . . . . . . . . . . . . . . . . 17 (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ (𝑟𝑋 ∧ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
113112baib 536 . . . . . . . . . . . . . . . 16 (𝑟𝑋 → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
114111, 113syl 17 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣))
115 xpss2 5609 . . . . . . . . . . . . . . . . . 18 (𝑟𝑋 → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
116111, 115syl 17 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))
117116biantrud 532 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋))))
118 iunid 4990 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑟 {𝑥} = 𝑟
119118xpeq2i 5616 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = (𝑘 × 𝑟)
120 xpiundi 5657 . . . . . . . . . . . . . . . . . . 19 (𝑘 × 𝑥𝑟 {𝑥}) = 𝑥𝑟 (𝑘 × {𝑥})
121119, 120eqtr3i 2768 . . . . . . . . . . . . . . . . . 18 (𝑘 × 𝑟) = 𝑥𝑟 (𝑘 × {𝑥})
122121sseq1i 3949 . . . . . . . . . . . . . . . . 17 ((𝑘 × 𝑟) ⊆ 𝑣 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
123 iunss 4975 . . . . . . . . . . . . . . . . 17 ( 𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
124122, 123bitri 274 . . . . . . . . . . . . . . . 16 ((𝑘 × 𝑟) ⊆ 𝑣 ↔ ∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣)
125 ssin 4164 . . . . . . . . . . . . . . . 16 (((𝑘 × 𝑟) ⊆ 𝑣 ∧ (𝑘 × 𝑟) ⊆ (𝑘 × 𝑋)) ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))
126117, 124, 1253bitr3g 313 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (∀𝑥𝑟 (𝑘 × {𝑥}) ⊆ 𝑣 ↔ (𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
12799adantr 481 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → 𝑘 = (𝑆t 𝑘))
128127xpeq1d 5618 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑘 × 𝑟) = ( (𝑆t 𝑘) × 𝑟))
129128sseq1d 3952 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑘 × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)) ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
130114, 126, 1293bitrd 305 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → (𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ↔ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋))))
131130anbi2d 629 . . . . . . . . . . . . 13 ((((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) ∧ (𝑤𝑋 ∧ (𝑘 × {𝑤}) ⊆ 𝑣)) ∧ 𝑟𝑅) → ((𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}) ↔ (𝑤𝑟 ∧ ( (𝑆t 𝑘) × 𝑟) ⊆ (𝑣 ∩ (𝑘 × 𝑋)))))
132131rexbidva 3225 . . . . . . . . . . . 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 3103 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}))
136 eltop2 22125 . . . . . . . . . 10 (𝑅 ∈ Top → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
13714, 68, 1363syl 18 . . . . . . . . 9 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → ({𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅 ↔ ∀𝑤 ∈ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣}∃𝑟𝑅 (𝑤𝑟𝑟 ⊆ {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣})))
138135, 137mpbird 256 . . . . . . . 8 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑘 × {𝑥}) ⊆ 𝑣} ∈ 𝑅)
13954, 138eqeltrd 2839 . . . . . . 7 ((((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) ∧ (𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅))) ∧ (𝑆t 𝑘) ∈ Comp) → {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}} ∈ 𝑅)
140 imaeq2 5965 . . . . . . . . 9 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}))
1417mptpreima 6141 . . . . . . . . 9 (𝐹 “ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}}
142140, 141eqtrdi 2794 . . . . . . . 8 (𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣} → (𝐹𝑧) = {𝑥𝑋 ∣ (𝑦𝑌 ↦ ⟨𝑦, 𝑥⟩) ∈ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}})
143142eleq1d 2823 . . . . . . 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 3223 . . . 4 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (∃𝑘 ∈ 𝒫 𝑆𝑣 ∈ (𝑆 ×t 𝑅)((𝑆t 𝑘) ∈ Comp ∧ 𝑧 = {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
14713, 146syl5bi 241 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) → (𝐹𝑧) ∈ 𝑅))
148147ralrimiv 3102 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)
149 simpl 483 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝑅 ∈ (TopOn‘𝑋))
150 ovex 7308 . . . . . 6 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
151150pwex 5303 . . . . 5 𝒫 (𝑆 Cn (𝑆 ×t 𝑅)) ∈ V
1529, 10, 11xkotf 22736 . . . . . 6 (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}):({𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp} × (𝑆 ×t 𝑅))⟶𝒫 (𝑆 Cn (𝑆 ×t 𝑅))
153 frn 6607 . . . . . 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 5246 . . . 4 ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V
156155a1i 11 . . 3 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣}) ∈ V)
1579, 10, 11xkoval 22738 . . . 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 2738 . . . . 5 ((𝑆 ×t 𝑅) ↑ko 𝑆) = ((𝑆 ×t 𝑅) ↑ko 𝑆)
160159xkotopon 22751 . . . 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 22405 . 2 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → (𝐹 ∈ (𝑅 Cn ((𝑆 ×t 𝑅) ↑ko 𝑆)) ↔ (𝐹:𝑋⟶(𝑆 Cn (𝑆 ×t 𝑅)) ∧ ∀𝑧 ∈ ran (𝑘 ∈ {𝑤 ∈ 𝒫 𝑆 ∣ (𝑆t 𝑤) ∈ Comp}, 𝑣 ∈ (𝑆 ×t 𝑅) ↦ {𝑓 ∈ (𝑆 Cn (𝑆 ×t 𝑅)) ∣ (𝑓𝑘) ⊆ 𝑣})(𝐹𝑧) ∈ 𝑅)))
1638, 148, 162mpbir2and 710 1 ((𝑅 ∈ (TopOn‘𝑋) ∧ 𝑆 ∈ (TopOn‘𝑌)) → 𝐹 ∈ (𝑅 Cn ((𝑆 ×t 𝑅) ↑ko 𝑆)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396   = wceq 1539  wcel 2106  wral 3064  wrex 3065  {crab 3068  Vcvv 3432  cin 3886  wss 3887  𝒫 cpw 4533  {csn 4561  cop 4567   cuni 4839   ciun 4924  cmpt 5157   × cxp 5587  ccnv 5588  dom cdm 5589  ran crn 5590  cima 5592  Fun wfun 6427  wf 6429  cfv 6433  (class class class)co 7275  cmpo 7277  ficfi 9169  t crest 17131  topGenctg 17148  Topctop 22042  TopOnctopon 22059   Cn ccn 22375  Compccmp 22537   ×t ctx 22711  ko cxko 22712
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-int 4880  df-iun 4926  df-iin 4927  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-ov 7278  df-oprab 7279  df-mpo 7280  df-om 7713  df-1st 7831  df-2nd 7832  df-1o 8297  df-er 8498  df-map 8617  df-en 8734  df-dom 8735  df-fin 8737  df-fi 9170  df-rest 17133  df-topgen 17154  df-top 22043  df-topon 22060  df-bases 22096  df-cn 22378  df-cnp 22379  df-cmp 22538  df-tx 22713  df-xko 22714
This theorem is referenced by:  cnmpt2k  22839
  Copyright terms: Public domain W3C validator