ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  psrval GIF version

Theorem psrval 14220
Description: Value of the multivariate power series structure. (Contributed by Mario Carneiro, 29-Dec-2014.)
Hypotheses
Ref Expression
psrval.s 𝑆 = (𝐼 mPwSer 𝑅)
psrval.k 𝐾 = (Base‘𝑅)
psrval.a + = (+g𝑅)
psrval.m · = (.r𝑅)
psrval.o 𝑂 = (TopOpen‘𝑅)
psrval.d 𝐷 = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin}
psrval.b (𝜑𝐵 = (𝐾𝑚 𝐷))
psrval.p = ( ∘𝑓 + ↾ (𝐵 × 𝐵))
psrval.t × = (𝑓𝐵, 𝑔𝐵 ↦ (𝑘𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥)))))))
psrval.v = (𝑥𝐾, 𝑓𝐵 ↦ ((𝐷 × {𝑥}) ∘𝑓 · 𝑓))
psrval.j (𝜑𝐽 = (∏t‘(𝐷 × {𝑂})))
psrval.i (𝜑𝐼𝑊)
psrval.r (𝜑𝑅𝑋)
Assertion
Ref Expression
psrval (𝜑𝑆 = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
Distinct variable groups:   𝑦,   𝑓,𝑔,𝑘,𝑥,𝜑   𝐵,𝑓,𝑔,𝑘,𝑥   𝑓,,𝐼,𝑔,𝑘,𝑥   𝑅,𝑓,𝑔,𝑘,𝑥   𝑦,𝑓,𝐷,𝑔,𝑘,𝑥   𝑓,𝐾,𝑥
Allowed substitution hints:   𝜑(𝑦,)   𝐵(𝑦,)   𝐷()   + (𝑥,𝑦,𝑓,𝑔,,𝑘)   (𝑥,𝑦,𝑓,𝑔,,𝑘)   𝑅(𝑦,)   𝑆(𝑥,𝑦,𝑓,𝑔,,𝑘)   (𝑥,𝑦,𝑓,𝑔,,𝑘)   · (𝑥,𝑦,𝑓,𝑔,,𝑘)   × (𝑥,𝑦,𝑓,𝑔,,𝑘)   𝐼(𝑦)   𝐽(𝑥,𝑦,𝑓,𝑔,,𝑘)   𝐾(𝑦,𝑔,,𝑘)   𝑂(𝑥,𝑦,𝑓,𝑔,,𝑘)   𝑊(𝑥,𝑦,𝑓,𝑔,,𝑘)   𝑋(𝑥,𝑦,𝑓,𝑔,,𝑘)

Proof of Theorem psrval
Dummy variables 𝑖 𝑟 𝑏 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 psrval.s . 2 𝑆 = (𝐼 mPwSer 𝑅)
2 df-psr 14218 . . . 4 mPwSer = (𝑖 ∈ V, 𝑟 ∈ V ↦ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}))
32a1i 9 . . 3 (𝜑 → mPwSer = (𝑖 ∈ V, 𝑟 ∈ V ↦ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩})))
4 simprl 529 . . . . . . . 8 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → 𝑖 = 𝐼)
54oveq2d 5938 . . . . . . 7 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → (ℕ0𝑚 𝑖) = (ℕ0𝑚 𝐼))
65rabeqdv 2757 . . . . . 6 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin})
7 psrval.d . . . . . 6 𝐷 = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin}
86, 7eqtr4di 2247 . . . . 5 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} = 𝐷)
98csbeq1d 3091 . . . 4 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = 𝐷 / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}))
10 nn0ex 9255 . . . . . . . . 9 0 ∈ V
11 vex 2766 . . . . . . . . 9 𝑖 ∈ V
1210, 11mapval 6719 . . . . . . . 8 (ℕ0𝑚 𝑖) = {𝑓𝑓:𝑖⟶ℕ0}
13 mapex 6713 . . . . . . . . 9 ((𝑖 ∈ V ∧ ℕ0 ∈ V) → {𝑓𝑓:𝑖⟶ℕ0} ∈ V)
1411, 10, 13mp2an 426 . . . . . . . 8 {𝑓𝑓:𝑖⟶ℕ0} ∈ V
1512, 14eqeltri 2269 . . . . . . 7 (ℕ0𝑚 𝑖) ∈ V
1615rabex 4177 . . . . . 6 { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} ∈ V
178, 16eqeltrrdi 2288 . . . . 5 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → 𝐷 ∈ V)
18 simplrr 536 . . . . . . . . . . 11 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → 𝑟 = 𝑅)
1918fveq2d 5562 . . . . . . . . . 10 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → (Base‘𝑟) = (Base‘𝑅))
20 psrval.k . . . . . . . . . 10 𝐾 = (Base‘𝑅)
2119, 20eqtr4di 2247 . . . . . . . . 9 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → (Base‘𝑟) = 𝐾)
22 simpr 110 . . . . . . . . 9 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → 𝑑 = 𝐷)
2321, 22oveq12d 5940 . . . . . . . 8 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → ((Base‘𝑟) ↑𝑚 𝑑) = (𝐾𝑚 𝐷))
24 psrval.b . . . . . . . . 9 (𝜑𝐵 = (𝐾𝑚 𝐷))
2524ad2antrr 488 . . . . . . . 8 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → 𝐵 = (𝐾𝑚 𝐷))
2623, 25eqtr4d 2232 . . . . . . 7 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → ((Base‘𝑟) ↑𝑚 𝑑) = 𝐵)
2726csbeq1d 3091 . . . . . 6 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → ((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = 𝐵 / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}))
28 basfn 12736 . . . . . . . . . . 11 Base Fn V
29 vex 2766 . . . . . . . . . . 11 𝑟 ∈ V
30 funfvex 5575 . . . . . . . . . . . 12 ((Fun Base ∧ 𝑟 ∈ dom Base) → (Base‘𝑟) ∈ V)
3130funfni 5358 . . . . . . . . . . 11 ((Base Fn V ∧ 𝑟 ∈ V) → (Base‘𝑟) ∈ V)
3228, 29, 31mp2an 426 . . . . . . . . . 10 (Base‘𝑟) ∈ V
33 vex 2766 . . . . . . . . . 10 𝑑 ∈ V
3432, 33mapval 6719 . . . . . . . . 9 ((Base‘𝑟) ↑𝑚 𝑑) = {𝑓𝑓:𝑑⟶(Base‘𝑟)}
35 mapex 6713 . . . . . . . . . 10 ((𝑑 ∈ V ∧ (Base‘𝑟) ∈ V) → {𝑓𝑓:𝑑⟶(Base‘𝑟)} ∈ V)
3633, 32, 35mp2an 426 . . . . . . . . 9 {𝑓𝑓:𝑑⟶(Base‘𝑟)} ∈ V
3734, 36eqeltri 2269 . . . . . . . 8 ((Base‘𝑟) ↑𝑚 𝑑) ∈ V
3826, 37eqeltrrdi 2288 . . . . . . 7 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → 𝐵 ∈ V)
39 simpr 110 . . . . . . . . . 10 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → 𝑏 = 𝐵)
4039opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨(Base‘ndx), 𝑏⟩ = ⟨(Base‘ndx), 𝐵⟩)
4118adantr 276 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → 𝑟 = 𝑅)
4241fveq2d 5562 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (+g𝑟) = (+g𝑅))
43 psrval.a . . . . . . . . . . . . . 14 + = (+g𝑅)
4442, 43eqtr4di 2247 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (+g𝑟) = + )
4544ofeqd 6137 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ∘𝑓 (+g𝑟) = ∘𝑓 + )
4639, 39xpeq12d 4688 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑏 × 𝑏) = (𝐵 × 𝐵))
4745, 46reseq12d 4947 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏)) = ( ∘𝑓 + ↾ (𝐵 × 𝐵)))
48 psrval.p . . . . . . . . . . 11 = ( ∘𝑓 + ↾ (𝐵 × 𝐵))
4947, 48eqtr4di 2247 . . . . . . . . . 10 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏)) = )
5049opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩ = ⟨(+g‘ndx), ⟩)
5122adantr 276 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → 𝑑 = 𝐷)
5251rabeqdv 2757 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → {𝑦𝑑𝑦𝑟𝑘} = {𝑦𝐷𝑦𝑟𝑘})
5341fveq2d 5562 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (.r𝑟) = (.r𝑅))
54 psrval.m . . . . . . . . . . . . . . . . 17 · = (.r𝑅)
5553, 54eqtr4di 2247 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (.r𝑟) = · )
5655oveqd 5939 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥))) = ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥))))
5752, 56mpteq12dv 4115 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))) = (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥)))))
5841, 57oveq12d 5940 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥))))) = (𝑅 Σg (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥))))))
5951, 58mpteq12dv 4115 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))) = (𝑘𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥)))))))
6039, 39, 59mpoeq123dv 5984 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥))))))) = (𝑓𝐵, 𝑔𝐵 ↦ (𝑘𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥))))))))
61 psrval.t . . . . . . . . . . 11 × = (𝑓𝐵, 𝑔𝐵 ↦ (𝑘𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦𝐷𝑦𝑟𝑘} ↦ ((𝑓𝑥) · (𝑔‘(𝑘𝑓𝑥)))))))
6260, 61eqtr4di 2247 . . . . . . . . . 10 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥))))))) = × )
6362opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩ = ⟨(.r‘ndx), × ⟩)
6440, 50, 63tpeq123d 3714 . . . . . . . 8 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → {⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩})
6541opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨(Scalar‘ndx), 𝑟⟩ = ⟨(Scalar‘ndx), 𝑅⟩)
6621adantr 276 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (Base‘𝑟) = 𝐾)
6755ofeqd 6137 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ∘𝑓 (.r𝑟) = ∘𝑓 · )
6851xpeq1d 4686 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑑 × {𝑥}) = (𝐷 × {𝑥}))
69 eqidd 2197 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → 𝑓 = 𝑓)
7067, 68, 69oveq123d 5943 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓) = ((𝐷 × {𝑥}) ∘𝑓 · 𝑓))
7166, 39, 70mpoeq123dv 5984 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓)) = (𝑥𝐾, 𝑓𝐵 ↦ ((𝐷 × {𝑥}) ∘𝑓 · 𝑓)))
72 psrval.v . . . . . . . . . . 11 = (𝑥𝐾, 𝑓𝐵 ↦ ((𝐷 × {𝑥}) ∘𝑓 · 𝑓))
7371, 72eqtr4di 2247 . . . . . . . . . 10 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓)) = )
7473opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩ = ⟨( ·𝑠 ‘ndx), ⟩)
7541fveq2d 5562 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (TopOpen‘𝑟) = (TopOpen‘𝑅))
76 psrval.o . . . . . . . . . . . . . . 15 𝑂 = (TopOpen‘𝑅)
7775, 76eqtr4di 2247 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (TopOpen‘𝑟) = 𝑂)
7877sneqd 3635 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → {(TopOpen‘𝑟)} = {𝑂})
7951, 78xpeq12d 4688 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (𝑑 × {(TopOpen‘𝑟)}) = (𝐷 × {𝑂}))
8079fveq2d 5562 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (∏t‘(𝑑 × {(TopOpen‘𝑟)})) = (∏t‘(𝐷 × {𝑂})))
81 psrval.j . . . . . . . . . . . 12 (𝜑𝐽 = (∏t‘(𝐷 × {𝑂})))
8281ad3antrrr 492 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → 𝐽 = (∏t‘(𝐷 × {𝑂})))
8380, 82eqtr4d 2232 . . . . . . . . . 10 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → (∏t‘(𝑑 × {(TopOpen‘𝑟)})) = 𝐽)
8483opeq2d 3815 . . . . . . . . 9 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩ = ⟨(TopSet‘ndx), 𝐽⟩)
8565, 74, 84tpeq123d 3714 . . . . . . . 8 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩} = {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩})
8664, 85uneq12d 3318 . . . . . . 7 ((((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) ∧ 𝑏 = 𝐵) → ({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
8738, 86csbied 3131 . . . . . 6 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → 𝐵 / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
8827, 87eqtrd 2229 . . . . 5 (((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) ∧ 𝑑 = 𝐷) → ((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
8917, 88csbied 3131 . . . 4 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → 𝐷 / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
909, 89eqtrd 2229 . . 3 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} / 𝑑((Base‘𝑟) ↑𝑚 𝑑) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), ( ∘𝑓 (+g𝑟) ↾ (𝑏 × 𝑏))⟩, ⟨(.r‘ndx), (𝑓𝑏, 𝑔𝑏 ↦ (𝑘𝑑 ↦ (𝑟 Σg (𝑥 ∈ {𝑦𝑑𝑦𝑟𝑘} ↦ ((𝑓𝑥)(.r𝑟)(𝑔‘(𝑘𝑓𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑟⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘𝑟), 𝑓𝑏 ↦ ((𝑑 × {𝑥}) ∘𝑓 (.r𝑟)𝑓))⟩, ⟨(TopSet‘ndx), (∏t‘(𝑑 × {(TopOpen‘𝑟)}))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
91 psrval.i . . . 4 (𝜑𝐼𝑊)
9291elexd 2776 . . 3 (𝜑𝐼 ∈ V)
93 psrval.r . . . 4 (𝜑𝑅𝑋)
9493elexd 2776 . . 3 (𝜑𝑅 ∈ V)
95 basendxnn 12734 . . . . . 6 (Base‘ndx) ∈ ℕ
96 funfvex 5575 . . . . . . . . . . . 12 ((Fun Base ∧ 𝑅 ∈ dom Base) → (Base‘𝑅) ∈ V)
9796funfni 5358 . . . . . . . . . . 11 ((Base Fn V ∧ 𝑅 ∈ V) → (Base‘𝑅) ∈ V)
9828, 94, 97sylancr 414 . . . . . . . . . 10 (𝜑 → (Base‘𝑅) ∈ V)
9920, 98eqeltrid 2283 . . . . . . . . 9 (𝜑𝐾 ∈ V)
100 mapvalg 6717 . . . . . . . . . . . . 13 ((ℕ0 ∈ V ∧ 𝐼𝑊) → (ℕ0𝑚 𝐼) = {𝑓𝑓:𝐼⟶ℕ0})
10110, 91, 100sylancr 414 . . . . . . . . . . . 12 (𝜑 → (ℕ0𝑚 𝐼) = {𝑓𝑓:𝐼⟶ℕ0})
102 mapex 6713 . . . . . . . . . . . . 13 ((𝐼𝑊 ∧ ℕ0 ∈ V) → {𝑓𝑓:𝐼⟶ℕ0} ∈ V)
10391, 10, 102sylancl 413 . . . . . . . . . . . 12 (𝜑 → {𝑓𝑓:𝐼⟶ℕ0} ∈ V)
104101, 103eqeltrd 2273 . . . . . . . . . . 11 (𝜑 → (ℕ0𝑚 𝐼) ∈ V)
105 rabexg 4176 . . . . . . . . . . 11 ((ℕ0𝑚 𝐼) ∈ V → { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin} ∈ V)
106104, 105syl 14 . . . . . . . . . 10 (𝜑 → { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin} ∈ V)
1077, 106eqeltrid 2283 . . . . . . . . 9 (𝜑𝐷 ∈ V)
108 mapvalg 6717 . . . . . . . . 9 ((𝐾 ∈ V ∧ 𝐷 ∈ V) → (𝐾𝑚 𝐷) = {𝑓𝑓:𝐷𝐾})
10999, 107, 108syl2anc 411 . . . . . . . 8 (𝜑 → (𝐾𝑚 𝐷) = {𝑓𝑓:𝐷𝐾})
110 mapex 6713 . . . . . . . . 9 ((𝐷 ∈ V ∧ 𝐾 ∈ V) → {𝑓𝑓:𝐷𝐾} ∈ V)
111107, 99, 110syl2anc 411 . . . . . . . 8 (𝜑 → {𝑓𝑓:𝐷𝐾} ∈ V)
112109, 111eqeltrd 2273 . . . . . . 7 (𝜑 → (𝐾𝑚 𝐷) ∈ V)
11324, 112eqeltrd 2273 . . . . . 6 (𝜑𝐵 ∈ V)
114 opexg 4261 . . . . . 6 (((Base‘ndx) ∈ ℕ ∧ 𝐵 ∈ V) → ⟨(Base‘ndx), 𝐵⟩ ∈ V)
11595, 113, 114sylancr 414 . . . . 5 (𝜑 → ⟨(Base‘ndx), 𝐵⟩ ∈ V)
116 plusgndxnn 12789 . . . . . 6 (+g‘ndx) ∈ ℕ
117113, 113ofmresex 6194 . . . . . . 7 (𝜑 → ( ∘𝑓 + ↾ (𝐵 × 𝐵)) ∈ V)
11848, 117eqeltrid 2283 . . . . . 6 (𝜑 ∈ V)
119 opexg 4261 . . . . . 6 (((+g‘ndx) ∈ ℕ ∧ ∈ V) → ⟨(+g‘ndx), ⟩ ∈ V)
120116, 118, 119sylancr 414 . . . . 5 (𝜑 → ⟨(+g‘ndx), ⟩ ∈ V)
121 mulrslid 12809 . . . . . . 7 (.r = Slot (.r‘ndx) ∧ (.r‘ndx) ∈ ℕ)
122121simpri 113 . . . . . 6 (.r‘ndx) ∈ ℕ
12361mpoexg 6269 . . . . . . 7 ((𝐵 ∈ V ∧ 𝐵 ∈ V) → × ∈ V)
124113, 113, 123syl2anc 411 . . . . . 6 (𝜑× ∈ V)
125 opexg 4261 . . . . . 6 (((.r‘ndx) ∈ ℕ ∧ × ∈ V) → ⟨(.r‘ndx), × ⟩ ∈ V)
126122, 124, 125sylancr 414 . . . . 5 (𝜑 → ⟨(.r‘ndx), × ⟩ ∈ V)
127 tpexg 4479 . . . . 5 ((⟨(Base‘ndx), 𝐵⟩ ∈ V ∧ ⟨(+g‘ndx), ⟩ ∈ V ∧ ⟨(.r‘ndx), × ⟩ ∈ V) → {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∈ V)
128115, 120, 126, 127syl3anc 1249 . . . 4 (𝜑 → {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∈ V)
129 scaslid 12830 . . . . . . 7 (Scalar = Slot (Scalar‘ndx) ∧ (Scalar‘ndx) ∈ ℕ)
130129simpri 113 . . . . . 6 (Scalar‘ndx) ∈ ℕ
131 opexg 4261 . . . . . 6 (((Scalar‘ndx) ∈ ℕ ∧ 𝑅𝑋) → ⟨(Scalar‘ndx), 𝑅⟩ ∈ V)
132130, 93, 131sylancr 414 . . . . 5 (𝜑 → ⟨(Scalar‘ndx), 𝑅⟩ ∈ V)
133 vscaslid 12840 . . . . . . 7 ( ·𝑠 = Slot ( ·𝑠 ‘ndx) ∧ ( ·𝑠 ‘ndx) ∈ ℕ)
134133simpri 113 . . . . . 6 ( ·𝑠 ‘ndx) ∈ ℕ
13572mpoexg 6269 . . . . . . 7 ((𝐾 ∈ V ∧ 𝐵 ∈ V) → ∈ V)
13699, 113, 135syl2anc 411 . . . . . 6 (𝜑 ∈ V)
137 opexg 4261 . . . . . 6 ((( ·𝑠 ‘ndx) ∈ ℕ ∧ ∈ V) → ⟨( ·𝑠 ‘ndx), ⟩ ∈ V)
138134, 136, 137sylancr 414 . . . . 5 (𝜑 → ⟨( ·𝑠 ‘ndx), ⟩ ∈ V)
139 tsetndxnn 12866 . . . . . 6 (TopSet‘ndx) ∈ ℕ
140 topnfn 12915 . . . . . . . . . . . 12 TopOpen Fn V
141 funfvex 5575 . . . . . . . . . . . . 13 ((Fun TopOpen ∧ 𝑅 ∈ dom TopOpen) → (TopOpen‘𝑅) ∈ V)
142141funfni 5358 . . . . . . . . . . . 12 ((TopOpen Fn V ∧ 𝑅 ∈ V) → (TopOpen‘𝑅) ∈ V)
143140, 94, 142sylancr 414 . . . . . . . . . . 11 (𝜑 → (TopOpen‘𝑅) ∈ V)
14476, 143eqeltrid 2283 . . . . . . . . . 10 (𝜑𝑂 ∈ V)
145 snexg 4217 . . . . . . . . . 10 (𝑂 ∈ V → {𝑂} ∈ V)
146144, 145syl 14 . . . . . . . . 9 (𝜑 → {𝑂} ∈ V)
147 xpexg 4777 . . . . . . . . 9 ((𝐷 ∈ V ∧ {𝑂} ∈ V) → (𝐷 × {𝑂}) ∈ V)
148107, 146, 147syl2anc 411 . . . . . . . 8 (𝜑 → (𝐷 × {𝑂}) ∈ V)
149 ptex 12935 . . . . . . . 8 ((𝐷 × {𝑂}) ∈ V → (∏t‘(𝐷 × {𝑂})) ∈ V)
150148, 149syl 14 . . . . . . 7 (𝜑 → (∏t‘(𝐷 × {𝑂})) ∈ V)
15181, 150eqeltrd 2273 . . . . . 6 (𝜑𝐽 ∈ V)
152 opexg 4261 . . . . . 6 (((TopSet‘ndx) ∈ ℕ ∧ 𝐽 ∈ V) → ⟨(TopSet‘ndx), 𝐽⟩ ∈ V)
153139, 151, 152sylancr 414 . . . . 5 (𝜑 → ⟨(TopSet‘ndx), 𝐽⟩ ∈ V)
154 tpexg 4479 . . . . 5 ((⟨(Scalar‘ndx), 𝑅⟩ ∈ V ∧ ⟨( ·𝑠 ‘ndx), ⟩ ∈ V ∧ ⟨(TopSet‘ndx), 𝐽⟩ ∈ V) → {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩} ∈ V)
155132, 138, 153, 154syl3anc 1249 . . . 4 (𝜑 → {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩} ∈ V)
156 unexg 4478 . . . 4 (({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∈ V ∧ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩} ∈ V) → ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}) ∈ V)
157128, 155, 156syl2anc 411 . . 3 (𝜑 → ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}) ∈ V)
1583, 90, 92, 94, 157ovmpod 6050 . 2 (𝜑 → (𝐼 mPwSer 𝑅) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
1591, 158eqtrid 2241 1 (𝜑𝑆 = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), ⟩, ⟨(TopSet‘ndx), 𝐽⟩}))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104   = wceq 1364  wcel 2167  {cab 2182  {crab 2479  Vcvv 2763  csb 3084  cun 3155  {csn 3622  {ctp 3624  cop 3625   class class class wbr 4033  cmpt 4094   × cxp 4661  ccnv 4662  cres 4665  cima 4666   Fn wfn 5253  wf 5254  cfv 5258  (class class class)co 5922  cmpo 5924  𝑓 cof 6133  𝑟 cofr 6134  𝑚 cmap 6707  Fincfn 6799  cle 8062  cmin 8197  cn 8990  0cn0 9249  ndxcnx 12675  Slot cslot 12677  Basecbs 12678  +gcplusg 12755  .rcmulr 12756  Scalarcsca 12758   ·𝑠 cvsca 12759  TopSetcts 12761  TopOpenctopn 12911  tcpt 12926   Σg cgsu 12928   mPwSer cmps 14217
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 615  ax-in2 616  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-cnex 7970  ax-resscn 7971  ax-1cn 7972  ax-1re 7973  ax-icn 7974  ax-addcl 7975  ax-addrcl 7976  ax-mulcl 7977  ax-i2m1 7984
This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-pw 3607  df-sn 3628  df-pr 3629  df-tp 3630  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-id 4328  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-ov 5925  df-oprab 5926  df-mpo 5927  df-of 6135  df-1st 6198  df-2nd 6199  df-map 6709  df-ixp 6758  df-inn 8991  df-2 9049  df-3 9050  df-4 9051  df-5 9052  df-6 9053  df-7 9054  df-8 9055  df-9 9056  df-n0 9250  df-ndx 12681  df-slot 12682  df-base 12684  df-plusg 12768  df-mulr 12769  df-sca 12771  df-vsca 12772  df-tset 12774  df-rest 12912  df-topn 12913  df-topgen 12931  df-pt 12932  df-psr 14218
This theorem is referenced by:  psrbasg  14227  psrplusgg  14230
  Copyright terms: Public domain W3C validator