Theorem pwsval 17449

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 3450	. . 3 ⊢ (𝑅 ∈ 𝑉 → 𝑅 ∈ V)
3		elex 3450	. . 3 ⊢ (𝐼 ∈ 𝑊 → 𝐼 ∈ V)
4		simpl 482	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → 𝑟 = 𝑅)
5	4	fveq2d 6844	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (Scalar‘𝑟) = (Scalar‘𝑅))
6		pwsval.f	. . . . . 6 ⊢ 𝐹 = (Scalar‘𝑅)
7	5, 6	eqtr4di 2789	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (Scalar‘𝑟) = 𝐹)
8		id 22	. . . . . 6 ⊢ (𝑖 = 𝐼 → 𝑖 = 𝐼)
9		sneq 4577	. . . . . 6 ⊢ (𝑟 = 𝑅 → {𝑟} = {𝑅})
10		xpeq12 5656	. . . . . 6 ⊢ ((𝑖 = 𝐼 ∧ {𝑟} = {𝑅}) → (𝑖 × {𝑟}) = (𝐼 × {𝑅}))
11	8, 9, 10	syl2anr 598	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → (𝑖 × {𝑟}) = (𝐼 × {𝑅}))
12	7, 11	oveq12d 7385	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑖 = 𝐼) → ((Scalar‘𝑟)Xs(𝑖 × {𝑟})) = (𝐹Xs(𝐼 × {𝑅})))
13		df-pws 17412	. . . 4 ⊢ ↑s = (𝑟 ∈ V, 𝑖 ∈ V ↦ ((Scalar‘𝑟)Xs(𝑖 × {𝑟})))
14		ovex 7400	. . . 4 ⊢ (𝐹Xs(𝐼 × {𝑅})) ∈ V
15	12, 13, 14	ovmpoa 7522	. . 3 ⊢ ((𝑅 ∈ V ∧ 𝐼 ∈ V) → (𝑅 ↑s 𝐼) = (𝐹Xs(𝐼 × {𝑅})))
16	2, 3, 15	syl2an 597	. 2 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝐼 ∈ 𝑊) → (𝑅 ↑s 𝐼) = (𝐹Xs(𝐼 × {𝑅})))
17	1, 16	eqtrid 2783	1 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝐼 ∈ 𝑊) → 𝑌 = (𝐹Xs(𝐼 × {𝑅})))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  Vcvv 3429  {csn 4567   × cxp 5629  ‘cfv 6498  (class class class)co 7367  Scalarcsca 17223  X_scprds 17408   ↑_s cpws 17409

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 2708  ax-sep 5231  ax-nul 5241  ax-pr 5375

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 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3062  df-rab 3390  df-v 3431  df-sbc 3729  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-nul 4274  df-if 4467  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-br 5086  df-opab 5148  df-id 5526  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-iota 6454  df-fun 6500  df-fv 6506  df-ov 7370  df-oprab 7371  df-mpo 7372  df-pws 17412

This theorem is referenced by:  pwsbas  17450  pwsplusgval  17454  pwsmulrval  17455  pwsle  17456  pwsvscafval  17458  pwssca  17460  pwsmnd  18740  pws0g  18741  pwspjmhm  18798  pwsgrp  19028  pwsinvg  19029  pwscmn  19838  pwsabl  19839  pwsgsum  19957  pwsring  20303  pws1  20304  pwscrng  20305  pwsmgp  20306  pwslmod  20965  frlmpws  21730  frlmlss  21731  frlmpwsfi  21732  frlmbas  21735  frlmip  21758  pwstps  23595  resspwsds  24337  pwsxms  24497  pwsms  24498  rrxprds  25356  cnpwstotbnd  38118  repwsmet  38155  rrnequiv  38156