Metamath Proof Explorer


Theorem pwsgrp

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

Ref Expression
Hypothesis pwsgrp.y Y=R𝑠I
Assertion pwsgrp RGrpIVYGrp

Proof

Step Hyp Ref Expression
1 pwsgrp.y Y=R𝑠I
2 eqid ScalarR=ScalarR
3 1 2 pwsval RGrpIVY=ScalarR𝑠I×R
4 eqid ScalarR𝑠I×R=ScalarR𝑠I×R
5 simpr RGrpIVIV
6 fvexd RGrpIVScalarRV
7 fconst6g RGrpI×R:IGrp
8 7 adantr RGrpIVI×R:IGrp
9 4 5 6 8 prdsgrpd RGrpIVScalarR𝑠I×RGrp
10 3 9 eqeltrd RGrpIVYGrp