Metamath Proof Explorer


Theorem mzpexpmpt

Description: Raise a polynomial function to a (fixed) exponent. (Contributed by Stefan O'Rear, 5-Oct-2014)

Ref Expression
Assertion mzpexpmpt xVAmzPolyVD0xVADmzPolyV

Proof

Step Hyp Ref Expression
1 oveq2 a=0Aa=A0
2 1 mpteq2dv a=0xVAa=xVA0
3 2 eleq1d a=0xVAamzPolyVxVA0mzPolyV
4 3 imbi2d a=0xVAmzPolyVxVAamzPolyVxVAmzPolyVxVA0mzPolyV
5 oveq2 a=bAa=Ab
6 5 mpteq2dv a=bxVAa=xVAb
7 6 eleq1d a=bxVAamzPolyVxVAbmzPolyV
8 7 imbi2d a=bxVAmzPolyVxVAamzPolyVxVAmzPolyVxVAbmzPolyV
9 oveq2 a=b+1Aa=Ab+1
10 9 mpteq2dv a=b+1xVAa=xVAb+1
11 10 eleq1d a=b+1xVAamzPolyVxVAb+1mzPolyV
12 11 imbi2d a=b+1xVAmzPolyVxVAamzPolyVxVAmzPolyVxVAb+1mzPolyV
13 oveq2 a=DAa=AD
14 13 mpteq2dv a=DxVAa=xVAD
15 14 eleq1d a=DxVAamzPolyVxVADmzPolyV
16 15 imbi2d a=DxVAmzPolyVxVAamzPolyVxVAmzPolyVxVADmzPolyV
17 mzpf xVAmzPolyVxVA:V
18 zsscn
19 fss xVA:VxVA:V
20 17 18 19 sylancl xVAmzPolyVxVA:V
21 eqid xVA=xVA
22 21 fmpt xVAxVA:V
23 20 22 sylibr xVAmzPolyVxVA
24 nfra1 xxVA
25 rspa xVAxVA
26 25 exp0d xVAxVA0=1
27 24 26 mpteq2da xVAxVA0=xV1
28 23 27 syl xVAmzPolyVxVA0=xV1
29 elfvex xVAmzPolyVVV
30 1z 1
31 mzpconstmpt VV1xV1mzPolyV
32 29 30 31 sylancl xVAmzPolyVxV1mzPolyV
33 28 32 eqeltrd xVAmzPolyVxVA0mzPolyV
34 23 3ad2ant2 b0xVAmzPolyVxVAbmzPolyVxVA
35 simp1 b0xVAmzPolyVxVAbmzPolyVb0
36 nfv xb0
37 24 36 nfan xxVAb0
38 25 adantlr xVAb0xVA
39 simplr xVAb0xVb0
40 38 39 expp1d xVAb0xVAb+1=AbA
41 37 40 mpteq2da xVAb0xVAb+1=xVAbA
42 34 35 41 syl2anc b0xVAmzPolyVxVAbmzPolyVxVAb+1=xVAbA
43 simp3 b0xVAmzPolyVxVAbmzPolyVxVAbmzPolyV
44 simp2 b0xVAmzPolyVxVAbmzPolyVxVAmzPolyV
45 mzpmulmpt xVAbmzPolyVxVAmzPolyVxVAbAmzPolyV
46 43 44 45 syl2anc b0xVAmzPolyVxVAbmzPolyVxVAbAmzPolyV
47 42 46 eqeltrd b0xVAmzPolyVxVAbmzPolyVxVAb+1mzPolyV
48 47 3exp b0xVAmzPolyVxVAbmzPolyVxVAb+1mzPolyV
49 48 a2d b0xVAmzPolyVxVAbmzPolyVxVAmzPolyVxVAb+1mzPolyV
50 4 8 12 16 33 49 nn0ind D0xVAmzPolyVxVADmzPolyV
51 50 impcom xVAmzPolyVD0xVADmzPolyV