Metamath Proof Explorer


Theorem bpolylem

Description: Lemma for bpolyval . (Contributed by Scott Fenton, 22-May-2014) (Revised by Mario Carneiro, 23-Aug-2014)

Ref Expression
Hypotheses bpoly.1 G = g V dom g / n X n k dom g ( n k) g k n - k + 1
bpoly.2 F = wrecs < 0 G
Assertion bpolylem N 0 X N BernPoly X = X N k = 0 N 1 ( N k) k BernPoly X N - k + 1

Proof

Step Hyp Ref Expression
1 bpoly.1 G = g V dom g / n X n k dom g ( n k) g k n - k + 1
2 bpoly.2 F = wrecs < 0 G
3 oveq1 x = X x n = X n
4 3 oveq1d x = X x n k dom g ( n k) g k n - k + 1 = X n k dom g ( n k) g k n - k + 1
5 4 csbeq2dv x = X dom g / n x n k dom g ( n k) g k n - k + 1 = dom g / n X n k dom g ( n k) g k n - k + 1
6 5 mpteq2dv x = X g V dom g / n x n k dom g ( n k) g k n - k + 1 = g V dom g / n X n k dom g ( n k) g k n - k + 1
7 6 1 eqtr4di x = X g V dom g / n x n k dom g ( n k) g k n - k + 1 = G
8 wrecseq3 g V dom g / n x n k dom g ( n k) g k n - k + 1 = G wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 = wrecs < 0 G
9 7 8 syl x = X wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 = wrecs < 0 G
10 9 2 eqtr4di x = X wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 = F
11 10 fveq1d x = X wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 m = F m
12 fveq2 m = N F m = F N
13 11 12 sylan9eqr m = N x = X wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 m = F N
14 df-bpoly BernPoly = m 0 , x wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 m
15 fvex F N V
16 13 14 15 ovmpoa N 0 X N BernPoly X = F N
17 ltweuz < We 0
18 nn0uz 0 = 0
19 weeq2 0 = 0 < We 0 < We 0
20 18 19 ax-mp < We 0 < We 0
21 17 20 mpbir < We 0
22 nn0ex 0 V
23 exse 0 V < Se 0
24 22 23 ax-mp < Se 0
25 21 24 2 wfr2 N 0 F N = G F Pred < 0 N
26 25 adantr N 0 X F N = G F Pred < 0 N
27 prednn0 N 0 Pred < 0 N = 0 N 1
28 27 adantr N 0 X Pred < 0 N = 0 N 1
29 28 reseq2d N 0 X F Pred < 0 N = F 0 N 1
30 29 fveq2d N 0 X G F Pred < 0 N = G F 0 N 1
31 21 24 2 wfrfun Fun F
32 ovex 0 N 1 V
33 resfunexg Fun F 0 N 1 V F 0 N 1 V
34 31 32 33 mp2an F 0 N 1 V
35 dmeq g = F 0 N 1 dom g = dom F 0 N 1
36 21 24 2 wfr1 F Fn 0
37 fz0ssnn0 0 N 1 0
38 fnssres F Fn 0 0 N 1 0 F 0 N 1 Fn 0 N 1
39 36 37 38 mp2an F 0 N 1 Fn 0 N 1
40 39 fndmi dom F 0 N 1 = 0 N 1
41 35 40 eqtrdi g = F 0 N 1 dom g = 0 N 1
42 fveq1 g = F 0 N 1 g k = F 0 N 1 k
43 fvres k 0 N 1 F 0 N 1 k = F k
44 42 43 sylan9eq g = F 0 N 1 k 0 N 1 g k = F k
45 44 oveq1d g = F 0 N 1 k 0 N 1 g k n - k + 1 = F k n - k + 1
46 45 oveq2d g = F 0 N 1 k 0 N 1 ( n k) g k n - k + 1 = ( n k) F k n - k + 1
47 41 46 sumeq12rdv g = F 0 N 1 k dom g ( n k) g k n - k + 1 = k = 0 N 1 ( n k) F k n - k + 1
48 47 oveq2d g = F 0 N 1 X n k dom g ( n k) g k n - k + 1 = X n k = 0 N 1 ( n k) F k n - k + 1
49 48 csbeq2dv g = F 0 N 1 dom g / n X n k dom g ( n k) g k n - k + 1 = dom g / n X n k = 0 N 1 ( n k) F k n - k + 1
50 41 fveq2d g = F 0 N 1 dom g = 0 N 1
51 50 csbeq1d g = F 0 N 1 dom g / n X n k = 0 N 1 ( n k) F k n - k + 1 = 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1
52 49 51 eqtrd g = F 0 N 1 dom g / n X n k dom g ( n k) g k n - k + 1 = 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1
53 ovex X n k = 0 N 1 ( n k) F k n - k + 1 V
54 53 csbex 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1 V
55 52 1 54 fvmpt F 0 N 1 V G F 0 N 1 = 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1
56 34 55 ax-mp G F 0 N 1 = 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1
57 nfcvd N 0 _ n X N k = 0 N 1 ( N k) F k N - k + 1
58 oveq2 n = N X n = X N
59 oveq1 n = N ( n k) = ( N k)
60 oveq1 n = N n k = N k
61 60 oveq1d n = N n - k + 1 = N - k + 1
62 61 oveq2d n = N F k n - k + 1 = F k N - k + 1
63 59 62 oveq12d n = N ( n k) F k n - k + 1 = ( N k) F k N - k + 1
64 63 sumeq2sdv n = N k = 0 N 1 ( n k) F k n - k + 1 = k = 0 N 1 ( N k) F k N - k + 1
65 58 64 oveq12d n = N X n k = 0 N 1 ( n k) F k n - k + 1 = X N k = 0 N 1 ( N k) F k N - k + 1
66 57 65 csbiegf N 0 N / n X n k = 0 N 1 ( n k) F k n - k + 1 = X N k = 0 N 1 ( N k) F k N - k + 1
67 66 adantr N 0 X N / n X n k = 0 N 1 ( n k) F k n - k + 1 = X N k = 0 N 1 ( N k) F k N - k + 1
68 nn0z N 0 N
69 fz01en N 0 N 1 1 N
70 68 69 syl N 0 0 N 1 1 N
71 fzfi 0 N 1 Fin
72 fzfi 1 N Fin
73 hashen 0 N 1 Fin 1 N Fin 0 N 1 = 1 N 0 N 1 1 N
74 71 72 73 mp2an 0 N 1 = 1 N 0 N 1 1 N
75 70 74 sylibr N 0 0 N 1 = 1 N
76 hashfz1 N 0 1 N = N
77 75 76 eqtrd N 0 0 N 1 = N
78 77 adantr N 0 X 0 N 1 = N
79 78 csbeq1d N 0 X 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1 = N / n X n k = 0 N 1 ( n k) F k n - k + 1
80 elfznn0 k 0 N 1 k 0
81 simpr N 0 X X
82 fveq2 m = k F m = F k
83 11 82 sylan9eqr m = k x = X wrecs < 0 g V dom g / n x n k dom g ( n k) g k n - k + 1 m = F k
84 fvex F k V
85 83 14 84 ovmpoa k 0 X k BernPoly X = F k
86 80 81 85 syl2anr N 0 X k 0 N 1 k BernPoly X = F k
87 86 oveq1d N 0 X k 0 N 1 k BernPoly X N - k + 1 = F k N - k + 1
88 87 oveq2d N 0 X k 0 N 1 ( N k) k BernPoly X N - k + 1 = ( N k) F k N - k + 1
89 88 sumeq2dv N 0 X k = 0 N 1 ( N k) k BernPoly X N - k + 1 = k = 0 N 1 ( N k) F k N - k + 1
90 89 oveq2d N 0 X X N k = 0 N 1 ( N k) k BernPoly X N - k + 1 = X N k = 0 N 1 ( N k) F k N - k + 1
91 67 79 90 3eqtr4d N 0 X 0 N 1 / n X n k = 0 N 1 ( n k) F k n - k + 1 = X N k = 0 N 1 ( N k) k BernPoly X N - k + 1
92 56 91 syl5eq N 0 X G F 0 N 1 = X N k = 0 N 1 ( N k) k BernPoly X N - k + 1
93 30 92 eqtrd N 0 X G F Pred < 0 N = X N k = 0 N 1 ( N k) k BernPoly X N - k + 1
94 16 26 93 3eqtrd N 0 X N BernPoly X = X N k = 0 N 1 ( N k) k BernPoly X N - k + 1