Theorem xpstopnlem2 22413

Description: Lemma for xpstopn 22414. (Contributed by Mario Carneiro, 27-Aug-2015.)

Hypotheses

Ref	Expression
xpstps.t	⊢ 𝑇 = (𝑅 ×s 𝑆)
xpstopn.j	⊢ 𝐽 = (TopOpen‘𝑅)
xpstopn.k	⊢ 𝐾 = (TopOpen‘𝑆)
xpstopn.o	⊢ 𝑂 = (TopOpen‘𝑇)
xpstopnlem.x	⊢ 𝑋 = (Base‘𝑅)
xpstopnlem.y	⊢ 𝑌 = (Base‘𝑆)
xpstopnlem.f	⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})

Assertion

Ref	Expression
xpstopnlem2	⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑂 = (𝐽 ×t 𝐾))

Distinct variable groups:   𝑥,𝑦,𝐽   𝑥,𝐾,𝑦   𝑥,𝑅,𝑦   𝑥,𝑆,𝑦   𝑥,𝑋,𝑦   𝑥,𝑌,𝑦

Allowed substitution hints:   𝑇(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝑂(𝑥,𝑦)

Proof of Theorem xpstopnlem2

Step	Hyp	Ref	Expression
1		eqid 2821	. . . . 5 ⊢ ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) = ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})
2		fvexd 6679	. . . . 5 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (Scalar‘𝑅) ∈ V)
3		2on 8105	. . . . . 6 ⊢ 2o ∈ On
4	3	a1i 11	. . . . 5 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 2o ∈ On)
5		fnpr2o 16824	. . . . 5 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o)
6		eqid 2821	. . . . 5 ⊢ (TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
7	1, 2, 4, 5, 6	prdstopn 22230	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (∏t‘(TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
8		topnfn 16693	. . . . . . . 8 ⊢ TopOpen Fn V
9		dffn2 6510	. . . . . . . . 9 ⊢ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o ↔ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}:2o⟶V)
10	5, 9	sylib 220	. . . . . . . 8 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}:2o⟶V)
11		fnfco 6537	. . . . . . . 8 ⊢ ((TopOpen Fn V ∧ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}:2o⟶V) → (TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) Fn 2o)
12	8, 10, 11	sylancr 589	. . . . . . 7 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) Fn 2o)
13		xpsfeq 16830	. . . . . . 7 ⊢ ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) Fn 2o → {⟨∅, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅)⟩, ⟨1o, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o)⟩} = (TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
14	12, 13	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → {⟨∅, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅)⟩, ⟨1o, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o)⟩} = (TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
15		0ex 5203	. . . . . . . . . . . 12 ⊢ ∅ ∈ V
16	15	prid1 4691	. . . . . . . . . . 11 ⊢ ∅ ∈ {∅, 1o}
17		df2o3 8111	. . . . . . . . . . 11 ⊢ 2o = {∅, 1o}
18	16, 17	eleqtrri 2912	. . . . . . . . . 10 ⊢ ∅ ∈ 2o
19		fvco2 6752	. . . . . . . . . 10 ⊢ (({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o ∧ ∅ ∈ 2o) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅) = (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)))
20	5, 18, 19	sylancl 588	. . . . . . . . 9 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅) = (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)))
21		fvpr0o 16826	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ TopSp → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
22	21	adantr 483	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
23	22	fveq2d 6668	. . . . . . . . . 10 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)) = (TopOpen‘𝑅))
24		xpstopn.j	. . . . . . . . . 10 ⊢ 𝐽 = (TopOpen‘𝑅)
25	23, 24	syl6eqr 2874	. . . . . . . . 9 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)) = 𝐽)
26	20, 25	eqtrd 2856	. . . . . . . 8 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅) = 𝐽)
27	26	opeq2d 4803	. . . . . . 7 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ⟨∅, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅)⟩ = ⟨∅, 𝐽⟩)
28		1oex 8104	. . . . . . . . . . . 12 ⊢ 1o ∈ V
29	28	prid2 4692	. . . . . . . . . . 11 ⊢ 1o ∈ {∅, 1o}
30	29, 17	eleqtrri 2912	. . . . . . . . . 10 ⊢ 1o ∈ 2o
31		fvco2 6752	. . . . . . . . . 10 ⊢ (({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o ∧ 1o ∈ 2o) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o) = (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)))
32	5, 30, 31	sylancl 588	. . . . . . . . 9 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o) = (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)))
33		fvpr1o 16827	. . . . . . . . . . . 12 ⊢ (𝑆 ∈ TopSp → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
34	33	adantl 484	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
35	34	fveq2d 6668	. . . . . . . . . 10 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)) = (TopOpen‘𝑆))
36		xpstopn.k	. . . . . . . . . 10 ⊢ 𝐾 = (TopOpen‘𝑆)
37	35, 36	syl6eqr 2874	. . . . . . . . 9 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)) = 𝐾)
38	32, 37	eqtrd 2856	. . . . . . . 8 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o) = 𝐾)
39	38	opeq2d 4803	. . . . . . 7 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ⟨1o, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o)⟩ = ⟨1o, 𝐾⟩)
40	27, 39	preq12d 4670	. . . . . 6 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → {⟨∅, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘∅)⟩, ⟨1o, ((TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})‘1o)⟩} = {⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})
41	14, 40	eqtr3d 2858	. . . . 5 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) = {⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})
42	41	fveq2d 6668	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (∏t‘(TopOpen ∘ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩}))
43	7, 42	eqtrd 2856	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩}))
44	43	oveq1d 7165	. 2 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) qTop ◡𝐹) = ((∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩}) qTop ◡𝐹))
45		xpstps.t	. . . 4 ⊢ 𝑇 = (𝑅 ×s 𝑆)
46		xpstopnlem.x	. . . 4 ⊢ 𝑋 = (Base‘𝑅)
47		xpstopnlem.y	. . . 4 ⊢ 𝑌 = (Base‘𝑆)
48		simpl 485	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑅 ∈ TopSp)
49		simpr 487	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑆 ∈ TopSp)
50		xpstopnlem.f	. . . 4 ⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
51		eqid 2821	. . . 4 ⊢ (Scalar‘𝑅) = (Scalar‘𝑅)
52	45, 46, 47, 48, 49, 50, 51, 1	xpsval 16837	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑇 = (◡𝐹 “s ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
53	45, 46, 47, 48, 49, 50, 51, 1	xpsrnbas 16838	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ran 𝐹 = (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
54	50	xpsff1o2 16836	. . . . 5 ⊢ 𝐹:(𝑋 × 𝑌)–1-1-onto→ran 𝐹
55		f1ocnv 6621	. . . . 5 ⊢ (𝐹:(𝑋 × 𝑌)–1-1-onto→ran 𝐹 → ◡𝐹:ran 𝐹–1-1-onto→(𝑋 × 𝑌))
56	54, 55	mp1i 13	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ◡𝐹:ran 𝐹–1-1-onto→(𝑋 × 𝑌))
57		f1ofo 6616	. . . 4 ⊢ (◡𝐹:ran 𝐹–1-1-onto→(𝑋 × 𝑌) → ◡𝐹:ran 𝐹–onto→(𝑋 × 𝑌))
58	56, 57	syl 17	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ◡𝐹:ran 𝐹–onto→(𝑋 × 𝑌))
59		ovexd 7185	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) ∈ V)
60		xpstopn.o	. . 3 ⊢ 𝑂 = (TopOpen‘𝑇)
61	52, 53, 58, 59, 6, 60	imastopn 22322	. 2 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑂 = ((TopOpen‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) qTop ◡𝐹))
62	46, 24	istps 21536	. . . . 5 ⊢ (𝑅 ∈ TopSp ↔ 𝐽 ∈ (TopOn‘𝑋))
63	48, 62	sylib 220	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝐽 ∈ (TopOn‘𝑋))
64	47, 36	istps 21536	. . . . 5 ⊢ (𝑆 ∈ TopSp ↔ 𝐾 ∈ (TopOn‘𝑌))
65	49, 64	sylib 220	. . . 4 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝐾 ∈ (TopOn‘𝑌))
66	50, 63, 65	xpstopnlem1 22411	. . 3 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝐹 ∈ ((𝐽 ×t 𝐾)Homeo(∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})))
67		hmeocnv 22364	. . 3 ⊢ (𝐹 ∈ ((𝐽 ×t 𝐾)Homeo(∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})) → ◡𝐹 ∈ ((∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})Homeo(𝐽 ×t 𝐾)))
68		hmeoqtop 22377	. . 3 ⊢ (◡𝐹 ∈ ((∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩})Homeo(𝐽 ×t 𝐾)) → (𝐽 ×t 𝐾) = ((∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩}) qTop ◡𝐹))
69	66, 67, 68	3syl 18	. 2 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → (𝐽 ×t 𝐾) = ((∏t‘{⟨∅, 𝐽⟩, ⟨1o, 𝐾⟩}) qTop ◡𝐹))
70	44, 61, 69	3eqtr4d 2866	1 ⊢ ((𝑅 ∈ TopSp ∧ 𝑆 ∈ TopSp) → 𝑂 = (𝐽 ×t 𝐾))

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1533   ∈ wcel 2110  Vcvv 3494  ∅c0 4290  {cpr 4562  ⟨cop 4566   × cxp 5547  ^◡ccnv 5548  ran crn 5550   ∘ ccom 5553  Oncon0 6185   Fn wfn 6344  ⟶wf 6345  –onto→wfo 6347  –1-1-onto→wf1o 6348  ‘cfv 6349  (class class class)co 7150   ∈ cmpo 7152  1_oc1o 8089  2_oc2o 8090  Basecbs 16477  Scalarcsca 16562  TopOpenctopn 16689  ∏_tcpt 16706  X_scprds 16713   qTop cqtop 16770   ×_s cxps 16773  TopOnctopon 21512  TopSpctps 21534   ×_t ctx 22162  Homeochmeo 22355

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 2157  ax-12 2173  ax-ext 2793  ax-rep 5182  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7455  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608

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-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4561  df-pr 4563  df-tp 4565  df-op 4567  df-uni 4832  df-int 4869  df-iun 4913  df-iin 4914  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-riota 7108  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-2o 8097  df-oadd 8100  df-er 8283  df-map 8402  df-ixp 8456  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-fi 8869  df-sup 8900  df-inf 8901  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-nn 11633  df-2 11694  df-3 11695  df-4 11696  df-5 11697  df-6 11698  df-7 11699  df-8 11700  df-9 11701  df-n0 11892  df-z 11976  df-dec 12093  df-uz 12238  df-fz 12887  df-struct 16479  df-ndx 16480  df-slot 16481  df-base 16483  df-plusg 16572  df-mulr 16573  df-sca 16575  df-vsca 16576  df-ip 16577  df-tset 16578  df-ple 16579  df-ds 16581  df-hom 16583  df-cco 16584  df-rest 16690  df-topn 16691  df-topgen 16711  df-pt 16712  df-prds 16715  df-qtop 16774  df-imas 16775  df-xps 16777  df-top 21496  df-topon 21513  df-topsp 21535  df-bases 21548  df-cn 21829  df-cnp 21830  df-tx 22164  df-hmeo 22357

This theorem is referenced by:  xpstopn  22414