MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  bpoly4 Structured version   Visualization version   Unicode version

Theorem bpoly4 14105
Description: The Bernoulli polynomials at four. (Contributed by Scott Fenton, 8-Jul-2015.)
Assertion
Ref Expression
bpoly4  |-  ( X  e.  CC  ->  (
4 BernPoly  X )  =  ( ( ( ( X ^ 4 )  -  ( 2  x.  ( X ^ 3 ) ) )  +  ( X ^ 2 ) )  -  ( 1  / ; 3 0 ) ) )

Proof of Theorem bpoly4
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 4nn0 10885 . . 3  |-  4  e.  NN0
2 bpolyval 14095 . . 3  |-  ( ( 4  e.  NN0  /\  X  e.  CC )  ->  ( 4 BernPoly  X )  =  ( ( X ^ 4 )  -  sum_ k  e.  ( 0 ... ( 4  -  1 ) ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) ) ) )
31, 2mpan 675 . 2  |-  ( X  e.  CC  ->  (
4 BernPoly  X )  =  ( ( X ^ 4 )  -  sum_ k  e.  ( 0 ... (
4  -  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) ) ) )
4 4cn 10684 . . . . . . . 8  |-  4  e.  CC
5 ax-1cn 9594 . . . . . . . 8  |-  1  e.  CC
6 3cn 10681 . . . . . . . 8  |-  3  e.  CC
7 3p1e4 10732 . . . . . . . . 9  |-  ( 3  +  1 )  =  4
86, 5, 7addcomli 9822 . . . . . . . 8  |-  ( 1  +  3 )  =  4
94, 5, 6, 8subaddrii 9961 . . . . . . 7  |-  ( 4  -  1 )  =  3
10 df-3 10666 . . . . . . 7  |-  3  =  ( 2  +  1 )
119, 10eqtri 2472 . . . . . 6  |-  ( 4  -  1 )  =  ( 2  +  1 )
1211oveq2i 6299 . . . . 5  |-  ( 0 ... ( 4  -  1 ) )  =  ( 0 ... (
2  +  1 ) )
1312sumeq1i 13757 . . . 4  |-  sum_ k  e.  ( 0 ... (
4  -  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  sum_ k  e.  ( 0 ... (
2  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )
14 2eluzge0 11200 . . . . . . 7  |-  2  e.  ( ZZ>= `  0 )
1514a1i 11 . . . . . 6  |-  ( X  e.  CC  ->  2  e.  ( ZZ>= `  0 )
)
16 elfzelz 11797 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  ZZ )
17 bccl 12504 . . . . . . . . . 10  |-  ( ( 4  e.  NN0  /\  k  e.  ZZ )  ->  ( 4  _C  k
)  e.  NN0 )
181, 16, 17sylancr 668 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  NN0 )
1918nn0cnd 10924 . . . . . . . 8  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  CC )
2019adantl 468 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( 4  _C  k )  e.  CC )
21 elfznn0 11884 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  NN0 )
22 bpolycl 14098 . . . . . . . . . 10  |-  ( ( k  e.  NN0  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2321, 22sylan 474 . . . . . . . . 9  |-  ( ( k  e.  ( 0 ... ( 2  +  1 ) )  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2423ancoms 455 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( k BernPoly  X
)  e.  CC )
25 4re 10683 . . . . . . . . . . . . 13  |-  4  e.  RR
2625a1i 11 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  4  e.  RR )
2716zred 11037 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  RR )
2826, 27resubcld 10044 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  -  k )  e.  RR )
29 peano2re 9803 . . . . . . . . . . 11  |-  ( ( 4  -  k )  e.  RR  ->  (
( 4  -  k
)  +  1 )  e.  RR )
3028, 29syl 17 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  e.  RR )
3130recnd 9666 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  e.  CC )
3231adantl 468 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  e.  CC )
33 1red 9655 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  1  e.  RR )
3410oveq2i 6299 . . . . . . . . . . . . . 14  |-  ( 0 ... 3 )  =  ( 0 ... (
2  +  1 ) )
3534eleq2i 2520 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  <->  k  e.  ( 0 ... (
2  +  1 ) ) )
36 elfzelz 11797 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  ZZ )
3736zred 11037 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  RR )
38 3re 10680 . . . . . . . . . . . . . . 15  |-  3  e.  RR
3938a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  3  e.  RR )
4025a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  4  e.  RR )
41 elfzle2 11800 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  <_  3 )
42 3lt4 10776 . . . . . . . . . . . . . . 15  |-  3  <  4
4342a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  3  <  4 )
4437, 39, 40, 41, 43lelttrd 9790 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  ->  k  <  4 )
4535, 44sylbir 217 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  <  4 )
4627, 26posdifd 10197 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
k  <  4  <->  0  <  ( 4  -  k ) ) )
4745, 46mpbid 214 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( 4  -  k
) )
48 0lt1 10133 . . . . . . . . . . . 12  |-  0  <  1
4948a1i 11 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  1 )
5028, 33, 47, 49addgt0d 10185 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( ( 4  -  k )  +  1 ) )
5150gt0ne0d 10175 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  =/=  0 )
5251adantl 468 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  =/=  0
)
5324, 32, 52divcld 10380 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) )  e.  CC )
5420, 53mulcld 9660 . . . . . 6  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
5510eqeq2i 2462 . . . . . . 7  |-  ( k  =  3  <->  k  =  ( 2  +  1 ) )
56 oveq2 6296 . . . . . . . . 9  |-  ( k  =  3  ->  (
4  _C  k )  =  ( 4  _C  3 ) )
57 4bc3eq4 12510 . . . . . . . . 9  |-  ( 4  _C  3 )  =  4
5856, 57syl6eq 2500 . . . . . . . 8  |-  ( k  =  3  ->  (
4  _C  k )  =  4 )
59 oveq1 6295 . . . . . . . . 9  |-  ( k  =  3  ->  (
k BernPoly  X )  =  ( 3 BernPoly  X ) )
60 oveq2 6296 . . . . . . . . . . 11  |-  ( k  =  3  ->  (
4  -  k )  =  ( 4  -  3 ) )
6160oveq1d 6303 . . . . . . . . . 10  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  3 )  +  1 ) )
624, 6, 5, 7subaddrii 9961 . . . . . . . . . . . 12  |-  ( 4  -  3 )  =  1
6362oveq1i 6298 . . . . . . . . . . 11  |-  ( ( 4  -  3 )  +  1 )  =  ( 1  +  1 )
64 df-2 10665 . . . . . . . . . . 11  |-  2  =  ( 1  +  1 )
6563, 64eqtr4i 2475 . . . . . . . . . 10  |-  ( ( 4  -  3 )  +  1 )  =  2
6661, 65syl6eq 2500 . . . . . . . . 9  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  2 )
6759, 66oveq12d 6306 . . . . . . . 8  |-  ( k  =  3  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 3 BernPoly  X
)  /  2 ) )
6858, 67oveq12d 6306 . . . . . . 7  |-  ( k  =  3  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
6955, 68sylbir 217 . . . . . 6  |-  ( k  =  ( 2  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
7015, 54, 69fsump1 13810 . . . . 5  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
2  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( sum_ k  e.  ( 0 ... 2 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) ) )
7164oveq2i 6299 . . . . . . . 8  |-  ( 0 ... 2 )  =  ( 0 ... (
1  +  1 ) )
7271sumeq1i 13757 . . . . . . 7  |-  sum_ k  e.  ( 0 ... 2
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  sum_ k  e.  ( 0 ... (
1  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )
73 1eluzge0 11199 . . . . . . . . . 10  |-  1  e.  ( ZZ>= `  0 )
7473a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  1  e.  ( ZZ>= `  0 )
)
75 fzssp1 11838 . . . . . . . . . . . 12  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
( 1  +  1 )  +  1 ) )
7664oveq1i 6298 . . . . . . . . . . . . 13  |-  ( 2  +  1 )  =  ( ( 1  +  1 )  +  1 )
7776oveq2i 6299 . . . . . . . . . . . 12  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... (
( 1  +  1 )  +  1 ) )
7875, 77sseqtr4i 3464 . . . . . . . . . . 11  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
7978sseli 3427 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 1  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
8079, 54sylan2 477 . . . . . . . . 9  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 1  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
8164eqeq2i 2462 . . . . . . . . . 10  |-  ( k  =  2  <->  k  =  ( 1  +  1 ) )
82 oveq2 6296 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
4  _C  k )  =  ( 4  _C  2 ) )
83 4bc2eq6 12511 . . . . . . . . . . . 12  |-  ( 4  _C  2 )  =  6
8482, 83syl6eq 2500 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
4  _C  k )  =  6 )
85 oveq1 6295 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
k BernPoly  X )  =  ( 2 BernPoly  X ) )
86 oveq2 6296 . . . . . . . . . . . . . 14  |-  ( k  =  2  ->  (
4  -  k )  =  ( 4  -  2 ) )
8786oveq1d 6303 . . . . . . . . . . . . 13  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  2 )  +  1 ) )
88 2cn 10677 . . . . . . . . . . . . . . . 16  |-  2  e.  CC
89 2p2e4 10724 . . . . . . . . . . . . . . . 16  |-  ( 2  +  2 )  =  4
904, 88, 88, 89subaddrii 9961 . . . . . . . . . . . . . . 15  |-  ( 4  -  2 )  =  2
9190oveq1i 6298 . . . . . . . . . . . . . 14  |-  ( ( 4  -  2 )  +  1 )  =  ( 2  +  1 )
9291, 10eqtr4i 2475 . . . . . . . . . . . . 13  |-  ( ( 4  -  2 )  +  1 )  =  3
9387, 92syl6eq 2500 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  3 )
9485, 93oveq12d 6306 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 2 BernPoly  X
)  /  3 ) )
9584, 94oveq12d 6306 . . . . . . . . . 10  |-  ( k  =  2  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
9681, 95sylbir 217 . . . . . . . . 9  |-  ( k  =  ( 1  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
9774, 80, 96fsump1 13810 . . . . . . . 8  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
1  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( sum_ k  e.  ( 0 ... 1 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) ) )
98 0p1e1 10718 . . . . . . . . . . . 12  |-  ( 0  +  1 )  =  1
9998oveq2i 6299 . . . . . . . . . . 11  |-  ( 0 ... ( 0  +  1 ) )  =  ( 0 ... 1
)
10099sumeq1i 13757 . . . . . . . . . 10  |-  sum_ k  e.  ( 0 ... (
0  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  sum_ k  e.  ( 0 ... 1
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )
101 0nn0 10881 . . . . . . . . . . . . . 14  |-  0  e.  NN0
102 nn0uz 11190 . . . . . . . . . . . . . 14  |-  NN0  =  ( ZZ>= `  0 )
103101, 102eleqtri 2526 . . . . . . . . . . . . 13  |-  0  e.  ( ZZ>= `  0 )
104103a1i 11 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  0  e.  ( ZZ>= `  0 )
)
105 3nn 10765 . . . . . . . . . . . . . . . . 17  |-  3  e.  NN
106 nnuz 11191 . . . . . . . . . . . . . . . . 17  |-  NN  =  ( ZZ>= `  1 )
107105, 106eleqtri 2526 . . . . . . . . . . . . . . . 16  |-  3  e.  ( ZZ>= `  1 )
108 fzss2 11835 . . . . . . . . . . . . . . . 16  |-  ( 3  e.  ( ZZ>= `  1
)  ->  ( 0 ... 1 )  C_  ( 0 ... 3
) )
109107, 108ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( 0 ... 1 )  C_  ( 0 ... 3
)
110 2p1e3 10730 . . . . . . . . . . . . . . . 16  |-  ( 2  +  1 )  =  3
111110oveq2i 6299 . . . . . . . . . . . . . . 15  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... 3
)
112109, 99, 1113sstr4i 3470 . . . . . . . . . . . . . 14  |-  ( 0 ... ( 0  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
113112sseli 3427 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... ( 0  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
114113, 54sylan2 477 . . . . . . . . . . . 12  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 0  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
11598eqeq2i 2462 . . . . . . . . . . . . 13  |-  ( k  =  ( 0  +  1 )  <->  k  = 
1 )
116 oveq2 6296 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
4  _C  k )  =  ( 4  _C  1 ) )
117 bcn1 12495 . . . . . . . . . . . . . . . 16  |-  ( 4  e.  NN0  ->  ( 4  _C  1 )  =  4 )
1181, 117ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( 4  _C  1 )  =  4
119116, 118syl6eq 2500 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
4  _C  k )  =  4 )
120 oveq1 6295 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
k BernPoly  X )  =  ( 1 BernPoly  X ) )
121 oveq2 6296 . . . . . . . . . . . . . . . . 17  |-  ( k  =  1  ->  (
4  -  k )  =  ( 4  -  1 ) )
122121oveq1d 6303 . . . . . . . . . . . . . . . 16  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  1 )  +  1 ) )
1239oveq1i 6298 . . . . . . . . . . . . . . . . 17  |-  ( ( 4  -  1 )  +  1 )  =  ( 3  +  1 )
124 df-4 10667 . . . . . . . . . . . . . . . . 17  |-  4  =  ( 3  +  1 )
125123, 124eqtr4i 2475 . . . . . . . . . . . . . . . 16  |-  ( ( 4  -  1 )  +  1 )  =  4
126122, 125syl6eq 2500 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  4 )
127120, 126oveq12d 6306 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 1 BernPoly  X
)  /  4 ) )
128119, 127oveq12d 6306 . . . . . . . . . . . . 13  |-  ( k  =  1  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
129115, 128sylbi 199 . . . . . . . . . . . 12  |-  ( k  =  ( 0  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
130104, 114, 129fsump1 13810 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
0  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( sum_ k  e.  ( 0 ... 0 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) ) )
131 0z 10945 . . . . . . . . . . . . . 14  |-  0  e.  ZZ
1325a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  1  e.  CC )
133 bpolycl 14098 . . . . . . . . . . . . . . . . 17  |-  ( ( 0  e.  NN0  /\  X  e.  CC )  ->  ( 0 BernPoly  X )  e.  CC )
134101, 133mpan 675 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  e.  CC )
135 5cn 10686 . . . . . . . . . . . . . . . . 17  |-  5  e.  CC
136135a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  e.  CC )
137 0re 9640 . . . . . . . . . . . . . . . . . 18  |-  0  e.  RR
138 5pos 10704 . . . . . . . . . . . . . . . . . 18  |-  0  <  5
139137, 138gtneii 9743 . . . . . . . . . . . . . . . . 17  |-  5  =/=  0
140139a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  =/=  0 )
141134, 136, 140divcld 10380 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  e.  CC )
142132, 141mulcld 9660 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  e.  CC )
143 oveq2 6296 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
4  _C  k )  =  ( 4  _C  0 ) )
144 bcn0 12492 . . . . . . . . . . . . . . . . . 18  |-  ( 4  e.  NN0  ->  ( 4  _C  0 )  =  1 )
1451, 144ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  ( 4  _C  0 )  =  1
146143, 145syl6eq 2500 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
4  _C  k )  =  1 )
147 oveq1 6295 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
k BernPoly  X )  =  ( 0 BernPoly  X ) )
148 oveq2 6296 . . . . . . . . . . . . . . . . . . 19  |-  ( k  =  0  ->  (
4  -  k )  =  ( 4  -  0 ) )
149148oveq1d 6303 . . . . . . . . . . . . . . . . . 18  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  0 )  +  1 ) )
1504subid1i 9943 . . . . . . . . . . . . . . . . . . . 20  |-  ( 4  -  0 )  =  4
151150oveq1i 6298 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 4  -  0 )  +  1 )  =  ( 4  +  1 )
152 4p1e5 10733 . . . . . . . . . . . . . . . . . . 19  |-  ( 4  +  1 )  =  5
153151, 152eqtri 2472 . . . . . . . . . . . . . . . . . 18  |-  ( ( 4  -  0 )  +  1 )  =  5
154149, 153syl6eq 2500 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  5 )
155147, 154oveq12d 6306 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 0 BernPoly  X
)  /  5 ) )
156146, 155oveq12d 6306 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 1  x.  ( ( 0 BernPoly  X )  /  5
) ) )
157156fsum1 13801 . . . . . . . . . . . . . 14  |-  ( ( 0  e.  ZZ  /\  ( 1  x.  (
( 0 BernPoly  X )  /  5 ) )  e.  CC )  ->  sum_ k  e.  ( 0 ... 0 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 1  x.  ( ( 0 BernPoly  X )  /  5
) ) )
158131, 142, 157sylancr 668 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 0
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( 1  x.  ( ( 0 BernPoly  X )  /  5
) ) )
159 bpoly0 14096 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  =  1 )
160159oveq1d 6303 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  =  ( 1  /  5
) )
161160oveq2d 6304 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  x.  ( 1  /  5 ) ) )
162135, 139reccli 10334 . . . . . . . . . . . . . . 15  |-  ( 1  /  5 )  e.  CC
163162mulid2i 9643 . . . . . . . . . . . . . 14  |-  ( 1  x.  ( 1  / 
5 ) )  =  ( 1  /  5
)
164161, 163syl6eq 2500 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  /  5 ) )
165158, 164eqtrd 2484 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 0
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( 1  /  5 ) )
166 1nn0 10882 . . . . . . . . . . . . . . 15  |-  1  e.  NN0
167 bpolycl 14098 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  NN0  /\  X  e.  CC )  ->  ( 1 BernPoly  X )  e.  CC )
168166, 167mpan 675 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  e.  CC )
169 nn0cn 10876 . . . . . . . . . . . . . . 15  |-  ( 4  e.  NN0  ->  4  e.  CC )
1701, 169mp1i 13 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  e.  CC )
171 4ne0 10703 . . . . . . . . . . . . . . 15  |-  4  =/=  0
172171a1i 11 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  =/=  0 )
173168, 170, 172divcan2d 10382 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( 1 BernPoly  X ) )
174 bpoly1 14097 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  =  ( X  -  ( 1  /  2 ) ) )
175173, 174eqtrd 2484 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( X  -  ( 1  /  2 ) ) )
176165, 175oveq12d 6306 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  ( sum_ k  e.  ( 0 ... 0 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )  =  ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) ) )
177130, 176eqtrd 2484 . . . . . . . . . 10  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
0  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) ) )
178100, 177syl5eqr 2498 . . . . . . . . 9  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 1
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) ) )
179 6cn 10688 . . . . . . . . . . . 12  |-  6  e.  CC
180179a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  6  e.  CC )
181 2nn0 10883 . . . . . . . . . . . 12  |-  2  e.  NN0
182 bpolycl 14098 . . . . . . . . . . . 12  |-  ( ( 2  e.  NN0  /\  X  e.  CC )  ->  ( 2 BernPoly  X )  e.  CC )
183181, 182mpan 675 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  e.  CC )
1846a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  e.  CC )
185 3ne0 10701 . . . . . . . . . . . 12  |-  3  =/=  0
186185a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  =/=  0 )
187180, 183, 184, 186div12d 10416 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( ( 2 BernPoly  X )  x.  ( 6  / 
3 ) ) )
188 3t2e6 10758 . . . . . . . . . . . . 13  |-  ( 3  x.  2 )  =  6
189179, 6, 88, 185divmuli 10358 . . . . . . . . . . . . 13  |-  ( ( 6  /  3 )  =  2  <->  ( 3  x.  2 )  =  6 )
190188, 189mpbir 213 . . . . . . . . . . . 12  |-  ( 6  /  3 )  =  2
191190oveq2i 6299 . . . . . . . . . . 11  |-  ( ( 2 BernPoly  X )  x.  (
6  /  3 ) )  =  ( ( 2 BernPoly  X )  x.  2 )
19288a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  2  e.  CC )
193183, 192mulcomd 9661 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 2 BernPoly  X ) ) )
194 bpoly2 14103 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  =  ( ( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) )
195194oveq2d 6304 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
2  x.  ( 2 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) )
196193, 195eqtrd 2484 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
197191, 196syl5eq 2496 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  ( 6  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
198187, 197eqtrd 2484 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
199178, 198oveq12d 6306 . . . . . . . 8  |-  ( X  e.  CC  ->  ( sum_ k  e.  ( 0 ... 1 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  (
1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) ) )
20097, 199eqtrd 2484 . . . . . . 7  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
1  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )
20172, 200syl5eq 2496 . . . . . 6  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 2
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )
202 3nn0 10884 . . . . . . . . 9  |-  3  e.  NN0
203 bpolycl 14098 . . . . . . . . 9  |-  ( ( 3  e.  NN0  /\  X  e.  CC )  ->  ( 3 BernPoly  X )  e.  CC )
204202, 203mpan 675 . . . . . . . 8  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  e.  CC )
205 2ne0 10699 . . . . . . . . 9  |-  2  =/=  0
206205a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  2  =/=  0 )
207170, 204, 192, 206div12d 10416 . . . . . . 7  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( ( 3 BernPoly  X )  x.  ( 4  / 
2 ) ) )
208 4d2e2 10763 . . . . . . . . 9  |-  ( 4  /  2 )  =  2
209208oveq2i 6299 . . . . . . . 8  |-  ( ( 3 BernPoly  X )  x.  (
4  /  2 ) )  =  ( ( 3 BernPoly  X )  x.  2 )
210204, 192mulcomd 9661 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 3 BernPoly  X ) ) )
211 bpoly3 14104 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  =  ( ( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )
212211oveq2d 6304 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( 3 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
213210, 212eqtrd 2484 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
214209, 213syl5eq 2496 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  ( 4  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
215207, 214eqtrd 2484 . . . . . 6  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
216201, 215oveq12d 6306 . . . . 5  |-  ( X  e.  CC  ->  ( sum_ k  e.  ( 0 ... 2 ) ( ( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  +  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )  =  ( ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) )
21770, 216eqtrd 2484 . . . 4  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
2  +  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) )
21813, 217syl5eq 2496 . . 3  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... (
4  -  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) )
219218oveq2d 6304 . 2  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  sum_ k  e.  ( 0 ... (
4  -  1 ) ) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) ) )  =  ( ( X ^ 4 )  -  ( ( ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) ) )
220 expcl 12287 . . . . 5  |-  ( ( X  e.  CC  /\  4  e.  NN0 )  -> 
( X ^ 4 )  e.  CC )
2211, 220mpan2 676 . . . 4  |-  ( X  e.  CC  ->  ( X ^ 4 )  e.  CC )
222 expcl 12287 . . . . . 6  |-  ( ( X  e.  CC  /\  3  e.  NN0 )  -> 
( X ^ 3 )  e.  CC )
223202, 222mpan2 676 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 3 )  e.  CC )
224192, 223mulcld 9660 . . . 4  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 3 ) )  e.  CC )
225 sqcl 12334 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 2 )  e.  CC )
226202, 101deccl 11062 . . . . . . . 8  |- ; 3 0  e.  NN0
227226nn0cni 10878 . . . . . . 7  |- ; 3 0  e.  CC
228 df-dec 11049 . . . . . . . . 9  |- ; 3 0  =  ( ( 10  x.  3 )  +  0 )
229 10re 10695 . . . . . . . . . . . 12  |-  10  e.  RR
230229recni 9652 . . . . . . . . . . 11  |-  10  e.  CC
231230, 6mulcli 9645 . . . . . . . . . 10  |-  ( 10  x.  3 )  e.  CC
232231addid1i 9817 . . . . . . . . 9  |-  ( ( 10  x.  3 )  +  0 )  =  ( 10  x.  3 )
233228, 232eqtri 2472 . . . . . . . 8  |- ; 3 0  =  ( 10  x.  3 )
234 10pos 10709 . . . . . . . . . 10  |-  0  <  10
235137, 234gtneii 9743 . . . . . . . . 9  |-  10  =/=  0
236230, 6, 235, 185mulne0i 10252 . . . . . . . 8  |-  ( 10  x.  3 )  =/=  0
237233, 236eqnetri 2693 . . . . . . 7  |- ; 3 0  =/=  0
238227, 237reccli 10334 . . . . . 6  |-  ( 1  / ; 3 0 )  e.  CC
239238a1i 11 . . . . 5  |-  ( X  e.  CC  ->  (
1  / ; 3 0 )  e.  CC )
240225, 239subcld 9983 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  ( 1  / ; 3 0 ) )  e.  CC )
241221, 224, 240subsubd 10011 . . 3  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( ( 2  x.  ( X ^ 3 ) )  -  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) ) )  =  ( ( ( X ^
4 )  -  (
2  x.  ( X ^ 3 ) ) )  +  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) ) )
242162a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  (
1  /  5 )  e.  CC )
243 id 22 . . . . . . . . 9  |-  ( X  e.  CC  ->  X  e.  CC )
24488, 205reccli 10334 . . . . . . . . . 10  |-  ( 1  /  2 )  e.  CC
245244a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  2 )  e.  CC )
246243, 245subcld 9983 . . . . . . . 8  |-  ( X  e.  CC  ->  ( X  -  ( 1  /  2 ) )  e.  CC )
247242, 246addcld 9659 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  e.  CC )
248225, 243subcld 9983 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  X )  e.  CC )
249 6pos 10705 . . . . . . . . . . . 12  |-  0  <  6
250137, 249gtneii 9743 . . . . . . . . . . 11  |-  6  =/=  0
251179, 250reccli 10334 . . . . . . . . . 10  |-  ( 1  /  6 )  e.  CC
252251a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  6 )  e.  CC )
253248, 252addcld 9659 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) )  e.  CC )
254192, 253mulcld 9660 . . . . . . 7  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  e.  CC )
255247, 254addcld 9659 . . . . . 6  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  e.  CC )
2566, 88, 205divcli 10346 . . . . . . . . . . 11  |-  ( 3  /  2 )  e.  CC
257256a1i 11 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  /  2 )  e.  CC )
258257, 225mulcld 9660 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3  /  2
)  x.  ( X ^ 2 ) )  e.  CC )
259223, 258subcld 9983 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
260245, 243mulcld 9660 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 1  /  2
)  x.  X )  e.  CC )
261259, 260addcld 9659 . . . . . . 7  |-  ( X  e.  CC  ->  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) )  e.  CC )
262192, 261mulcld 9660 . . . . . 6  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  e.  CC )
263255, 262addcomd 9832 . . . . 5  |-  ( X  e.  CC  ->  (
( ( ( 1  /  5 )  +  ( X  -  (
1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  / 
2 )  x.  X
) ) ) )  =  ( ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  / 
2 )  x.  X
) ) )  +  ( ( ( 1  /  5 )  +  ( X  -  (
1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) ) ) )
264192, 259, 260adddid 9664 . . . . . . 7  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  =  ( ( 2  x.  ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  +  ( 2  x.  ( ( 1  /  2 )  x.  X ) ) ) )
265192, 223, 258subdid 10071 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) ) )  =  ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) ) )
26688, 205recidi 10335 . . . . . . . . . 10  |-  ( 2  x.  ( 1  / 
2 ) )  =  1
267266oveq1i 6298 . . . . . . . . 9  |-  ( ( 2  x.  ( 1  /  2 ) )  x.  X )  =  ( 1  x.  X
)
268192, 245, 243mulassd 9663 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 2  x.  (
1  /  2 ) )  x.  X )  =  ( 2  x.  ( ( 1  / 
2 )  x.  X
) ) )
269 mulid2 9638 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  x.  X )  =  X )
270267, 268, 2693eqtr3a 2508 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 1  /  2 )  x.  X ) )  =  X )
271265, 270oveq12d 6306 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 2  x.  (
( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) ) )  +  ( 2  x.  ( ( 1  /  2 )  x.  X ) ) )  =  ( ( ( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  +  X
) )
272264, 271eqtrd 2484 . . . . . 6  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  =  ( ( ( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  +  X
) )
273272oveq1d 6303 . . . . 5  |-  ( X  e.  CC  ->  (
( 2  x.  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( ( ( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  +  X
)  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) ) )
274192, 258mulcld 9660 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
275224, 274subcld 9983 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  e.  CC )
276275, 243, 255addassd 9662 . . . . . 6  |-  ( X  e.  CC  ->  (
( ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) )  +  X
)  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( ( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  +  ( X  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) ) ) )
277243, 255addcld 9659 . . . . . . 7  |-  ( X  e.  CC  ->  ( X  +  ( (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  e.  CC )
278224, 274, 277subsubd 10011 . . . . . 6  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 3 ) )  -  ( ( 2  x.  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) )  -  ( X  +  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) ) ) ) )  =  ( ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) )  +  ( X  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) ) ) )
2796, 88, 205divcan2i 10347 . . . . . . . . . . 11  |-  ( 2  x.  ( 3  / 
2 ) )  =  3
280279oveq1i 6298 . . . . . . . . . 10  |-  ( ( 2  x.  ( 3  /  2 ) )  x.  ( X ^
2 ) )  =  ( 3  x.  ( X ^ 2 ) )
281192, 257, 225mulassd 9663 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2  x.  (
3  /  2 ) )  x.  ( X ^ 2 ) )  =  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )
282280, 281syl5reqr 2499 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  =  ( 3  x.  ( X ^ 2 ) ) )
283282oveq1d 6303 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  -  ( X  +  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) ) ) )  =  ( ( 3  x.  ( X ^
2 ) )  -  ( X  +  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) ) ) ) )
284243, 247, 254add12d 9853 . . . . . . . . . 10  |-  ( X  e.  CC  ->  ( X  +  ( (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) ) ) )
285192, 248, 252adddid 9664 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( 2  x.  ( ( X ^ 2 )  -  X ) )  +  ( 2  x.  (
1  /  6 ) ) ) )
286192, 225, 243subdid 10071 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 2 )  -  X ) )  =  ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) ) )
287188oveq2i 6299 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 2  /  6
)
2886, 185reccli 10334 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  /  3 )  e.  CC
2896, 88, 288mul32i 9826 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  ( ( 3  x.  ( 1  /  3
) )  x.  2 )
2906, 185recidi 10335 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 3  x.  ( 1  / 
3 ) )  =  1
291290oveq1i 6298 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  ( 1  x.  2 )
29288mulid2i 9643 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  x.  2 )  =  2
293291, 292eqtri 2472 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  2
294289, 293eqtri 2472 . . . . . . . . . . . . . . . . . 18  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  2
295188, 179eqeltri 2524 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  e.  CC
296188, 250eqnetri 2693 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  =/=  0
29788, 295, 288, 296divmuli 10358 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  /  ( 3  x.  2 ) )  =  ( 1  / 
3 )  <->  ( (
3  x.  2 )  x.  ( 1  / 
3 ) )  =  2 )
298294, 297mpbir 213 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 1  /  3
)
29988, 179, 250divreci 10349 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  6 )  =  ( 2  x.  (
1  /  6 ) )
300287, 298, 2993eqtr3ri 2481 . . . . . . . . . . . . . . . 16  |-  ( 2  x.  ( 1  / 
6 ) )  =  ( 1  /  3
)
301300a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( 1  /  6 ) )  =  ( 1  / 
3 ) )
302286, 301oveq12d 6306 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  (
( X ^ 2 )  -  X ) )  +  ( 2  x.  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
303285, 302eqtrd 2484 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
304303oveq2d 6304 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( X  +  ( ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) )  +  ( 1  /  3 ) ) ) )
305192, 225mulcld 9660 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 2 ) )  e.  CC )
306192, 243mulcld 9660 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  X )  e.  CC )
307305, 306subcld 9983 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  e.  CC )
308288a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  /  3 )  e.  CC )
309243, 307, 308addassd 9662 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( X  +  ( ( ( 2  x.  ( X ^ 2 ) )  -  (
2  x.  X ) )  +  ( 1  /  3 ) ) ) )
310243, 305, 306addsub12d 10006 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  +  ( (
2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) ) )
311310oveq1d 6303 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) )
312304, 309, 3113eqtr2d 2490 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) )
313312oveq2d 6304 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) ) )
314284, 313eqtrd 2484 . . . . . . . . 9  |-  ( X  e.  CC  ->  ( X  +  ( (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) ) )
315314oveq2d 6304 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( X  +  ( ( ( 1  /  5 )  +  ( X  -  (
1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) ) ) )  =  ( ( 3  x.  ( X ^ 2 ) )  -  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) ) ) )
316243, 306subcld 9983 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  -  ( 2  x.  X ) )  e.  CC )
317305, 316addcld 9659 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  e.  CC )
318242, 246, 317, 308add4d 9855 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) )  =  ( ( ( 1  /  5 )  +  ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X ) ) ) )  +  ( ( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) ) ) )
319242, 305, 316add12d 9853 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) ) ) )
320319oveq1d 6303 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) ) )  +  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) )  =  ( ( ( 2  x.  ( X ^
2 ) )  +  ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) ) )  +  ( ( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) ) ) )
321242, 316addcld 9659 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) )  e.  CC )
322246, 308addcld 9659 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) )  e.  CC )
323305, 321, 322addassd 9662 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 2  x.  ( X ^ 2 ) )  +  ( ( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) )  +  ( ( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) ) ) ) )
324318, 320, 3233eqtrd 2488 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) )  =  ( ( 2  x.  ( X ^ 2 ) )  +  ( ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) ) ) )
325324oveq2d 6304 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) ) )  =  ( ( 3  x.  ( X ^ 2 ) )  -  (
( 2  x.  ( X ^ 2 ) )  +  ( ( ( 1  /  5 )  +  ( X  -  ( 2  x.  X
) ) )  +  ( ( X  -  ( 1  /  2
) )  +  ( 1  /  3 ) ) ) ) ) )
326184, 225mulcld 9660 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  x.  ( X ^ 2 ) )  e.  CC )
327321, 322addcld 9659 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  e.  CC )
328326, 305, 327subsub4d 10014 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( ( 3  x.  ( X ^ 2 ) )  -  (
2  x.  ( X ^ 2 ) ) )  -  ( ( ( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) ) )  =  ( ( 3  x.  ( X ^
2 ) )  -  ( ( 2  x.  ( X ^ 2 ) )  +  ( ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) ) ) ) )
3296, 88, 5, 110subaddrii 9961 . . . . . . . . . . . 12  |-  ( 3  -  2 )  =  1
330329oveq1i 6298 . . . . . . . . . . 11  |-  ( ( 3  -  2 )  x.  ( X ^
2 ) )  =  ( 1  x.  ( X ^ 2 ) )
331184, 192, 225subdird 10072 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 3  -  2 )  x.  ( X ^ 2 ) )  =  ( ( 3  x.  ( X ^
2 ) )  -  ( 2  x.  ( X ^ 2 ) ) ) )
332225mulid2d 9658 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
1  x.  ( X ^ 2 ) )  =  ( X ^
2 ) )
333330, 331, 3323eqtr3a 2508 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( 2  x.  ( X ^ 2 ) ) )  =  ( X ^ 2 ) )
334242, 306, 243subsubd 10011 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( ( 1  /  5 )  -  ( 2  x.  X ) )  +  X ) )
335269oveq2d 6304 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  ( ( 2  x.  X )  -  X ) )
336 2m1e1 10721 . . . . . . . . . . . . . . . . 17  |-  ( 2  -  1 )  =  1
337336oveq1i 6298 . . . . . . . . . . . . . . . 16  |-  ( ( 2  -  1 )  x.  X )  =  ( 1  x.  X
)
338192, 132, 243subdird 10072 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
( 2  -  1 )  x.  X )  =  ( ( 2  x.  X )  -  ( 1  x.  X
) ) )
339337, 338, 2693eqtr3a 2508 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  X )
340335, 339eqtr3d 2486 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  X )  =  X )
341340oveq2d 6304 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( 1  /  5 )  -  X ) )
342242, 306, 243subadd23d 10005 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  (
2  x.  X ) )  +  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
343334, 341, 3423eqtr3d 2492 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
344243, 245, 308subsubd 10011 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  -  ( (
1  /  2 )  -  ( 1  / 
3 ) ) )  =  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) )
345343, 344oveq12d 6306 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 2  x.  X
) ) )  +  ( ( X  -  ( 1  /  2
) )  +  ( 1  /  3 ) ) ) )
346244, 288subcli 9947 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  e.  CC
347346a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  2
)  -  ( 1  /  3 ) )  e.  CC )
348242, 243, 347npncand 10007 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( 1  /  5 )  -  ( ( 1  / 
2 )  -  (
1  /  3 ) ) ) )
349 halfthird 11154 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  =  ( 1  /  6
)
350349oveq2i 6299 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( ( 1  / 
5 )  -  (
1  /  6 ) )
351 5recm6rec 11155 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( 1  / 
6 ) )  =  ( 1  / ; 3 0 )
352350, 351eqtri 2472 . . . . . . . . . . . 12  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( 1  / ; 3 0 )
353348, 352syl6eq 2500 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( 1  / ; 3 0 ) )
354345, 353eqtr3d 2486 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  =  ( 1  / ; 3 0 ) )
355333, 354oveq12d 6306 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( ( 3  x.  ( X ^ 2 ) )  -  (
2  x.  ( X ^ 2 ) ) )  -  ( ( ( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) ) )  =  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) )
356325, 328, 3553eqtr2d 2490 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) ) )  =  ( ( X ^
2 )  -  (
1  / ; 3 0 ) ) )
357283, 315, 3563eqtrd 2488 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  -  ( X  +  ( ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) )  +  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) ) ) )  =  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) )
358357oveq2d 6304 . . . . . 6  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 3 ) )  -  ( ( 2  x.  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) )  -  ( X  +  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) ) ) ) )  =  ( ( 2  x.  ( X ^ 3 ) )  -  (
( X ^ 2 )  -  ( 1  / ; 3 0 ) ) ) )
359276, 278, 3583eqtr2d 2490 . . . . 5  |-  ( X  e.  CC  ->  (
( ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) )  +  X
)  +  ( ( ( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  =  ( ( 2  x.  ( X ^
3 ) )  -  ( ( X ^
2 )  -  (
1  / ; 3 0 ) ) ) )
360263, 273, 3593eqtrd 2488 . . . 4  |-  ( X  e.  CC  ->  (
( ( ( 1  /  5 )  +  ( X  -  (
1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  / 
2 )  x.  X
) ) ) )  =  ( ( 2  x.  ( X ^
3 ) )  -  ( ( X ^
2 )  -  (
1  / ; 3 0 ) ) ) )
361360oveq2d 6304 . . 3  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( ( ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) )  =  ( ( X ^
4 )  -  (
( 2  x.  ( X ^ 3 ) )  -  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) ) ) )
362221, 224subcld 9983 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( 2  x.  ( X ^
3 ) ) )  e.  CC )
363362, 225, 239addsubassd 10003 . . 3  |-  ( X  e.  CC  ->  (
( ( ( X ^ 4 )  -  ( 2  x.  ( X ^ 3 ) ) )  +  ( X ^ 2 ) )  -  ( 1  / ; 3 0 ) )  =  ( ( ( X ^
4 )  -  (
2  x.  ( X ^ 3 ) ) )  +  ( ( X ^ 2 )  -  ( 1  / ; 3 0 ) ) ) )
364241, 361, 3633eqtr4d 2494 . 2  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( ( ( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  +  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) ) )  =  ( ( ( ( X ^ 4 )  -  ( 2  x.  ( X ^ 3 ) ) )  +  ( X ^ 2 ) )  -  (
1  / ; 3 0 ) ) )
3653, 219, 3643eqtrd 2488 1  |-  ( X  e.  CC  ->  (
4 BernPoly  X )  =  ( ( ( ( X ^ 4 )  -  ( 2  x.  ( X ^ 3 ) ) )  +  ( X ^ 2 ) )  -  ( 1  / ; 3 0 ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 371    = wceq 1443    e. wcel 1886    =/= wne 2621    C_ wss 3403   class class class wbr 4401   ` cfv 5581  (class class class)co 6288   CCcc 9534   RRcr 9535   0cc0 9536   1c1 9537    + caddc 9539    x. cmul 9541    < clt 9672    - cmin 9857    / cdiv 10266   NNcn 10606   2c2 10656   3c3 10657   4c4 10658   5c5 10659   6c6 10660   10c10 10664   NN0cn0 10866   ZZcz 10934  ;cdc 11048   ZZ>=cuz 11156   ...cfz 11781   ^cexp 12269    _C cbc 12484   sum_csu 13745   BernPoly cbp 14092
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1668  ax-4 1681  ax-5 1757  ax-6 1804  ax-7 1850  ax-8 1888  ax-9 1895  ax-10 1914  ax-11 1919  ax-12 1932  ax-13 2090  ax-ext 2430  ax-rep 4514  ax-sep 4524  ax-nul 4533  ax-pow 4580  ax-pr 4638  ax-un 6580  ax-inf2 8143  ax-cnex 9592  ax-resscn 9593  ax-1cn 9594  ax-icn 9595  ax-addcl 9596  ax-addrcl 9597  ax-mulcl 9598  ax-mulrcl 9599  ax-mulcom 9600  ax-addass 9601  ax-mulass 9602  ax-distr 9603  ax-i2m1 9604  ax-1ne0 9605  ax-1rid 9606  ax-rnegex 9607  ax-rrecex 9608  ax-cnre 9609  ax-pre-lttri 9610  ax-pre-lttrn 9611  ax-pre-ltadd 9612  ax-pre-mulgt0 9613  ax-pre-sup 9614
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 985  df-3an 986  df-tru 1446  df-fal 1449  df-ex 1663  df-nf 1667  df-sb 1797  df-eu 2302  df-mo 2303  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2580  df-ne 2623  df-nel 2624  df-ral 2741  df-rex 2742  df-reu 2743  df-rmo 2744  df-rab 2745  df-v 3046  df-sbc 3267  df-csb 3363  df-dif 3406  df-un 3408  df-in 3410  df-ss 3417  df-pss 3419  df-nul 3731  df-if 3881  df-pw 3952  df-sn 3968  df-pr 3970  df-tp 3972  df-op 3974  df-uni 4198  df-int 4234  df-iun 4279  df-br 4402  df-opab 4461  df-mpt 4462  df-tr 4497  df-eprel 4744  df-id 4748  df-po 4754  df-so 4755  df-fr 4792  df-se 4793  df-we 4794  df-xp 4839  df-rel 4840  df-cnv 4841  df-co 4842  df-dm 4843  df-rn 4844  df-res 4845  df-ima 4846  df-pred 5379  df-ord 5425  df-on 5426  df-lim 5427  df-suc 5428  df-iota 5545  df-fun 5583  df-fn 5584  df-f 5585  df-f1 5586  df-fo 5587  df-f1o 5588  df-fv 5589  df-isom 5590  df-riota 6250  df-ov 6291  df-oprab 6292  df-mpt2 6293  df-om 6690  df-1st 6790  df-2nd 6791  df-wrecs 7025  df-recs 7087  df-rdg 7125  df-1o 7179  df-oadd 7183  df-er 7360  df-en 7567  df-dom 7568  df-sdom 7569  df-fin 7570  df-sup 7953  df-oi 8022  df-card 8370  df-pnf 9674  df-mnf 9675  df-xr 9676  df-ltxr 9677  df-le 9678  df-sub 9859  df-neg 9860  df-div 10267  df-nn 10607  df-2 10665  df-3 10666  df-4 10667  df-5 10668  df-6 10669  df-7 10670  df-8 10671  df-9 10672  df-10 10673  df-n0 10867  df-z 10935  df-dec 11049  df-uz 11157  df-rp 11300  df-fz 11782  df-fzo 11913  df-seq 12211  df-exp 12270  df-fac 12457  df-bc 12485  df-hash 12513  df-cj 13155  df-re 13156  df-im 13157  df-sqrt 13291  df-abs 13292  df-clim 13545  df-sum 13746  df-bpoly 14093
This theorem is referenced by:  fsumcube  14106
  Copyright terms: Public domain W3C validator