prdsvsca - Metamath Proof Explorer

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

Theorem prdsvsca 17513

Description: Scalar multiplication in a structure product. (Contributed by Stefan O'Rear, 5-Jan-2015.) (Revised by Mario Carneiro, 15-Aug-2015.) (Revised by Thierry Arnoux, 16-Jun-2019.) (Revised by Zhi Wang, 18-Aug-2024.)

**Hypotheses**
Ref	Expression
prdsbas.p	⊢ 𝑃 = (𝑆X_s𝑅)
prdsbas.s	⊢ (𝜑 → 𝑆 ∈ 𝑉)
prdsbas.r	⊢ (𝜑 → 𝑅 ∈ 𝑊)
prdsbas.b	⊢ 𝐵 = (Base‘𝑃)
prdsbas.i	⊢ (𝜑 → dom 𝑅 = 𝐼)
prdsvsca.k	⊢ 𝐾 = (Base‘𝑆)
prdsvsca.m	⊢ · = ( ·_𝑠 ‘𝑃)

**Assertion**
Ref	Expression
prdsvsca	⊢ (𝜑 → · = (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))))

Distinct variable groups: 𝑓,𝑔,𝑥,𝐵 𝑓,𝐾,𝑔 𝜑,𝑓,𝑔,𝑥 𝑓,𝐼,𝑔,𝑥 𝑃,𝑓,𝑔,𝑥 𝑅,𝑓,𝑔,𝑥 𝑆,𝑓,𝑔,𝑥 Allowed substitution hints: · (𝑥,𝑓,𝑔) 𝐾(𝑥) 𝑉(𝑥,𝑓,𝑔) 𝑊(𝑥,𝑓,𝑔)

