Theorem pwsval 17440

Description: Value of a structure power. (Contributed by Mario Carneiro, 11-Jan-2015.)

Hypotheses

Ref	Expression
pwsval.y	⊢ 𝑌 = (𝑅 ↑s 𝐼)
pwsval.f	⊢ 𝐹 = (Scalar‘𝑅)

Assertion

Ref	Expression
pwsval	⊢ ((𝑅 ∈ 𝑉 ∧ 𝐼 ∈ 𝑊) → 𝑌 = (𝐹Xs(𝐼 × {𝑅})))

Proof of Theorem pwsval

Dummy variables 𝑖 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pwsval.y	. 2 ⊢ 𝑌 = (𝑅 ↑s 𝐼)
2		elex 3451	. . 3 ⊢ (𝑅 ∈ 𝑉 → 𝑅 ∈ V)
3		elex 3451	. . 3 ⊢ (𝐼 ∈ 𝑊 → 𝐼 ∈ V)
4		simpl 482	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → 𝑟 = 𝑅)
5	4	fveq2d 6838	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (Scalar‘𝑟) = (Scalar‘𝑅))
6		pwsval.f	. . . . . 6 ⊢ 𝐹 = (Scalar‘𝑅)
7	5, 6	eqtr4di 2790	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (Scalar‘𝑟) = 𝐹)
8		id 22	. . . . . 6 ⊢ (𝑖 = 𝐼 → 𝑖 = 𝐼)
9		sneq 4578	. . . . . 6 ⊢ (𝑟 = 𝑅 → {𝑟} = {𝑅})
10		xpeq12 5649	. . . . . 6 ⊢ ((𝑖 = 𝐼 ∧ {𝑟} = {𝑅}) → (𝑖 × {𝑟}) = (𝐼 × {𝑅}))
11	8, 9, 10	syl2anr 598	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (𝑖 × {𝑟}) = (𝐼 × {𝑅}))
12	7, 11	oveq12d 7378	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → ((Scalar‘𝑟)Xs(𝑖 × {𝑟})) = (𝐹Xs(𝐼 × {𝑅})))
13		df-pws 17403	. . . 4 ⊢ ↑s = (𝑟 ∈ V, 𝑖 ∈ V ↦ ((Scalar‘𝑟)Xs(𝑖 × {𝑟})))
14		ovex 7393	. . . 4 ⊢ (𝐹Xs(𝐼 × {𝑅})) ∈ V
15	12, 13, 14	ovmpoa 7515	. . 3 ⊢ ((𝑅 ∈ V ∧ 𝐼 ∈ V) → (𝑅 ↑s 𝐼) = (𝐹Xs(𝐼 × {𝑅})))
16	2, 3, 15	syl2an 597	. 2 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝐼 ∈ 𝑊) → (𝑅 ↑s 𝐼) = (𝐹Xs(𝐼 × {𝑅})))
17	1, 16	eqtrid 2784	1 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝐼 ∈ 𝑊) → 𝑌 = (𝐹Xs(𝐼 × {𝑅})))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  Vcvv 3430  {csn 4568   × cxp 5622  ‘cfv 6492  (class class class)co 7360  Scalarcsca 17214  X_scprds 17399   ↑_s cpws 17400

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pr 5370

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-sbc 3730  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-id 5519  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-iota 6448  df-fun 6494  df-fv 6500  df-ov 7363  df-oprab 7364  df-mpo 7365  df-pws 17403

This theorem is referenced by:  pwsbas  17441  pwsplusgval  17445  pwsmulrval  17446  pwsle  17447  pwsvscafval  17449  pwssca  17451  pwsmnd  18731  pws0g  18732  pwspjmhm  18789  pwsgrp  19019  pwsinvg  19020  pwscmn  19829  pwsabl  19830  pwsgsum  19948  pwsring  20294  pws1  20295  pwscrng  20296  pwsmgp  20297  pwslmod  20956  frlmpws  21740  frlmlss  21741  frlmpwsfi  21742  frlmbas  21745  frlmip  21768  pwstps  23605  resspwsds  24347  pwsxms  24507  pwsms  24508  rrxprds  25366  cnpwstotbnd  38132  repwsmet  38169  rrnequiv  38170