Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bpoly4 Structured version   Unicode version

Theorem bpoly4 29414
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 10813 . . 3  |-  4  e.  NN0
2 bpolyval 29404 . . 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 670 . 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 10612 . . . . . . . 8  |-  4  e.  CC
5 ax-1cn 9549 . . . . . . . 8  |-  1  e.  CC
6 3cn 10609 . . . . . . . 8  |-  3  e.  CC
7 3p1e4 10660 . . . . . . . . 9  |-  ( 3  +  1 )  =  4
86, 5, 7addcomli 9770 . . . . . . . 8  |-  ( 1  +  3 )  =  4
94, 5, 6, 8subaddrii 9907 . . . . . . 7  |-  ( 4  -  1 )  =  3
10 df-3 10594 . . . . . . 7  |-  3  =  ( 2  +  1 )
119, 10eqtri 2496 . . . . . 6  |-  ( 4  -  1 )  =  ( 2  +  1 )
1211oveq2i 6294 . . . . 5  |-  ( 0 ... ( 4  -  1 ) )  =  ( 0 ... (
2  +  1 ) )
1312sumeq1i 13482 . . . 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 2nn0 10811 . . . . . . . 8  |-  2  e.  NN0
15 nn0uz 11115 . . . . . . . 8  |-  NN0  =  ( ZZ>= `  0 )
1614, 15eleqtri 2553 . . . . . . 7  |-  2  e.  ( ZZ>= `  0 )
1716a1i 11 . . . . . 6  |-  ( X  e.  CC  ->  2  e.  ( ZZ>= `  0 )
)
18 elfzelz 11687 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  ZZ )
19 bccl 12367 . . . . . . . . . 10  |-  ( ( 4  e.  NN0  /\  k  e.  ZZ )  ->  ( 4  _C  k
)  e.  NN0 )
201, 18, 19sylancr 663 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  NN0 )
2120nn0cnd 10853 . . . . . . . 8  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  CC )
2221adantl 466 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( 4  _C  k )  e.  CC )
23 elfznn0 11769 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  NN0 )
24 bpolycl 29407 . . . . . . . . . 10  |-  ( ( k  e.  NN0  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2523, 24sylan 471 . . . . . . . . 9  |-  ( ( k  e.  ( 0 ... ( 2  +  1 ) )  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2625ancoms 453 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( k BernPoly  X
)  e.  CC )
27 4re 10611 . . . . . . . . . . . . 13  |-  4  e.  RR
2827a1i 11 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  4  e.  RR )
2918zred 10965 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  RR )
3028, 29resubcld 9986 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  -  k )  e.  RR )
31 peano2re 9751 . . . . . . . . . . 11  |-  ( ( 4  -  k )  e.  RR  ->  (
( 4  -  k
)  +  1 )  e.  RR )
3230, 31syl 16 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  e.  RR )
3332recnd 9621 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  e.  CC )
3433adantl 466 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  e.  CC )
35 1re 9594 . . . . . . . . . . . 12  |-  1  e.  RR
3635a1i 11 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  1  e.  RR )
3710oveq2i 6294 . . . . . . . . . . . . . 14  |-  ( 0 ... 3 )  =  ( 0 ... (
2  +  1 ) )
3837eleq2i 2545 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  <->  k  e.  ( 0 ... (
2  +  1 ) ) )
39 elfzelz 11687 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  ZZ )
4039zred 10965 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  RR )
41 3re 10608 . . . . . . . . . . . . . . 15  |-  3  e.  RR
4241a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  3  e.  RR )
4327a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  4  e.  RR )
44 elfzle2 11689 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  <_  3 )
45 3lt4 10704 . . . . . . . . . . . . . . 15  |-  3  <  4
4645a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  3  <  4 )
4740, 42, 43, 44, 46lelttrd 9738 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  ->  k  <  4 )
4838, 47sylbir 213 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  <  4 )
4929, 28posdifd 10138 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
k  <  4  <->  0  <  ( 4  -  k ) ) )
5048, 49mpbid 210 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( 4  -  k
) )
51 0lt1 10074 . . . . . . . . . . . 12  |-  0  <  1
5251a1i 11 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  1 )
5330, 36, 50, 52addgt0d 10126 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( ( 4  -  k )  +  1 ) )
5453gt0ne0d 10116 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  =/=  0 )
5554adantl 466 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  =/=  0
)
5626, 34, 55divcld 10319 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) )  e.  CC )
5722, 56mulcld 9615 . . . . . 6  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
5810eqeq2i 2485 . . . . . . 7  |-  ( k  =  3  <->  k  =  ( 2  +  1 ) )
59 oveq2 6291 . . . . . . . . 9  |-  ( k  =  3  ->  (
4  _C  k )  =  ( 4  _C  3 ) )
60 4bc3eq4 28602 . . . . . . . . 9  |-  ( 4  _C  3 )  =  4
6159, 60syl6eq 2524 . . . . . . . 8  |-  ( k  =  3  ->  (
4  _C  k )  =  4 )
62 oveq1 6290 . . . . . . . . 9  |-  ( k  =  3  ->  (
k BernPoly  X )  =  ( 3 BernPoly  X ) )
63 oveq2 6291 . . . . . . . . . . 11  |-  ( k  =  3  ->  (
4  -  k )  =  ( 4  -  3 ) )
6463oveq1d 6298 . . . . . . . . . 10  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  3 )  +  1 ) )
654, 6, 5, 7subaddrii 9907 . . . . . . . . . . . 12  |-  ( 4  -  3 )  =  1
6665oveq1i 6293 . . . . . . . . . . 11  |-  ( ( 4  -  3 )  +  1 )  =  ( 1  +  1 )
67 df-2 10593 . . . . . . . . . . 11  |-  2  =  ( 1  +  1 )
6866, 67eqtr4i 2499 . . . . . . . . . 10  |-  ( ( 4  -  3 )  +  1 )  =  2
6964, 68syl6eq 2524 . . . . . . . . 9  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  2 )
7062, 69oveq12d 6301 . . . . . . . 8  |-  ( k  =  3  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 3 BernPoly  X
)  /  2 ) )
7161, 70oveq12d 6301 . . . . . . 7  |-  ( k  =  3  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
7258, 71sylbir 213 . . . . . 6  |-  ( k  =  ( 2  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
7317, 57, 72fsump1 13533 . . . . 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
) ) ) )
7467oveq2i 6294 . . . . . . . 8  |-  ( 0 ... 2 )  =  ( 0 ... (
1  +  1 ) )
7574sumeq1i 13482 . . . . . . 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 ) ) )
76 1nn0 10810 . . . . . . . . . . 11  |-  1  e.  NN0
7776, 15eleqtri 2553 . . . . . . . . . 10  |-  1  e.  ( ZZ>= `  0 )
7877a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  1  e.  ( ZZ>= `  0 )
)
79 fzssp1 11725 . . . . . . . . . . . 12  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
( 1  +  1 )  +  1 ) )
8067oveq1i 6293 . . . . . . . . . . . . 13  |-  ( 2  +  1 )  =  ( ( 1  +  1 )  +  1 )
8180oveq2i 6294 . . . . . . . . . . . 12  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... (
( 1  +  1 )  +  1 ) )
8279, 81sseqtr4i 3537 . . . . . . . . . . 11  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
8382sseli 3500 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 1  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
8483, 57sylan2 474 . . . . . . . . 9  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 1  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
8567eqeq2i 2485 . . . . . . . . . 10  |-  ( k  =  2  <->  k  =  ( 1  +  1 ) )
86 oveq2 6291 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
4  _C  k )  =  ( 4  _C  2 ) )
87 4bc2eq6 28603 . . . . . . . . . . . 12  |-  ( 4  _C  2 )  =  6
8886, 87syl6eq 2524 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
4  _C  k )  =  6 )
89 oveq1 6290 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
k BernPoly  X )  =  ( 2 BernPoly  X ) )
90 oveq2 6291 . . . . . . . . . . . . . 14  |-  ( k  =  2  ->  (
4  -  k )  =  ( 4  -  2 ) )
9190oveq1d 6298 . . . . . . . . . . . . 13  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  2 )  +  1 ) )
92 2cn 10605 . . . . . . . . . . . . . . . 16  |-  2  e.  CC
93 2p2e4 10652 . . . . . . . . . . . . . . . 16  |-  ( 2  +  2 )  =  4
944, 92, 92, 93subaddrii 9907 . . . . . . . . . . . . . . 15  |-  ( 4  -  2 )  =  2
9594oveq1i 6293 . . . . . . . . . . . . . 14  |-  ( ( 4  -  2 )  +  1 )  =  ( 2  +  1 )
9695, 10eqtr4i 2499 . . . . . . . . . . . . 13  |-  ( ( 4  -  2 )  +  1 )  =  3
9791, 96syl6eq 2524 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  3 )
9889, 97oveq12d 6301 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 2 BernPoly  X
)  /  3 ) )
9988, 98oveq12d 6301 . . . . . . . . . 10  |-  ( k  =  2  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
10085, 99sylbir 213 . . . . . . . . 9  |-  ( k  =  ( 1  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
10178, 84, 100fsump1 13533 . . . . . . . 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
) ) ) )
102 0p1e1 10646 . . . . . . . . . . . 12  |-  ( 0  +  1 )  =  1
103102oveq2i 6294 . . . . . . . . . . 11  |-  ( 0 ... ( 0  +  1 ) )  =  ( 0 ... 1
)
104103sumeq1i 13482 . . . . . . . . . 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 ) ) )
105 0nn0 10809 . . . . . . . . . . . . . 14  |-  0  e.  NN0
106105, 15eleqtri 2553 . . . . . . . . . . . . 13  |-  0  e.  ( ZZ>= `  0 )
107106a1i 11 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  0  e.  ( ZZ>= `  0 )
)
108 3nn 10693 . . . . . . . . . . . . . . . . 17  |-  3  e.  NN
109 nnuz 11116 . . . . . . . . . . . . . . . . 17  |-  NN  =  ( ZZ>= `  1 )
110108, 109eleqtri 2553 . . . . . . . . . . . . . . . 16  |-  3  e.  ( ZZ>= `  1 )
111 fzss2 11722 . . . . . . . . . . . . . . . 16  |-  ( 3  e.  ( ZZ>= `  1
)  ->  ( 0 ... 1 )  C_  ( 0 ... 3
) )
112110, 111ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( 0 ... 1 )  C_  ( 0 ... 3
)
113 2p1e3 10658 . . . . . . . . . . . . . . . 16  |-  ( 2  +  1 )  =  3
114113oveq2i 6294 . . . . . . . . . . . . . . 15  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... 3
)
115112, 103, 1143sstr4i 3543 . . . . . . . . . . . . . 14  |-  ( 0 ... ( 0  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
116115sseli 3500 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... ( 0  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
117116, 57sylan2 474 . . . . . . . . . . . 12  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 0  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
118102eqeq2i 2485 . . . . . . . . . . . . 13  |-  ( k  =  ( 0  +  1 )  <->  k  = 
1 )
119 oveq2 6291 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
4  _C  k )  =  ( 4  _C  1 ) )
120 bcn1 12358 . . . . . . . . . . . . . . . 16  |-  ( 4  e.  NN0  ->  ( 4  _C  1 )  =  4 )
1211, 120ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( 4  _C  1 )  =  4
122119, 121syl6eq 2524 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
4  _C  k )  =  4 )
123 oveq1 6290 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
k BernPoly  X )  =  ( 1 BernPoly  X ) )
124 oveq2 6291 . . . . . . . . . . . . . . . . 17  |-  ( k  =  1  ->  (
4  -  k )  =  ( 4  -  1 ) )
125124oveq1d 6298 . . . . . . . . . . . . . . . 16  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  1 )  +  1 ) )
1269oveq1i 6293 . . . . . . . . . . . . . . . . 17  |-  ( ( 4  -  1 )  +  1 )  =  ( 3  +  1 )
127 df-4 10595 . . . . . . . . . . . . . . . . 17  |-  4  =  ( 3  +  1 )
128126, 127eqtr4i 2499 . . . . . . . . . . . . . . . 16  |-  ( ( 4  -  1 )  +  1 )  =  4
129125, 128syl6eq 2524 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  4 )
130123, 129oveq12d 6301 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 1 BernPoly  X
)  /  4 ) )
131122, 130oveq12d 6301 . . . . . . . . . . . . 13  |-  ( k  =  1  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
132118, 131sylbi 195 . . . . . . . . . . . 12  |-  ( k  =  ( 0  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
133107, 117, 132fsump1 13533 . . . . . . . . . . 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
) ) ) )
134 0z 10874 . . . . . . . . . . . . . 14  |-  0  e.  ZZ
1355a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  1  e.  CC )
136 bpolycl 29407 . . . . . . . . . . . . . . . . 17  |-  ( ( 0  e.  NN0  /\  X  e.  CC )  ->  ( 0 BernPoly  X )  e.  CC )
137105, 136mpan 670 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  e.  CC )
138 5cn 10614 . . . . . . . . . . . . . . . . 17  |-  5  e.  CC
139138a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  e.  CC )
140 0re 9595 . . . . . . . . . . . . . . . . . 18  |-  0  e.  RR
141 5pos 10632 . . . . . . . . . . . . . . . . . 18  |-  0  <  5
142140, 141gtneii 9695 . . . . . . . . . . . . . . . . 17  |-  5  =/=  0
143142a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  =/=  0 )
144137, 139, 143divcld 10319 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  e.  CC )
145135, 144mulcld 9615 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  e.  CC )
146 oveq2 6291 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
4  _C  k )  =  ( 4  _C  0 ) )
147 bcn0 12355 . . . . . . . . . . . . . . . . . 18  |-  ( 4  e.  NN0  ->  ( 4  _C  0 )  =  1 )
1481, 147ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  ( 4  _C  0 )  =  1
149146, 148syl6eq 2524 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
4  _C  k )  =  1 )
150 oveq1 6290 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
k BernPoly  X )  =  ( 0 BernPoly  X ) )
151 oveq2 6291 . . . . . . . . . . . . . . . . . . 19  |-  ( k  =  0  ->  (
4  -  k )  =  ( 4  -  0 ) )
152151oveq1d 6298 . . . . . . . . . . . . . . . . . 18  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  0 )  +  1 ) )
1534subid1i 9890 . . . . . . . . . . . . . . . . . . . 20  |-  ( 4  -  0 )  =  4
154153oveq1i 6293 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 4  -  0 )  +  1 )  =  ( 4  +  1 )
155 4p1e5 10661 . . . . . . . . . . . . . . . . . . 19  |-  ( 4  +  1 )  =  5
156154, 155eqtri 2496 . . . . . . . . . . . . . . . . . 18  |-  ( ( 4  -  0 )  +  1 )  =  5
157152, 156syl6eq 2524 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  5 )
158150, 157oveq12d 6301 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 0 BernPoly  X
)  /  5 ) )
159149, 158oveq12d 6301 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 1  x.  ( ( 0 BernPoly  X )  /  5
) ) )
160159fsum1 13526 . . . . . . . . . . . . . 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
) ) )
161134, 145, 160sylancr 663 . . . . . . . . . . . . 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
) ) )
162 bpoly0 29405 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  =  1 )
163162oveq1d 6298 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  =  ( 1  /  5
) )
164163oveq2d 6299 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  x.  ( 1  /  5 ) ) )
165138, 142reccli 10273 . . . . . . . . . . . . . . 15  |-  ( 1  /  5 )  e.  CC
166165mulid2i 9598 . . . . . . . . . . . . . 14  |-  ( 1  x.  ( 1  / 
5 ) )  =  ( 1  /  5
)
167164, 166syl6eq 2524 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  /  5 ) )
168161, 167eqtrd 2508 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 0
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( 1  /  5 ) )
169 bpolycl 29407 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  NN0  /\  X  e.  CC )  ->  ( 1 BernPoly  X )  e.  CC )
17076, 169mpan 670 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  e.  CC )
171 nn0cn 10804 . . . . . . . . . . . . . . 15  |-  ( 4  e.  NN0  ->  4  e.  CC )
1721, 171mp1i 12 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  e.  CC )
173 4ne0 10631 . . . . . . . . . . . . . . 15  |-  4  =/=  0
174173a1i 11 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  =/=  0 )
175170, 172, 174divcan2d 10321 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( 1 BernPoly  X ) )
176 bpoly1 29406 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  =  ( X  -  ( 1  /  2 ) ) )
177175, 176eqtrd 2508 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( X  -  ( 1  /  2 ) ) )
178168, 177oveq12d 6301 . . . . . . . . . . 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 ) ) ) )
179133, 178eqtrd 2508 . . . . . . . . . 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
) ) ) )
180104, 179syl5eqr 2522 . . . . . . . . 9  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 1
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) ) )
181 6cn 10616 . . . . . . . . . . . 12  |-  6  e.  CC
182181a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  6  e.  CC )
183 bpolycl 29407 . . . . . . . . . . . 12  |-  ( ( 2  e.  NN0  /\  X  e.  CC )  ->  ( 2 BernPoly  X )  e.  CC )
18414, 183mpan 670 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  e.  CC )
1856a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  e.  CC )
186 3ne0 10629 . . . . . . . . . . . 12  |-  3  =/=  0
187186a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  =/=  0 )
188182, 184, 185, 187div12d 10355 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( ( 2 BernPoly  X )  x.  ( 6  / 
3 ) ) )
189 3t2e6 10686 . . . . . . . . . . . . 13  |-  ( 3  x.  2 )  =  6
190181, 6, 92, 186divmuli 10297 . . . . . . . . . . . . 13  |-  ( ( 6  /  3 )  =  2  <->  ( 3  x.  2 )  =  6 )
191189, 190mpbir 209 . . . . . . . . . . . 12  |-  ( 6  /  3 )  =  2
192191oveq2i 6294 . . . . . . . . . . 11  |-  ( ( 2 BernPoly  X )  x.  (
6  /  3 ) )  =  ( ( 2 BernPoly  X )  x.  2 )
19392a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  2  e.  CC )
194184, 193mulcomd 9616 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 2 BernPoly  X ) ) )
195 bpoly2 29412 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  =  ( ( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) )
196195oveq2d 6299 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
2  x.  ( 2 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) )
197194, 196eqtrd 2508 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
198192, 197syl5eq 2520 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  ( 6  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
199188, 198eqtrd 2508 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
200180, 199oveq12d 6301 . . . . . . . 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 ) ) ) ) )
201101, 200eqtrd 2508 . . . . . . 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 ) ) ) ) )
20275, 201syl5eq 2520 . . . . . 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 ) ) ) ) )
203 3nn0 10812 . . . . . . . . 9  |-  3  e.  NN0
204 bpolycl 29407 . . . . . . . . 9  |-  ( ( 3  e.  NN0  /\  X  e.  CC )  ->  ( 3 BernPoly  X )  e.  CC )
205203, 204mpan 670 . . . . . . . 8  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  e.  CC )
206 2ne0 10627 . . . . . . . . 9  |-  2  =/=  0
207206a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  2  =/=  0 )
208172, 205, 193, 207div12d 10355 . . . . . . 7  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( ( 3 BernPoly  X )  x.  ( 4  / 
2 ) ) )
209 4d2e2 10691 . . . . . . . . 9  |-  ( 4  /  2 )  =  2
210209oveq2i 6294 . . . . . . . 8  |-  ( ( 3 BernPoly  X )  x.  (
4  /  2 ) )  =  ( ( 3 BernPoly  X )  x.  2 )
211205, 193mulcomd 9616 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 3 BernPoly  X ) ) )
212 bpoly3 29413 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  =  ( ( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )
213212oveq2d 6299 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( 3 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
214211, 213eqtrd 2508 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
215210, 214syl5eq 2520 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  ( 4  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
216208, 215eqtrd 2508 . . . . . 6  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
217202, 216oveq12d 6301 . . . . 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 ) ) ) ) )
21873, 217eqtrd 2508 . . . 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 ) ) ) ) )
21913, 218syl5eq 2520 . . 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 ) ) ) ) )
220219oveq2d 6299 . 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 ) ) ) ) ) )
221 expcl 12151 . . . . 5  |-  ( ( X  e.  CC  /\  4  e.  NN0 )  -> 
( X ^ 4 )  e.  CC )
2221, 221mpan2 671 . . . 4  |-  ( X  e.  CC  ->  ( X ^ 4 )  e.  CC )
223 expcl 12151 . . . . . 6  |-  ( ( X  e.  CC  /\  3  e.  NN0 )  -> 
( X ^ 3 )  e.  CC )
224203, 223mpan2 671 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 3 )  e.  CC )
225193, 224mulcld 9615 . . . 4  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 3 ) )  e.  CC )
226 sqcl 12197 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 2 )  e.  CC )
227203, 105deccl 10989 . . . . . . . 8  |- ; 3 0  e.  NN0
228227nn0cni 10806 . . . . . . 7  |- ; 3 0  e.  CC
229 df-dec 10976 . . . . . . . . 9  |- ; 3 0  =  ( ( 10  x.  3 )  +  0 )
230 10re 10623 . . . . . . . . . . . 12  |-  10  e.  RR
231230recni 9607 . . . . . . . . . . 11  |-  10  e.  CC
232231, 6mulcli 9600 . . . . . . . . . 10  |-  ( 10  x.  3 )  e.  CC
233232addid1i 9765 . . . . . . . . 9  |-  ( ( 10  x.  3 )  +  0 )  =  ( 10  x.  3 )
234229, 233eqtri 2496 . . . . . . . 8  |- ; 3 0  =  ( 10  x.  3 )
235 10pos 10637 . . . . . . . . . 10  |-  0  <  10
236140, 235gtneii 9695 . . . . . . . . 9  |-  10  =/=  0
237231, 6, 236, 186mulne0i 10191 . . . . . . . 8  |-  ( 10  x.  3 )  =/=  0
238234, 237eqnetri 2763 . . . . . . 7  |- ; 3 0  =/=  0
239228, 238reccli 10273 . . . . . 6  |-  ( 1  / ; 3 0 )  e.  CC
240239a1i 11 . . . . 5  |-  ( X  e.  CC  ->  (
1  / ; 3 0 )  e.  CC )
241226, 240subcld 9929 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  ( 1  / ; 3 0 ) )  e.  CC )
242222, 225, 241subsubd 9957 . . 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 ) ) ) )
243165a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  (
1  /  5 )  e.  CC )
244 id 22 . . . . . . . . 9  |-  ( X  e.  CC  ->  X  e.  CC )
24592, 206reccli 10273 . . . . . . . . . 10  |-  ( 1  /  2 )  e.  CC
246245a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  2 )  e.  CC )
247244, 246subcld 9929 . . . . . . . 8  |-  ( X  e.  CC  ->  ( X  -  ( 1  /  2 ) )  e.  CC )
248243, 247addcld 9614 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  e.  CC )
249226, 244subcld 9929 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  X )  e.  CC )
250 6pos 10633 . . . . . . . . . . . 12  |-  0  <  6
251140, 250gtneii 9695 . . . . . . . . . . 11  |-  6  =/=  0
252181, 251reccli 10273 . . . . . . . . . 10  |-  ( 1  /  6 )  e.  CC
253252a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  6 )  e.  CC )
254249, 253addcld 9614 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) )  e.  CC )
255193, 254mulcld 9615 . . . . . . 7  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  e.  CC )
256248, 255addcld 9614 . . . . . 6  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  e.  CC )
2576, 92, 206divcli 10285 . . . . . . . . . . 11  |-  ( 3  /  2 )  e.  CC
258257a1i 11 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  /  2 )  e.  CC )
259258, 226mulcld 9615 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3  /  2
)  x.  ( X ^ 2 ) )  e.  CC )
260224, 259subcld 9929 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
261246, 244mulcld 9615 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 1  /  2
)  x.  X )  e.  CC )
262260, 261addcld 9614 . . . . . . 7  |-  ( X  e.  CC  ->  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) )  e.  CC )
263193, 262mulcld 9615 . . . . . 6  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  e.  CC )
264256, 263addcomd 9780 . . . . 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 ) ) ) ) ) )
265193, 260, 261adddid 9619 . . . . . . 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 ) ) ) )
266193, 224, 259subdid 10011 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) ) )  =  ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) ) )
26792, 206recidi 10274 . . . . . . . . . 10  |-  ( 2  x.  ( 1  / 
2 ) )  =  1
268267oveq1i 6293 . . . . . . . . 9  |-  ( ( 2  x.  ( 1  /  2 ) )  x.  X )  =  ( 1  x.  X
)
269193, 246, 244mulassd 9618 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 2  x.  (
1  /  2 ) )  x.  X )  =  ( 2  x.  ( ( 1  / 
2 )  x.  X
) ) )
270 mulid2 9593 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  x.  X )  =  X )
271268, 269, 2703eqtr3a 2532 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 1  /  2 )  x.  X ) )  =  X )
272266, 271oveq12d 6301 . . . . . . 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
) )
273265, 272eqtrd 2508 . . . . . 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
) )
274273oveq1d 6298 . . . . 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 ) ) ) ) ) )
275193, 259mulcld 9615 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
276225, 275subcld 9929 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  e.  CC )
277276, 244, 256addassd 9617 . . . . . 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 ) ) ) ) ) ) )
278244, 256addcld 9614 . . . . . . 7  |-  ( X  e.  CC  ->  ( X  +  ( (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  e.  CC )
279225, 275, 278subsubd 9957 . . . . . 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 ) ) ) ) ) ) )
2806, 92, 206divcan2i 10286 . . . . . . . . . . 11  |-  ( 2  x.  ( 3  / 
2 ) )  =  3
281280oveq1i 6293 . . . . . . . . . 10  |-  ( ( 2  x.  ( 3  /  2 ) )  x.  ( X ^
2 ) )  =  ( 3  x.  ( X ^ 2 ) )
282193, 258, 226mulassd 9618 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2  x.  (
3  /  2 ) )  x.  ( X ^ 2 ) )  =  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )
283281, 282syl5reqr 2523 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  =  ( 3  x.  ( X ^ 2 ) ) )
284283oveq1d 6298 . . . . . . . 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
) ) ) ) ) ) )
285244, 248, 255add12d 9800 . . . . . . . . . 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 ) ) ) ) ) )
286193, 249, 253adddid 9619 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( 2  x.  ( ( X ^ 2 )  -  X ) )  +  ( 2  x.  (
1  /  6 ) ) ) )
287193, 226, 244subdid 10011 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 2 )  -  X ) )  =  ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) ) )
288189oveq2i 6294 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 2  /  6
)
2896, 186reccli 10273 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  /  3 )  e.  CC
2906, 92, 289mul32i 9774 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  ( ( 3  x.  ( 1  /  3
) )  x.  2 )
2916, 186recidi 10274 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 3  x.  ( 1  / 
3 ) )  =  1
292291oveq1i 6293 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  ( 1  x.  2 )
29392mulid2i 9598 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  x.  2 )  =  2
294292, 293eqtri 2496 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  2
295290, 294eqtri 2496 . . . . . . . . . . . . . . . . . 18  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  2
296189, 181eqeltri 2551 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  e.  CC
297189, 251eqnetri 2763 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  =/=  0
29892, 296, 289, 297divmuli 10297 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  /  ( 3  x.  2 ) )  =  ( 1  / 
3 )  <->  ( (
3  x.  2 )  x.  ( 1  / 
3 ) )  =  2 )
299295, 298mpbir 209 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 1  /  3
)
30092, 181, 251divreci 10288 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  6 )  =  ( 2  x.  (
1  /  6 ) )
301288, 299, 3003eqtr3ri 2505 . . . . . . . . . . . . . . . 16  |-  ( 2  x.  ( 1  / 
6 ) )  =  ( 1  /  3
)
302301a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( 1  /  6 ) )  =  ( 1  / 
3 ) )
303287, 302oveq12d 6301 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  (
( X ^ 2 )  -  X ) )  +  ( 2  x.  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
304286, 303eqtrd 2508 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
305304oveq2d 6299 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( X  +  ( ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) )  +  ( 1  /  3 ) ) ) )
306193, 226mulcld 9615 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 2 ) )  e.  CC )
307193, 244mulcld 9615 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  X )  e.  CC )
308306, 307subcld 9929 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  e.  CC )
309289a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  /  3 )  e.  CC )
310244, 308, 309addassd 9617 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( X  +  ( ( ( 2  x.  ( X ^ 2 ) )  -  (
2  x.  X ) )  +  ( 1  /  3 ) ) ) )
311244, 306, 307addsub12d 9952 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  +  ( (
2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) ) )
312311oveq1d 6298 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) )
313305, 310, 3123eqtr2d 2514 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) )
314313oveq2d 6299 . . . . . . . . . 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 ) ) ) )
315285, 314eqtrd 2508 . . . . . . . . 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 ) ) ) )
316315oveq2d 6299 . . . . . . . 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
) ) ) ) )
317244, 307subcld 9929 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  -  ( 2  x.  X ) )  e.  CC )
318306, 317addcld 9614 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  e.  CC )
319243, 247, 318, 309add4d 9802 . . . . . . . . . . 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 ) ) ) )
320243, 306, 317add12d 9800 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) ) ) )
321320oveq1d 6298 . . . . . . . . . . 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 ) ) ) )
322243, 317addcld 9614 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) )  e.  CC )
323247, 309addcld 9614 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) )  e.  CC )
324306, 322, 323addassd 9617 . . . . . . . . . . 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 ) ) ) ) )
325319, 321, 3243eqtrd 2512 . . . . . . . . . 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 ) ) ) ) )
326325oveq2d 6299 . . . . . . . . 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 ) ) ) ) ) )
327185, 226mulcld 9615 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  x.  ( X ^ 2 ) )  e.  CC )
328322, 323addcld 9614 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  e.  CC )
329327, 306, 328subsub4d 9960 . . . . . . . . 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 ) ) ) ) ) )
3306, 92, 5, 113subaddrii 9907 . . . . . . . . . . . 12  |-  ( 3  -  2 )  =  1
331330oveq1i 6293 . . . . . . . . . . 11  |-  ( ( 3  -  2 )  x.  ( X ^
2 ) )  =  ( 1  x.  ( X ^ 2 ) )
332185, 193, 226subdird 10012 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 3  -  2 )  x.  ( X ^ 2 ) )  =  ( ( 3  x.  ( X ^
2 ) )  -  ( 2  x.  ( X ^ 2 ) ) ) )
333226mulid2d 9613 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
1  x.  ( X ^ 2 ) )  =  ( X ^
2 ) )
334331, 332, 3333eqtr3a 2532 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( 2  x.  ( X ^ 2 ) ) )  =  ( X ^ 2 ) )
335243, 307, 244subsubd 9957 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( ( 1  /  5 )  -  ( 2  x.  X ) )  +  X ) )
336270oveq2d 6299 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  ( ( 2  x.  X )  -  X ) )
337 2m1e1 10649 . . . . . . . . . . . . . . . . 17  |-  ( 2  -  1 )  =  1
338337oveq1i 6293 . . . . . . . . . . . . . . . 16  |-  ( ( 2  -  1 )  x.  X )  =  ( 1  x.  X
)
339193, 135, 244subdird 10012 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
( 2  -  1 )  x.  X )  =  ( ( 2  x.  X )  -  ( 1  x.  X
) ) )
340338, 339, 2703eqtr3a 2532 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  X )
341336, 340eqtr3d 2510 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  X )  =  X )
342341oveq2d 6299 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( 1  /  5 )  -  X ) )
343243, 307, 244subadd23d 9951 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  (
2  x.  X ) )  +  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
344335, 342, 3433eqtr3d 2516 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
345244, 246, 309subsubd 9957 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  -  ( (
1  /  2 )  -  ( 1  / 
3 ) ) )  =  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) )
346344, 345oveq12d 6301 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 2  x.  X
) ) )  +  ( ( X  -  ( 1  /  2
) )  +  ( 1  /  3 ) ) ) )
347245, 289subcli 9894 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  e.  CC
348347a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  2
)  -  ( 1  /  3 ) )  e.  CC )
349243, 244, 348npncand 9953 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( 1  /  5 )  -  ( ( 1  / 
2 )  -  (
1  /  3 ) ) ) )
350 halfthird 28604 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  =  ( 1  /  6
)
351350oveq2i 6294 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( ( 1  / 
5 )  -  (
1  /  6 ) )
352 5recm6rec 28605 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( 1  / 
6 ) )  =  ( 1  / ; 3 0 )
353351, 352eqtri 2496 . . . . . . . . . . . 12  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( 1  / ; 3 0 )
354349, 353syl6eq 2524 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( 1  / ; 3 0 ) )
355346, 354eqtr3d 2510 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  =  ( 1  / ; 3 0 ) )
356334, 355oveq12d 6301 . . . . . . . . 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 ) ) )
357326, 329, 3563eqtr2d 2514 . . . . . . . 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 ) ) )
358284, 316, 3573eqtrd 2512 . . . . . . 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 ) ) )
359358oveq2d 6299 . . . . . 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 ) ) ) )
360277, 279, 3593eqtr2d 2514 . . . . 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 ) ) ) )
361264, 274, 3603eqtrd 2512 . . . 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 ) ) ) )
362361oveq2d 6299 . . 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 ) ) ) ) )
363222, 225subcld 9929 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( 2  x.  ( X ^
3 ) ) )  e.  CC )
364363, 226, 240addsubassd 9949 . . 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 ) ) ) )
365242, 362, 3643eqtr4d 2518 . 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 ) ) )
3663, 220, 3653eqtrd 2512 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 369    = wceq 1379    e. wcel 1767    =/= wne 2662    C_ wss 3476   class class class wbr 4447   ` cfv 5587  (class class class)co 6283   CCcc 9489   RRcr 9490   0cc0 9491   1c1 9492    + caddc 9494    x. cmul 9496    < clt 9627    - cmin 9804    / cdiv 10205   NNcn 10535   2c2 10584   3c3 10585   4c4 10586   5c5 10587   6c6 10588   10c10 10592   NN0cn0 10794   ZZcz 10863  ;cdc 10975   ZZ>=cuz 11081   ...cfz 11671   ^cexp 12133    _C cbc 12347   sum_csu 13470   BernPoly cbp 29401
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-8 1769  ax-9 1771  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445  ax-rep 4558  ax-sep 4568  ax-nul 4576  ax-pow 4625  ax-pr 4686  ax-un 6575  ax-inf2 8057  ax-cnex 9547  ax-resscn 9548  ax-1cn 9549  ax-icn 9550  ax-addcl 9551  ax-addrcl 9552  ax-mulcl 9553  ax-mulrcl 9554  ax-mulcom 9555  ax-addass 9556  ax-mulass 9557  ax-distr 9558  ax-i2m1 9559  ax-1ne0 9560  ax-1rid 9561  ax-rnegex 9562  ax-rrecex 9563  ax-cnre 9564  ax-pre-lttri 9565  ax-pre-lttrn 9566  ax-pre-ltadd 9567  ax-pre-mulgt0 9568  ax-pre-sup 9569
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1382  df-fal 1385  df-ex 1597  df-nf 1600  df-sb 1712  df-eu 2279  df-mo 2280  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-ne 2664  df-nel 2665  df-ral 2819  df-rex 2820  df-reu 2821  df-rmo 2822  df-rab 2823  df-v 3115  df-sbc 3332  df-csb 3436  df-dif 3479  df-un 3481  df-in 3483  df-ss 3490  df-pss 3492  df-nul 3786  df-if 3940  df-pw 4012  df-sn 4028  df-pr 4030  df-tp 4032  df-op 4034  df-uni 4246  df-int 4283  df-iun 4327  df-br 4448  df-opab 4506  df-mpt 4507  df-tr 4541  df-eprel 4791  df-id 4795  df-po 4800  df-so 4801  df-fr 4838  df-se 4839  df-we 4840  df-ord 4881  df-on 4882  df-lim 4883  df-suc 4884  df-xp 5005  df-rel 5006  df-cnv 5007  df-co 5008  df-dm 5009  df-rn 5010  df-res 5011  df-ima 5012  df-iota 5550  df-fun 5589  df-fn 5590  df-f 5591  df-f1 5592  df-fo 5593  df-f1o 5594  df-fv 5595  df-isom 5596  df-riota 6244  df-ov 6286  df-oprab 6287  df-mpt2 6288  df-om 6680  df-1st 6784  df-2nd 6785  df-recs 7042  df-rdg 7076  df-1o 7130  df-oadd 7134  df-er 7311  df-en 7517  df-dom 7518  df-sdom 7519  df-fin 7520  df-sup 7900  df-oi 7934  df-card 8319  df-pnf 9629  df-mnf 9630  df-xr 9631  df-ltxr 9632  df-le 9633  df-sub 9806  df-neg 9807  df-div 10206  df-nn 10536  df-2 10593  df-3 10594  df-4 10595  df-5 10596  df-6 10597  df-7 10598  df-8 10599  df-9 10600  df-10 10601  df-n0 10795  df-z 10864  df-dec 10976  df-uz 11082  df-rp 11220  df-fz 11672  df-fzo 11792  df-seq 12075  df-exp 12134  df-fac 12321  df-bc 12348  df-hash 12373  df-cj 12894  df-re 12895  df-im 12896  df-sqrt 13030  df-abs 13031  df-clim 13273  df-sum 13471  df-pred 28837  df-wrecs 28929  df-bpoly 29402
This theorem is referenced by:  fsumcube  29415
  Copyright terms: Public domain W3C validator