Proof of Theorem prdsvsca Dummy variables 𝑎 𝑐 𝑑 𝑒 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prdsbas.p	. . 3 ⊢ 𝑃 = (𝑆X_s𝑅)
2		prdsvsca.k	. . 3 ⊢ 𝐾 = (Base‘𝑆)
3		prdsbas.i	. . 3 ⊢ (𝜑 → dom 𝑅 = 𝐼)
4		prdsbas.s	. . . 4 ⊢ (𝜑 → 𝑆 ∈ 𝑉)
5		prdsbas.r	. . . 4 ⊢ (𝜑 → 𝑅 ∈ 𝑊)
6		prdsbas.b	. . . 4 ⊢ 𝐵 = (Base‘𝑃)
7	1, 4, 5, 6, 3	prdsbas 17510	. . 3 ⊢ (𝜑 → 𝐵 = X𝑥 ∈ 𝐼 (Base‘(𝑅‘𝑥)))
8		eqid 2769	. . . 4 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
9	1, 4, 5, 6, 3, 8	prdsplusg 17511	. . 3 ⊢ (𝜑 → (+_g‘𝑃) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(+_g‘(𝑅‘𝑥))(𝑔‘𝑥)))))
10		eqid 2769	. . . 4 ⊢ (._r‘𝑃) = (._r‘𝑃)
11	1, 4, 5, 6, 3, 10	prdsmulr 17512	. . 3 ⊢ (𝜑 → (._r‘𝑃) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(._r‘(𝑅‘𝑥))(𝑔‘𝑥)))))
12		eqidd 2770	. . 3 ⊢ (𝜑 → (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))) = (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))))
13		eqidd 2770	. . 3 ⊢ (𝜑 → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥))))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥))))))
14		eqidd 2770	. . 3 ⊢ (𝜑 → (∏_t‘(TopOpen ∘ 𝑅)) = (∏_t‘(TopOpen ∘ 𝑅)))
15		eqidd 2770	. . 3 ⊢ (𝜑 → {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥)(le‘(𝑅‘𝑥))(𝑔‘𝑥))} = {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥)(le‘(𝑅‘𝑥))(𝑔‘𝑥))})
16		eqidd 2770	. . 3 ⊢ (𝜑 → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ sup((ran (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(dist‘(𝑅‘𝑥))(𝑔‘𝑥))) ∪ {0}), ℝ^, < )) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ sup((ran (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(dist‘(𝑅‘𝑥))(𝑔‘𝑥))) ∪ {0}), ℝ^, < )))
17		eqidd 2770	. . 3 ⊢ (𝜑 → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥))))
18		eqidd 2770	. . 3 ⊢ (𝜑 → (𝑎 ∈ (𝐵 × 𝐵), 𝑐 ∈ 𝐵 ↦ (𝑑 ∈ ((2^nd ‘𝑎)(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))𝑐), 𝑒 ∈ ((𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))‘𝑎) ↦ (𝑥 ∈ 𝐼 ↦ ((𝑑‘𝑥)(⟨((1^st ‘𝑎)‘𝑥), ((2^nd ‘𝑎)‘𝑥)⟩(comp‘(𝑅‘𝑥))(𝑐‘𝑥))(𝑒‘𝑥))))) = (𝑎 ∈ (𝐵 × 𝐵), 𝑐 ∈ 𝐵 ↦ (𝑑 ∈ ((2^nd ‘𝑎)(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))𝑐), 𝑒 ∈ ((𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))‘𝑎) ↦ (𝑥 ∈ 𝐼 ↦ ((𝑑‘𝑥)(⟨((1^st ‘𝑎)‘𝑥), ((2^nd ‘𝑎)‘𝑥)⟩(comp‘(𝑅‘𝑥))(𝑐‘𝑥))(𝑒‘𝑥))))))
19	1, 2, 3, 7, 9, 11, 12, 13, 14, 15, 16, 17, 18, 4, 5	prdsval 17508	. 2 ⊢ (𝜑 → 𝑃 = (({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (∏_t‘(TopOpen ∘ 𝑅))⟩, ⟨(le‘ndx), {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥)(le‘(𝑅‘𝑥))(𝑔‘𝑥))}⟩, ⟨(dist‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ sup((ran (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(dist‘(𝑅‘𝑥))(𝑔‘𝑥))) ∪ {0}), ℝ^*, < ))⟩} ∪ {⟨(Hom ‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐 ∈ 𝐵 ↦ (𝑑 ∈ ((2^nd ‘𝑎)(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))𝑐), 𝑒 ∈ ((𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))‘𝑎) ↦ (𝑥 ∈ 𝐼 ↦ ((𝑑‘𝑥)(⟨((1^st ‘𝑎)‘𝑥), ((2^nd ‘𝑎)‘𝑥)⟩(comp‘(𝑅‘𝑥))(𝑐‘𝑥))(𝑒‘𝑥)))))⟩})))
20		prdsvsca.m	. 2 ⊢ · = ( ·_𝑠 ‘𝑃)
21		vscaid 17373	. 2 ⊢ ·_𝑠 = Slot ( ·_𝑠 ‘ndx)
22		ovssunirn 7447	. . . . . . . . . . 11 ⊢ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ⊆ ∪ ran ( ·_𝑠 ‘(𝑅‘𝑥))
23	21	strfvss 17247	. . . . . . . . . . . . 13 ⊢ ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ∪ ran (𝑅‘𝑥)
24		fvssunirn 6913	. . . . . . . . . . . . . 14 ⊢ (𝑅‘𝑥) ⊆ ∪ ran 𝑅
25		rnss 5930	. . . . . . . . . . . . . 14 ⊢ ((𝑅‘𝑥) ⊆ ∪ ran 𝑅 → ran (𝑅‘𝑥) ⊆ ran ∪ ran 𝑅)
26		uniss 4882	. . . . . . . . . . . . . 14 ⊢ (ran (𝑅‘𝑥) ⊆ ran ∪ ran 𝑅 → ∪ ran (𝑅‘𝑥) ⊆ ∪ ran ∪ ran 𝑅)
27	24, 25, 26	mp2b 10	. . . . . . . . . . . . 13 ⊢ ∪ ran (𝑅‘𝑥) ⊆ ∪ ran ∪ ran 𝑅
28	23, 27	sstri 3952	. . . . . . . . . . . 12 ⊢ ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ∪ ran ∪ ran 𝑅
29		rnss 5930	. . . . . . . . . . . 12 ⊢ (( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ∪ ran ∪ ran 𝑅 → ran ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ran ∪ ran ∪ ran 𝑅)
30		uniss 4882	. . . . . . . . . . . 12 ⊢ (ran ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ran ∪ ran ∪ ran 𝑅 → ∪ ran ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ∪ ran ∪ ran ∪ ran 𝑅)
31	28, 29, 30	mp2b 10	. . . . . . . . . . 11 ⊢ ∪ ran ( ·_𝑠 ‘(𝑅‘𝑥)) ⊆ ∪ ran ∪ ran ∪ ran 𝑅
32	22, 31	sstri 3952	. . . . . . . . . 10 ⊢ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ⊆ ∪ ran ∪ ran ∪ ran 𝑅
33		ovex 7444	. . . . . . . . . . 11 ⊢ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ∈ V
34	33	elpw 4569	. . . . . . . . . 10 ⊢ ((𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ∈ 𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↔ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ⊆ ∪ ran ∪ ran ∪ ran 𝑅)
35	32, 34	mpbir 234	. . . . . . . . 9 ⊢ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ∈ 𝒫 ∪ ran ∪ ran ∪ ran 𝑅
36	35	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)) ∈ 𝒫 ∪ ran ∪ ran ∪ ran 𝑅)
37	36	fmpttd 7111	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))):𝐼⟶𝒫 ∪ ran ∪ ran ∪ ran 𝑅)
38		rnexg 7899	. . . . . . . . . . 11 ⊢ (𝑅 ∈ 𝑊 → ran 𝑅 ∈ V)
39		uniexg 7739	. . . . . . . . . . 11 ⊢ (ran 𝑅 ∈ V → ∪ ran 𝑅 ∈ V)
40	5, 38, 39	3syl 19	. . . . . . . . . 10 ⊢ (𝜑 → ∪ ran 𝑅 ∈ V)
41		rnexg 7899	. . . . . . . . . 10 ⊢ (∪ ran 𝑅 ∈ V → ran ∪ ran 𝑅 ∈ V)
42		uniexg 7739	. . . . . . . . . 10 ⊢ (ran ∪ ran 𝑅 ∈ V → ∪ ran ∪ ran 𝑅 ∈ V)
43	40, 41, 42	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → ∪ ran ∪ ran 𝑅 ∈ V)
44		rnexg 7899	. . . . . . . . 9 ⊢ (∪ ran ∪ ran 𝑅 ∈ V → ran ∪ ran ∪ ran 𝑅 ∈ V)
45		uniexg 7739	. . . . . . . . 9 ⊢ (ran ∪ ran ∪ ran 𝑅 ∈ V → ∪ ran ∪ ran ∪ ran 𝑅 ∈ V)
46		pwexg 5350	. . . . . . . . 9 ⊢ (∪ ran ∪ ran ∪ ran 𝑅 ∈ V → 𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ∈ V)
47	43, 44, 45, 46	4syl 20	. . . . . . . 8 ⊢ (𝜑 → 𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ∈ V)
48	5	dmexd 7900	. . . . . . . . 9 ⊢ (𝜑 → dom 𝑅 ∈ V)
49	3, 48	eqeltrrd 2870	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ V)
50	47, 49	elmapd 8837	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))) ∈ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) ↔ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))):𝐼⟶𝒫 ∪ ran ∪ ran ∪ ran 𝑅))
51	37, 50	mpbird 260	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))) ∈ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼))
52	51	ralrimivw 3167	. . . . 5 ⊢ (𝜑 → ∀𝑔 ∈ 𝐵 (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))) ∈ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼))
53	52	ralrimivw 3167	. . . 4 ⊢ (𝜑 → ∀𝑓 ∈ 𝐾 ∀𝑔 ∈ 𝐵 (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))) ∈ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼))
54		eqid 2769	. . . . 5 ⊢ (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))) = (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))
55	54	fmpo 8065	. . . 4 ⊢ (∀𝑓 ∈ 𝐾 ∀𝑔 ∈ 𝐵 (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))) ∈ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) ↔ (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))):(𝐾 × 𝐵)⟶(𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼))
56	53, 55	sylib 221	. . 3 ⊢ (𝜑 → (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))):(𝐾 × 𝐵)⟶(𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼))
57	2	fvexi 6896	. . . . 5 ⊢ 𝐾 ∈ V
58	6	fvexi 6896	. . . . 5 ⊢ 𝐵 ∈ V
59	57, 58	xpex 7752	. . . 4 ⊢ (𝐾 × 𝐵) ∈ V
60		ovex 7444	. . . 4 ⊢ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) ∈ V
61		fex2 7933	. . . 4 ⊢ (((𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))):(𝐾 × 𝐵)⟶(𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) ∧ (𝐾 × 𝐵) ∈ V ∧ (𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) ∈ V) → (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))) ∈ V)
62	59, 60, 61	mp3an23 1479	. . 3 ⊢ ((𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))):(𝐾 × 𝐵)⟶(𝒫 ∪ ran ∪ ran ∪ ran 𝑅 ↑_m 𝐼) → (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))) ∈ V)
63	56, 62	syl 18	. 2 ⊢ (𝜑 → (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))) ∈ V)
64		snsstp2 4785	. . . 4 ⊢ {⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩} ⊆ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩}
65		ssun2 4138	. . . 4 ⊢ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩} ⊆ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩})
66	64, 65	sstri 3952	. . 3 ⊢ {⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩} ⊆ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩})
67		ssun1 4137	. . 3 ⊢ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩}) ⊆ (({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (∏_t‘(TopOpen ∘ 𝑅))⟩, ⟨(le‘ndx), {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥)(le‘(𝑅‘𝑥))(𝑔‘𝑥))}⟩, ⟨(dist‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ sup((ran (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(dist‘(𝑅‘𝑥))(𝑔‘𝑥))) ∪ {0}), ℝ^*, < ))⟩} ∪ {⟨(Hom ‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐 ∈ 𝐵 ↦ (𝑑 ∈ ((2^nd ‘𝑎)(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))𝑐), 𝑒 ∈ ((𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))‘𝑎) ↦ (𝑥 ∈ 𝐼 ↦ ((𝑑‘𝑥)(⟨((1^st ‘𝑎)‘𝑥), ((2^nd ‘𝑎)‘𝑥)⟩(comp‘(𝑅‘𝑥))(𝑐‘𝑥))(𝑒‘𝑥)))))⟩}))
68	66, 67	sstri 3952	. 2 ⊢ {⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩} ⊆ (({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), (+_g‘𝑃)⟩, ⟨(._r‘ndx), (._r‘𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·_𝑠 ‘ndx), (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥))))⟩, ⟨(·_𝑖‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑆 Σ_g (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(·_𝑖‘(𝑅‘𝑥))(𝑔‘𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (∏_t‘(TopOpen ∘ 𝑅))⟩, ⟨(le‘ndx), {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥)(le‘(𝑅‘𝑥))(𝑔‘𝑥))}⟩, ⟨(dist‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ sup((ran (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥)(dist‘(𝑅‘𝑥))(𝑔‘𝑥))) ∪ {0}), ℝ^*, < ))⟩} ∪ {⟨(Hom ‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐 ∈ 𝐵 ↦ (𝑑 ∈ ((2^nd ‘𝑎)(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))𝑐), 𝑒 ∈ ((𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ X𝑥 ∈ 𝐼 ((𝑓‘𝑥)(Hom ‘(𝑅‘𝑥))(𝑔‘𝑥)))‘𝑎) ↦ (𝑥 ∈ 𝐼 ↦ ((𝑑‘𝑥)(⟨((1^st ‘𝑎)‘𝑥), ((2^nd ‘𝑎)‘𝑥)⟩(comp‘(𝑅‘𝑥))(𝑐‘𝑥))(𝑒‘𝑥)))))⟩}))
69	19, 20, 21, 63, 68	prdsbaslem 17506	1 ⊢ (𝜑 → · = (𝑓 ∈ 𝐾, 𝑔 ∈ 𝐵 ↦ (𝑥 ∈ 𝐼 ↦ (𝑓( ·_𝑠 ‘(𝑅‘𝑥))(𝑔‘𝑥)))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 400 = wceq 1567 ∈ wcel 2149 ∀wral 3085 Vcvv 3461 ∪ cun 3909 ⊆ wss 3911 𝒫 cpw 4565 {csn 4592 {cpr 4594 {ctp 4596 ⟨cop 4598 ∪ cuni 4874 class class class wbr 5111 {copab 5175 ↦ cmpt 5194 × cxp 5660 dom cdm 5662 ran crn 5663 ∘ ccom 5666 ⟶wf 6533 ‘cfv 6537 (class class class)co 7411 ∈ cmpo 7413 1^st c1st 7984 2^nd c2nd 7985 ↑_m cmap 8824 Xcixp 8895 supcsup 9400 0cc0 11100 ℝ^*cxr 11242 < clt 11243 ndxcnx 17253 Basecbs 17269 +_gcplusg 17310 ._rcmulr 17311 Scalarcsca 17313 ·_𝑠 cvsca 17314 ·_𝑖cip 17315 TopSetcts 17316 lecple 17317 distcds 17319 Hom chom 17321 compcco 17322 TopOpenctopn 17474 ∏_tcpt 17491 Σ_g cgsu 17493 X_scprds 17498

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-sep 5259 ax-nul 5271 ax-pow 5337 ax-pr 5405 ax-un 7733 ax-cnex 11156 ax-resscn 11157 ax-1cn 11158 ax-icn 11159 ax-addcl 11160 ax-addrcl 11161 ax-mulcl 11162 ax-mulrcl 11163 ax-mulcom 11164 ax-addass 11165 ax-mulass 11166 ax-distr 11167 ax-i2m1 11168 ax-1ne0 11169 ax-1rid 11170 ax-rnegex 11171 ax-rrecex 11172 ax-cnre 11173 ax-pre-lttri 11174 ax-pre-lttrn 11175 ax-pre-ltadd 11176 ax-pre-mulgt0 11177

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-reu 3376 df-rab 3423 df-v 3463 df-sbc 3752 df-csb 3860 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-pss 3931 df-nul 4293 df-if 4491 df-pw 4567 df-sn 4593 df-pr 4595 df-tp 4597 df-op 4599 df-uni 4875 df-iun 4960 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5557 df-eprel 5562 df-po 5570 df-so 5571 df-fr 5615 df-we 5617 df-xp 5668 df-rel 5669 df-cnv 5670 df-co 5671 df-dm 5672 df-rn 5673 df-res 5674 df-ima 5675 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7368 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7863 df-1st 7986 df-2nd 7987 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8453 df-er 8694 df-map 8826 df-ixp 8896 df-en 8944 df-dom 8945 df-sdom 8946 df-fin 8947 df-sup 9402 df-pnf 11245 df-mnf 11246 df-xr 11247 df-ltxr 11248 df-le 11249 df-sub 11443 df-neg 11444 df-nn 12234 df-2 12303 df-3 12304 df-4 12305 df-5 12306 df-6 12307 df-7 12308 df-8 12309 df-9 12310 df-n0 12505 df-z 12592 df-dec 12712 df-uz 12863 df-fz 13536 df-struct 17207 df-slot 17242 df-ndx 17254 df-base 17270 df-plusg 17323 df-mulr 17324 df-sca 17326 df-vsca 17327 df-ip 17328 df-tset 17329 df-ple 17330 df-ds 17332 df-hom 17334 df-cco 17335 df-prds 17500

This theorem is referenced by: prdsle 17515 prdsds 17517 prdstset 17519 prdshom 17520 prdsco 17521 prdsvscaval 17532

W3C validator