Theorem psrplusgg 14759

Description: The addition operation of the multivariate power series structure. (Contributed by Mario Carneiro, 28-Dec-2014.) (Revised by Mario Carneiro, 2-Oct-2015.)

Hypotheses

Ref	Expression
psrplusg.s	⊢ 𝑆 = (𝐼 mPwSer 𝑅)
psrplusg.b	⊢ 𝐵 = (Base‘𝑆)
psrplusg.a	⊢ + = (+g‘𝑅)
psrplusg.p	⊢ ✚ = (+g‘𝑆)

Assertion

Ref	Expression
psrplusgg	⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ✚ = ( ∘𝑓 + ↾ (𝐵 × 𝐵)))

Proof of Theorem psrplusgg

Dummy variables 𝑓 𝑔 𝑘 𝑥 ℎ 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		psrplusg.s	. . . 4 ⊢ 𝑆 = (𝐼 mPwSer 𝑅)
2		eqid 2231	. . . 4 ⊢ (Base‘𝑅) = (Base‘𝑅)
3		psrplusg.a	. . . 4 ⊢ + = (+g‘𝑅)
4		eqid 2231	. . . 4 ⊢ (.r‘𝑅) = (.r‘𝑅)
5		eqid 2231	. . . 4 ⊢ (TopOpen‘𝑅) = (TopOpen‘𝑅)
6		eqid 2231	. . . 4 ⊢ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
7		psrplusg.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑆)
8		simpl 109	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝐼 ∈ 𝑉)
9		simpr 110	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝑅 ∈ 𝑊)
10	1, 2, 6, 7, 8, 9	psrbasg 14755	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝐵 = ((Base‘𝑅) ↑𝑚 {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}))
11		eqid 2231	. . . 4 ⊢ ( ∘𝑓 + ↾ (𝐵 × 𝐵)) = ( ∘𝑓 + ↾ (𝐵 × 𝐵))
12		eqid 2231	. . . 4 ⊢ (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥))))))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))
13		eqid 2231	. . . 4 ⊢ (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓)) = (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))
14		eqidd 2232	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)})) = (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)})))
15	1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 14, 8, 9	psrval 14742	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝑆 = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩}))
16	15	fveq2d 5652	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (+g‘𝑆) = (+g‘({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩})))
17		psrplusg.p	. . 3 ⊢ ✚ = (+g‘𝑆)
18	17	a1i 9	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ✚ = (+g‘𝑆))
19		plusgslid 13256	. . 3 ⊢ (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
20		basfn 13202	. . . . . 6 ⊢ Base Fn V
21		fnpsr 14743	. . . . . . . 8 ⊢ mPwSer Fn (V × V)
22	8	elexd 2817	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝐼 ∈ V)
23	9	elexd 2817	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝑅 ∈ V)
24		fnovex 6061	. . . . . . . 8 ⊢ (( mPwSer Fn (V × V) ∧ 𝐼 ∈ V ∧ 𝑅 ∈ V) → (𝐼 mPwSer 𝑅) ∈ V)
25	21, 22, 23, 24	mp3an2i 1379	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (𝐼 mPwSer 𝑅) ∈ V)
26	1, 25	eqeltrid 2318	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝑆 ∈ V)
27		funfvex 5665	. . . . . . 7 ⊢ ((Fun Base ∧ 𝑆 ∈ dom Base) → (Base‘𝑆) ∈ V)
28	27	funfni 5439	. . . . . 6 ⊢ ((Base Fn V ∧ 𝑆 ∈ V) → (Base‘𝑆) ∈ V)
29	20, 26, 28	sylancr 414	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (Base‘𝑆) ∈ V)
30	7, 29	eqeltrid 2318	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → 𝐵 ∈ V)
31	30, 30	ofmresex 6308	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ( ∘𝑓 + ↾ (𝐵 × 𝐵)) ∈ V)
32		mpoexga 6386	. . . . 5 ⊢ ((𝐵 ∈ V ∧ 𝐵 ∈ V) → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥))))))) ∈ V)
33	30, 30, 32	syl2anc 411	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥))))))) ∈ V)
34		funfvex 5665	. . . . . . 7 ⊢ ((Fun Base ∧ 𝑅 ∈ dom Base) → (Base‘𝑅) ∈ V)
35	34	funfni 5439	. . . . . 6 ⊢ ((Base Fn V ∧ 𝑅 ∈ V) → (Base‘𝑅) ∈ V)
36	20, 23, 35	sylancr 414	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (Base‘𝑅) ∈ V)
37		mpoexga 6386	. . . . 5 ⊢ (((Base‘𝑅) ∈ V ∧ 𝐵 ∈ V) → (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓)) ∈ V)
38	36, 30, 37	syl2anc 411	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓)) ∈ V)
39		fnmap 6867	. . . . . . . 8 ⊢ ↑𝑚 Fn (V × V)
40		nn0ex 9451	. . . . . . . . 9 ⊢ ℕ0 ∈ V
41	40	a1i 9	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ℕ0 ∈ V)
42		fnovex 6061	. . . . . . . 8 ⊢ (( ↑𝑚 Fn (V × V) ∧ ℕ0 ∈ V ∧ 𝐼 ∈ V) → (ℕ0 ↑𝑚 𝐼) ∈ V)
43	39, 41, 22, 42	mp3an2i 1379	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (ℕ0 ↑𝑚 𝐼) ∈ V)
44		rabexg 4238	. . . . . . 7 ⊢ ((ℕ0 ↑𝑚 𝐼) ∈ V → {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈ V)
45	43, 44	syl 14	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈ V)
46		topnfn 13388	. . . . . . . 8 ⊢ TopOpen Fn V
47		funfvex 5665	. . . . . . . . 9 ⊢ ((Fun TopOpen ∧ 𝑅 ∈ dom TopOpen) → (TopOpen‘𝑅) ∈ V)
48	47	funfni 5439	. . . . . . . 8 ⊢ ((TopOpen Fn V ∧ 𝑅 ∈ V) → (TopOpen‘𝑅) ∈ V)
49	46, 23, 48	sylancr 414	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (TopOpen‘𝑅) ∈ V)
50		snexg 4280	. . . . . . 7 ⊢ ((TopOpen‘𝑅) ∈ V → {(TopOpen‘𝑅)} ∈ V)
51	49, 50	syl 14	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → {(TopOpen‘𝑅)} ∈ V)
52		xpexg 4846	. . . . . 6 ⊢ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈ V ∧ {(TopOpen‘𝑅)} ∈ V) → ({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}) ∈ V)
53	45, 51, 52	syl2anc 411	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}) ∈ V)
54		ptex 13408	. . . . 5 ⊢ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}) ∈ V → (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)})) ∈ V)
55	53, 54	syl 14	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)})) ∈ V)
56	30, 31, 33, 9, 38, 55	psrvalstrd 14744	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩}) Struct ⟨1, 9⟩)
57		plusgndxnn 13255	. . . . 5 ⊢ (+g‘ndx) ∈ ℕ
58		opexg 4326	. . . . 5 ⊢ (((+g‘ndx) ∈ ℕ ∧ ( ∘𝑓 + ↾ (𝐵 × 𝐵)) ∈ V) → ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ V)
59	57, 31, 58	sylancr 414	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ V)
60		snsstp2 3829	. . . . . 6 ⊢ {⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩} ⊆ {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩}
61		ssun1 3372	. . . . . 6 ⊢ {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ⊆ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩})
62	60, 61	sstri 3237	. . . . 5 ⊢ {⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩} ⊆ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩})
63		snssg 3812	. . . . 5 ⊢ (⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ V → (⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩}) ↔ {⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩} ⊆ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩})))
64	62, 63	mpbiri 168	. . . 4 ⊢ (⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ V → ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩}))
65	59, 64	syl 14	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩ ∈ ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩}))
66	19, 56, 31, 65	opelstrsl 13258	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ( ∘𝑓 + ↾ (𝐵 × 𝐵)) = (+g‘({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ( ∘𝑓 + ↾ (𝐵 × 𝐵))⟩, ⟨(.r‘ndx), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ (𝑘 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ {ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∣ 𝑦 ∘𝑟 ≤ 𝑘} ↦ ((𝑓‘𝑥)(.r‘𝑅)(𝑔‘(𝑘 ∘𝑓 − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑅), 𝑓 ∈ 𝐵 ↦ (({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {𝑥}) ∘𝑓 (.r‘𝑅)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘({ℎ ∈ (ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} × {(TopOpen‘𝑅)}))⟩})))
67	16, 18, 66	3eqtr4d 2274	1 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ 𝑊) → ✚ = ( ∘𝑓 + ↾ (𝐵 × 𝐵)))

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1398   ∈ wcel 2202  {crab 2515  Vcvv 2803   ∪ cun 3199   ⊆ wss 3201  {csn 3673  {ctp 3675  ⟨cop 3676   class class class wbr 4093   ↦ cmpt 4155   × cxp 4729  ^◡ccnv 4730   ↾ cres 4733   “ cima 4734   Fn wfn 5328  ‘cfv 5333  (class class class)co 6028   ∈ cmpo 6030   ∘_𝑓 cof 6242   ∘_𝑟 cofr 6243   ↑_𝑚 cmap 6860  Fincfn 6952  1c1 8076   ≤ cle 8258   − cmin 8393  ℕcn 9186  9c9 9244  ℕ₀cn0 9445  ndxcnx 13140  Basecbs 13143  +_gcplusg 13221  ._rcmulr 13222  Scalarcsca 13224   ·_𝑠 cvsca 13225  TopSetcts 13227  TopOpenctopn 13384  ∏_tcpt 13399   Σ_g cgsu 13401   mPwSer cmps 14737

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-cnex 8166  ax-resscn 8167  ax-1cn 8168  ax-1re 8169  ax-icn 8170  ax-addcl 8171  ax-addrcl 8172  ax-mulcl 8173  ax-addcom 8175  ax-addass 8177  ax-distr 8179  ax-i2m1 8180  ax-0lt1 8181  ax-0id 8183  ax-rnegex 8184  ax-cnre 8186  ax-pre-ltirr 8187  ax-pre-ltwlin 8188  ax-pre-lttrn 8189  ax-pre-apti 8190  ax-pre-ltadd 8191

This theorem depends on definitions:  df-bi 117  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-nel 2499  df-ral 2516  df-rex 2517  df-reu 2518  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-nul 3497  df-pw 3658  df-sn 3679  df-pr 3680  df-tp 3681  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-id 4396  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-of 6244  df-1st 6312  df-2nd 6313  df-map 6862  df-ixp 6911  df-pnf 8259  df-mnf 8260  df-xr 8261  df-ltxr 8262  df-le 8263  df-sub 8395  df-neg 8396  df-inn 9187  df-2 9245  df-3 9246  df-4 9247  df-5 9248  df-6 9249  df-7 9250  df-8 9251  df-9 9252  df-n0 9446  df-z 9523  df-uz 9799  df-fz 10287  df-struct 13145  df-ndx 13146  df-slot 13147  df-base 13149  df-plusg 13234  df-mulr 13235  df-sca 13237  df-vsca 13238  df-tset 13240  df-rest 13385  df-topn 13386  df-topgen 13404  df-pt 13405  df-psr 14739

This theorem is referenced by:  psradd  14760