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

Theorem bpoly4 26009
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 10196 . . 3  |-  4  e.  NN0
2 bpolyval 25999 . . 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 652 . 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 10030 . . . . . . . 8  |-  4  e.  CC
5 ax-1cn 9004 . . . . . . . 8  |-  1  e.  CC
6 3cn 10028 . . . . . . . 8  |-  3  e.  CC
7 3p1e4 10060 . . . . . . . . 9  |-  ( 3  +  1 )  =  4
86, 5, 7addcomli 9214 . . . . . . . 8  |-  ( 1  +  3 )  =  4
94, 5, 6, 8subaddrii 9345 . . . . . . 7  |-  ( 4  -  1 )  =  3
10 df-3 10015 . . . . . . 7  |-  3  =  ( 2  +  1 )
119, 10eqtri 2424 . . . . . 6  |-  ( 4  -  1 )  =  ( 2  +  1 )
1211oveq2i 6051 . . . . 5  |-  ( 0 ... ( 4  -  1 ) )  =  ( 0 ... (
2  +  1 ) )
1312sumeq1i 12447 . . . 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 10194 . . . . . . . 8  |-  2  e.  NN0
15 nn0uz 10476 . . . . . . . 8  |-  NN0  =  ( ZZ>= `  0 )
1614, 15eleqtri 2476 . . . . . . 7  |-  2  e.  ( ZZ>= `  0 )
1716a1i 11 . . . . . 6  |-  ( X  e.  CC  ->  2  e.  ( ZZ>= `  0 )
)
18 elfzelz 11015 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  ZZ )
19 bccl 11568 . . . . . . . . . 10  |-  ( ( 4  e.  NN0  /\  k  e.  ZZ )  ->  ( 4  _C  k
)  e.  NN0 )
201, 18, 19sylancr 645 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  NN0 )
2120nn0cnd 10232 . . . . . . . 8  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  _C  k )  e.  CC )
2221adantl 453 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( 4  _C  k )  e.  CC )
23 elfznn0 11039 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  NN0 )
24 bpolycl 26002 . . . . . . . . . 10  |-  ( ( k  e.  NN0  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2523, 24sylan 458 . . . . . . . . 9  |-  ( ( k  e.  ( 0 ... ( 2  +  1 ) )  /\  X  e.  CC )  ->  ( k BernPoly  X )  e.  CC )
2625ancoms 440 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( k BernPoly  X
)  e.  CC )
27 4re 10029 . . . . . . . . . . . . 13  |-  4  e.  RR
2827a1i 11 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  4  e.  RR )
2918zred 10331 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  e.  RR )
3028, 29resubcld 9421 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
4  -  k )  e.  RR )
31 peano2re 9195 . . . . . . . . . . 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 9070 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  e.  CC )
3433adantl 453 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  e.  CC )
35 1re 9046 . . . . . . . . . . . 12  |-  1  e.  RR
3635a1i 11 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  1  e.  RR )
3710oveq2i 6051 . . . . . . . . . . . . . 14  |-  ( 0 ... 3 )  =  ( 0 ... (
2  +  1 ) )
3837eleq2i 2468 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  <->  k  e.  ( 0 ... (
2  +  1 ) ) )
39 elfzelz 11015 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  ZZ )
4039zred 10331 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  e.  RR )
41 3re 10027 . . . . . . . . . . . . . . 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 11017 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  k  <_  3 )
45 3lt4 10101 . . . . . . . . . . . . . . 15  |-  3  <  4
4645a1i 11 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... 3 )  ->  3  <  4 )
4740, 42, 43, 44, 46lelttrd 9184 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... 3 )  ->  k  <  4 )
4838, 47sylbir 205 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  k  <  4 )
4929, 28posdifd 9569 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
k  <  4  <->  0  <  ( 4  -  k ) ) )
5048, 49mpbid 202 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( 4  -  k
) )
51 0lt1 9506 . . . . . . . . . . . 12  |-  0  <  1
5251a1i 11 . . . . . . . . . . 11  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  1 )
5330, 36, 50, 52addgt0d 9557 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  0  <  ( ( 4  -  k )  +  1 ) )
5453gt0ne0d 9547 . . . . . . . . 9  |-  ( k  e.  ( 0 ... ( 2  +  1 ) )  ->  (
( 4  -  k
)  +  1 )  =/=  0 )
5554adantl 453 . . . . . . . 8  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  -  k )  +  1 )  =/=  0
)
5626, 34, 55divcld 9746 . . . . . . 7  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) )  e.  CC )
5722, 56mulcld 9064 . . . . . 6  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 2  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
5810eqeq2i 2414 . . . . . . 7  |-  ( k  =  3  <->  k  =  ( 2  +  1 ) )
59 oveq2 6048 . . . . . . . . 9  |-  ( k  =  3  ->  (
4  _C  k )  =  ( 4  _C  3 ) )
60 4bc3eq4 25156 . . . . . . . . 9  |-  ( 4  _C  3 )  =  4
6159, 60syl6eq 2452 . . . . . . . 8  |-  ( k  =  3  ->  (
4  _C  k )  =  4 )
62 oveq1 6047 . . . . . . . . 9  |-  ( k  =  3  ->  (
k BernPoly  X )  =  ( 3 BernPoly  X ) )
63 oveq2 6048 . . . . . . . . . . 11  |-  ( k  =  3  ->  (
4  -  k )  =  ( 4  -  3 ) )
6463oveq1d 6055 . . . . . . . . . 10  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  3 )  +  1 ) )
654, 6, 5, 7subaddrii 9345 . . . . . . . . . . . 12  |-  ( 4  -  3 )  =  1
6665oveq1i 6050 . . . . . . . . . . 11  |-  ( ( 4  -  3 )  +  1 )  =  ( 1  +  1 )
67 df-2 10014 . . . . . . . . . . 11  |-  2  =  ( 1  +  1 )
6866, 67eqtr4i 2427 . . . . . . . . . 10  |-  ( ( 4  -  3 )  +  1 )  =  2
6964, 68syl6eq 2452 . . . . . . . . 9  |-  ( k  =  3  ->  (
( 4  -  k
)  +  1 )  =  2 )
7062, 69oveq12d 6058 . . . . . . . 8  |-  ( k  =  3  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 3 BernPoly  X
)  /  2 ) )
7161, 70oveq12d 6058 . . . . . . 7  |-  ( k  =  3  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
7258, 71sylbir 205 . . . . . 6  |-  ( k  =  ( 2  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 3 BernPoly  X )  /  2
) ) )
7317, 57, 72fsump1 12495 . . . . 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 6051 . . . . . . . 8  |-  ( 0 ... 2 )  =  ( 0 ... (
1  +  1 ) )
7574sumeq1i 12447 . . . . . . 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 10193 . . . . . . . . . . 11  |-  1  e.  NN0
7776, 15eleqtri 2476 . . . . . . . . . 10  |-  1  e.  ( ZZ>= `  0 )
7877a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  1  e.  ( ZZ>= `  0 )
)
79 fzssp1 11051 . . . . . . . . . . . 12  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
( 1  +  1 )  +  1 ) )
8067oveq1i 6050 . . . . . . . . . . . . 13  |-  ( 2  +  1 )  =  ( ( 1  +  1 )  +  1 )
8180oveq2i 6051 . . . . . . . . . . . 12  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... (
( 1  +  1 )  +  1 ) )
8279, 81sseqtr4i 3341 . . . . . . . . . . 11  |-  ( 0 ... ( 1  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
8382sseli 3304 . . . . . . . . . 10  |-  ( k  e.  ( 0 ... ( 1  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
8483, 57sylan2 461 . . . . . . . . 9  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 1  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
8567eqeq2i 2414 . . . . . . . . . 10  |-  ( k  =  2  <->  k  =  ( 1  +  1 ) )
86 oveq2 6048 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
4  _C  k )  =  ( 4  _C  2 ) )
87 4bc2eq6 25157 . . . . . . . . . . . 12  |-  ( 4  _C  2 )  =  6
8886, 87syl6eq 2452 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
4  _C  k )  =  6 )
89 oveq1 6047 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
k BernPoly  X )  =  ( 2 BernPoly  X ) )
90 oveq2 6048 . . . . . . . . . . . . . 14  |-  ( k  =  2  ->  (
4  -  k )  =  ( 4  -  2 ) )
9190oveq1d 6055 . . . . . . . . . . . . 13  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  2 )  +  1 ) )
92 2cn 10026 . . . . . . . . . . . . . . . 16  |-  2  e.  CC
93 2p2e4 10054 . . . . . . . . . . . . . . . 16  |-  ( 2  +  2 )  =  4
944, 92, 92, 93subaddrii 9345 . . . . . . . . . . . . . . 15  |-  ( 4  -  2 )  =  2
9594oveq1i 6050 . . . . . . . . . . . . . 14  |-  ( ( 4  -  2 )  +  1 )  =  ( 2  +  1 )
9695, 10eqtr4i 2427 . . . . . . . . . . . . 13  |-  ( ( 4  -  2 )  +  1 )  =  3
9791, 96syl6eq 2452 . . . . . . . . . . . 12  |-  ( k  =  2  ->  (
( 4  -  k
)  +  1 )  =  3 )
9889, 97oveq12d 6058 . . . . . . . . . . 11  |-  ( k  =  2  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 2 BernPoly  X
)  /  3 ) )
9988, 98oveq12d 6058 . . . . . . . . . 10  |-  ( k  =  2  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
10085, 99sylbir 205 . . . . . . . . 9  |-  ( k  =  ( 1  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 6  x.  ( ( 2 BernPoly  X )  /  3
) ) )
10178, 84, 100fsump1 12495 . . . . . . . 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 10049 . . . . . . . . . . . 12  |-  ( 0  +  1 )  =  1
103102oveq2i 6051 . . . . . . . . . . 11  |-  ( 0 ... ( 0  +  1 ) )  =  ( 0 ... 1
)
104103sumeq1i 12447 . . . . . . . . . 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 10192 . . . . . . . . . . . . . 14  |-  0  e.  NN0
106105, 15eleqtri 2476 . . . . . . . . . . . . 13  |-  0  e.  ( ZZ>= `  0 )
107106a1i 11 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  0  e.  ( ZZ>= `  0 )
)
108 3nn 10090 . . . . . . . . . . . . . . . . 17  |-  3  e.  NN
109 nnuz 10477 . . . . . . . . . . . . . . . . 17  |-  NN  =  ( ZZ>= `  1 )
110108, 109eleqtri 2476 . . . . . . . . . . . . . . . 16  |-  3  e.  ( ZZ>= `  1 )
111 fzss2 11048 . . . . . . . . . . . . . . . 16  |-  ( 3  e.  ( ZZ>= `  1
)  ->  ( 0 ... 1 )  C_  ( 0 ... 3
) )
112110, 111ax-mp 8 . . . . . . . . . . . . . . 15  |-  ( 0 ... 1 )  C_  ( 0 ... 3
)
113 2p1e3 10059 . . . . . . . . . . . . . . . 16  |-  ( 2  +  1 )  =  3
114113oveq2i 6051 . . . . . . . . . . . . . . 15  |-  ( 0 ... ( 2  +  1 ) )  =  ( 0 ... 3
)
115112, 103, 1143sstr4i 3347 . . . . . . . . . . . . . 14  |-  ( 0 ... ( 0  +  1 ) )  C_  ( 0 ... (
2  +  1 ) )
116115sseli 3304 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... ( 0  +  1 ) )  ->  k  e.  ( 0 ... (
2  +  1 ) ) )
117116, 57sylan2 461 . . . . . . . . . . . 12  |-  ( ( X  e.  CC  /\  k  e.  ( 0 ... ( 0  +  1 ) ) )  ->  ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  e.  CC )
118102eqeq2i 2414 . . . . . . . . . . . . 13  |-  ( k  =  ( 0  +  1 )  <->  k  = 
1 )
119 oveq2 6048 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
4  _C  k )  =  ( 4  _C  1 ) )
120 bcn1 11559 . . . . . . . . . . . . . . . 16  |-  ( 4  e.  NN0  ->  ( 4  _C  1 )  =  4 )
1211, 120ax-mp 8 . . . . . . . . . . . . . . 15  |-  ( 4  _C  1 )  =  4
122119, 121syl6eq 2452 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
4  _C  k )  =  4 )
123 oveq1 6047 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
k BernPoly  X )  =  ( 1 BernPoly  X ) )
124 oveq2 6048 . . . . . . . . . . . . . . . . 17  |-  ( k  =  1  ->  (
4  -  k )  =  ( 4  -  1 ) )
125124oveq1d 6055 . . . . . . . . . . . . . . . 16  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  1 )  +  1 ) )
1269oveq1i 6050 . . . . . . . . . . . . . . . . 17  |-  ( ( 4  -  1 )  +  1 )  =  ( 3  +  1 )
127 df-4 10016 . . . . . . . . . . . . . . . . 17  |-  4  =  ( 3  +  1 )
128126, 127eqtr4i 2427 . . . . . . . . . . . . . . . 16  |-  ( ( 4  -  1 )  +  1 )  =  4
129125, 128syl6eq 2452 . . . . . . . . . . . . . . 15  |-  ( k  =  1  ->  (
( 4  -  k
)  +  1 )  =  4 )
130123, 129oveq12d 6058 . . . . . . . . . . . . . 14  |-  ( k  =  1  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 1 BernPoly  X
)  /  4 ) )
131122, 130oveq12d 6058 . . . . . . . . . . . . 13  |-  ( k  =  1  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
132118, 131sylbi 188 . . . . . . . . . . . 12  |-  ( k  =  ( 0  +  1 )  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 4  x.  ( ( 1 BernPoly  X )  /  4
) ) )
133107, 117, 132fsump1 12495 . . . . . . . . . . 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 10249 . . . . . . . . . . . . . 14  |-  0  e.  ZZ
1355a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  1  e.  CC )
136 bpolycl 26002 . . . . . . . . . . . . . . . . 17  |-  ( ( 0  e.  NN0  /\  X  e.  CC )  ->  ( 0 BernPoly  X )  e.  CC )
137105, 136mpan 652 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  e.  CC )
138 5re 10031 . . . . . . . . . . . . . . . . . 18  |-  5  e.  RR
139138recni 9058 . . . . . . . . . . . . . . . . 17  |-  5  e.  CC
140139a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  e.  CC )
141 0re 9047 . . . . . . . . . . . . . . . . . 18  |-  0  e.  RR
142 5pos 10043 . . . . . . . . . . . . . . . . . 18  |-  0  <  5
143141, 142gtneii 9141 . . . . . . . . . . . . . . . . 17  |-  5  =/=  0
144143a1i 11 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  5  =/=  0 )
145137, 140, 144divcld 9746 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  e.  CC )
146135, 145mulcld 9064 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  e.  CC )
147 oveq2 6048 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
4  _C  k )  =  ( 4  _C  0 ) )
148 bcn0 11556 . . . . . . . . . . . . . . . . . 18  |-  ( 4  e.  NN0  ->  ( 4  _C  0 )  =  1 )
1491, 148ax-mp 8 . . . . . . . . . . . . . . . . 17  |-  ( 4  _C  0 )  =  1
150147, 149syl6eq 2452 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
4  _C  k )  =  1 )
151 oveq1 6047 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
k BernPoly  X )  =  ( 0 BernPoly  X ) )
152 oveq2 6048 . . . . . . . . . . . . . . . . . . 19  |-  ( k  =  0  ->  (
4  -  k )  =  ( 4  -  0 ) )
153152oveq1d 6055 . . . . . . . . . . . . . . . . . 18  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  ( ( 4  -  0 )  +  1 ) )
1544subid1i 9328 . . . . . . . . . . . . . . . . . . . 20  |-  ( 4  -  0 )  =  4
155154oveq1i 6050 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 4  -  0 )  +  1 )  =  ( 4  +  1 )
156 4p1e5 10061 . . . . . . . . . . . . . . . . . . 19  |-  ( 4  +  1 )  =  5
157155, 156eqtri 2424 . . . . . . . . . . . . . . . . . 18  |-  ( ( 4  -  0 )  +  1 )  =  5
158153, 157syl6eq 2452 . . . . . . . . . . . . . . . . 17  |-  ( k  =  0  ->  (
( 4  -  k
)  +  1 )  =  5 )
159151, 158oveq12d 6058 . . . . . . . . . . . . . . . 16  |-  ( k  =  0  ->  (
( k BernPoly  X )  /  ( ( 4  -  k )  +  1 ) )  =  ( ( 0 BernPoly  X
)  /  5 ) )
160150, 159oveq12d 6058 . . . . . . . . . . . . . . 15  |-  ( k  =  0  ->  (
( 4  _C  k
)  x.  ( ( k BernPoly  X )  /  (
( 4  -  k
)  +  1 ) ) )  =  ( 1  x.  ( ( 0 BernPoly  X )  /  5
) ) )
161160fsum1 12490 . . . . . . . . . . . . . 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
) ) )
162134, 146, 161sylancr 645 . . . . . . . . . . . . 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
) ) )
163 bpoly0 26000 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
0 BernPoly  X )  =  1 )
164163oveq1d 6055 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 0 BernPoly  X )  /  5 )  =  ( 1  /  5
) )
165164oveq2d 6056 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  x.  ( 1  /  5 ) ) )
166139, 143reccli 9700 . . . . . . . . . . . . . . 15  |-  ( 1  /  5 )  e.  CC
167166mulid2i 9049 . . . . . . . . . . . . . 14  |-  ( 1  x.  ( 1  / 
5 ) )  =  ( 1  /  5
)
168165, 167syl6eq 2452 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  x.  ( ( 0 BernPoly  X )  /  5
) )  =  ( 1  /  5 ) )
169162, 168eqtrd 2436 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 0
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( 1  /  5 ) )
170 bpolycl 26002 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  NN0  /\  X  e.  CC )  ->  ( 1 BernPoly  X )  e.  CC )
17176, 170mpan 652 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  e.  CC )
172 nn0cn 10187 . . . . . . . . . . . . . . 15  |-  ( 4  e.  NN0  ->  4  e.  CC )
1731, 172mp1i 12 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  e.  CC )
174 4pos 10042 . . . . . . . . . . . . . . . 16  |-  0  <  4
175141, 174gtneii 9141 . . . . . . . . . . . . . . 15  |-  4  =/=  0
176175a1i 11 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  4  =/=  0 )
177171, 173, 176divcan2d 9748 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( 1 BernPoly  X ) )
178 bpoly1 26001 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1 BernPoly  X )  =  ( X  -  ( 1  /  2 ) ) )
179177, 178eqtrd 2436 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
4  x.  ( ( 1 BernPoly  X )  /  4
) )  =  ( X  -  ( 1  /  2 ) ) )
180169, 179oveq12d 6058 . . . . . . . . . . 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 ) ) ) )
181133, 180eqtrd 2436 . . . . . . . . . 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
) ) ) )
182104, 181syl5eqr 2450 . . . . . . . . 9  |-  ( X  e.  CC  ->  sum_ k  e.  ( 0 ... 1
) ( ( 4  _C  k )  x.  ( ( k BernPoly  X
)  /  ( ( 4  -  k )  +  1 ) ) )  =  ( ( 1  /  5 )  +  ( X  -  ( 1  /  2
) ) ) )
183 6re 10032 . . . . . . . . . . . . 13  |-  6  e.  RR
184183recni 9058 . . . . . . . . . . . 12  |-  6  e.  CC
185184a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  6  e.  CC )
186 bpolycl 26002 . . . . . . . . . . . 12  |-  ( ( 2  e.  NN0  /\  X  e.  CC )  ->  ( 2 BernPoly  X )  e.  CC )
18714, 186mpan 652 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  e.  CC )
1886a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  e.  CC )
189 3ne0 10041 . . . . . . . . . . . 12  |-  3  =/=  0
190189a1i 11 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  3  =/=  0 )
191185, 187, 188, 190div12d 9782 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( ( 2 BernPoly  X )  x.  ( 6  / 
3 ) ) )
192 3t2e6 10084 . . . . . . . . . . . . 13  |-  ( 3  x.  2 )  =  6
193184, 6, 92, 189divmuli 9724 . . . . . . . . . . . . 13  |-  ( ( 6  /  3 )  =  2  <->  ( 3  x.  2 )  =  6 )
194192, 193mpbir 201 . . . . . . . . . . . 12  |-  ( 6  /  3 )  =  2
195194oveq2i 6051 . . . . . . . . . . 11  |-  ( ( 2 BernPoly  X )  x.  (
6  /  3 ) )  =  ( ( 2 BernPoly  X )  x.  2 )
19692a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  2  e.  CC )
197187, 196mulcomd 9065 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 2 BernPoly  X ) ) )
198 bpoly2 26007 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2 BernPoly  X )  =  ( ( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) )
199198oveq2d 6056 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
2  x.  ( 2 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) ) ) )
200197, 199eqtrd 2436 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
201195, 200syl5eq 2448 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2 BernPoly  X )  x.  ( 6  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
202191, 201eqtrd 2436 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
6  x.  ( ( 2 BernPoly  X )  /  3
) )  =  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) ) )
203182, 202oveq12d 6058 . . . . . . . 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 ) ) ) ) )
204101, 203eqtrd 2436 . . . . . . 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 ) ) ) ) )
20575, 204syl5eq 2448 . . . . . 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 ) ) ) ) )
206 3nn0 10195 . . . . . . . . 9  |-  3  e.  NN0
207 bpolycl 26002 . . . . . . . . 9  |-  ( ( 3  e.  NN0  /\  X  e.  CC )  ->  ( 3 BernPoly  X )  e.  CC )
208206, 207mpan 652 . . . . . . . 8  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  e.  CC )
209 2ne0 10039 . . . . . . . . 9  |-  2  =/=  0
210209a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  2  =/=  0 )
211173, 208, 196, 210div12d 9782 . . . . . . 7  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( ( 3 BernPoly  X )  x.  ( 4  / 
2 ) ) )
212 4d2e2 10088 . . . . . . . . 9  |-  ( 4  /  2 )  =  2
213212oveq2i 6051 . . . . . . . 8  |-  ( ( 3 BernPoly  X )  x.  (
4  /  2 ) )  =  ( ( 3 BernPoly  X )  x.  2 )
214208, 196mulcomd 9065 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( 3 BernPoly  X ) ) )
215 bpoly3 26008 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3 BernPoly  X )  =  ( ( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )
216215oveq2d 6056 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( 3 BernPoly  X ) )  =  ( 2  x.  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
217214, 216eqtrd 2436 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  2 )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
218213, 217syl5eq 2448 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 3 BernPoly  X )  x.  ( 4  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
219211, 218eqtrd 2436 . . . . . 6  |-  ( X  e.  CC  ->  (
4  x.  ( ( 3 BernPoly  X )  /  2
) )  =  ( 2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) ) )
220205, 219oveq12d 6058 . . . . 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 ) ) ) ) )
22173, 220eqtrd 2436 . . . 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 ) ) ) ) )
22213, 221syl5eq 2448 . . 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 ) ) ) ) )
223222oveq2d 6056 . 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 ) ) ) ) ) )
224 expcl 11354 . . . . 5  |-  ( ( X  e.  CC  /\  4  e.  NN0 )  -> 
( X ^ 4 )  e.  CC )
2251, 224mpan2 653 . . . 4  |-  ( X  e.  CC  ->  ( X ^ 4 )  e.  CC )
226 expcl 11354 . . . . . 6  |-  ( ( X  e.  CC  /\  3  e.  NN0 )  -> 
( X ^ 3 )  e.  CC )
227206, 226mpan2 653 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 3 )  e.  CC )
228196, 227mulcld 9064 . . . 4  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 3 ) )  e.  CC )
229 sqcl 11399 . . . . 5  |-  ( X  e.  CC  ->  ( X ^ 2 )  e.  CC )
230206, 105deccl 10352 . . . . . . . 8  |- ; 3 0  e.  NN0
231230nn0cni 10189 . . . . . . 7  |- ; 3 0  e.  CC
232 df-dec 10339 . . . . . . . . 9  |- ; 3 0  =  ( ( 10  x.  3 )  +  0 )
233 10re 10036 . . . . . . . . . . . 12  |-  10  e.  RR
234233recni 9058 . . . . . . . . . . 11  |-  10  e.  CC
235234, 6mulcli 9051 . . . . . . . . . 10  |-  ( 10  x.  3 )  e.  CC
236235addid1i 9209 . . . . . . . . 9  |-  ( ( 10  x.  3 )  +  0 )  =  ( 10  x.  3 )
237232, 236eqtri 2424 . . . . . . . 8  |- ; 3 0  =  ( 10  x.  3 )
238 10pos 10048 . . . . . . . . . 10  |-  0  <  10
239141, 238gtneii 9141 . . . . . . . . 9  |-  10  =/=  0
240234, 6, 239, 189mulne0i 9621 . . . . . . . 8  |-  ( 10  x.  3 )  =/=  0
241237, 240eqnetri 2584 . . . . . . 7  |- ; 3 0  =/=  0
242231, 241reccli 9700 . . . . . 6  |-  ( 1  / ; 3 0 )  e.  CC
243242a1i 11 . . . . 5  |-  ( X  e.  CC  ->  (
1  / ; 3 0 )  e.  CC )
244229, 243subcld 9367 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  ( 1  / ; 3 0 ) )  e.  CC )
245225, 228, 244subsubd 9395 . . 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 ) ) ) )
246166a1i 11 . . . . . . . 8  |-  ( X  e.  CC  ->  (
1  /  5 )  e.  CC )
247 id 20 . . . . . . . . 9  |-  ( X  e.  CC  ->  X  e.  CC )
24892, 209reccli 9700 . . . . . . . . . 10  |-  ( 1  /  2 )  e.  CC
249248a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  2 )  e.  CC )
250247, 249subcld 9367 . . . . . . . 8  |-  ( X  e.  CC  ->  ( X  -  ( 1  /  2 ) )  e.  CC )
251246, 250addcld 9063 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  e.  CC )
252229, 247subcld 9367 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( X ^ 2 )  -  X )  e.  CC )
253 6pos 10044 . . . . . . . . . . . 12  |-  0  <  6
254141, 253gtneii 9141 . . . . . . . . . . 11  |-  6  =/=  0
255184, 254reccli 9700 . . . . . . . . . 10  |-  ( 1  /  6 )  e.  CC
256255a1i 11 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  /  6 )  e.  CC )
257252, 256addcld 9063 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( ( X ^
2 )  -  X
)  +  ( 1  /  6 ) )  e.  CC )
258196, 257mulcld 9064 . . . . . . 7  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  e.  CC )
259251, 258addcld 9063 . . . . . 6  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 1  /  2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  e.  CC )
2606, 92, 209divcli 9712 . . . . . . . . . . 11  |-  ( 3  /  2 )  e.  CC
261260a1i 11 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  /  2 )  e.  CC )
262261, 229mulcld 9064 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 3  /  2
)  x.  ( X ^ 2 ) )  e.  CC )
263227, 262subcld 9367 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
264249, 247mulcld 9064 . . . . . . . 8  |-  ( X  e.  CC  ->  (
( 1  /  2
)  x.  X )  e.  CC )
265263, 264addcld 9063 . . . . . . 7  |-  ( X  e.  CC  ->  (
( ( X ^
3 )  -  (
( 3  /  2
)  x.  ( X ^ 2 ) ) )  +  ( ( 1  /  2 )  x.  X ) )  e.  CC )
266196, 265mulcld 9064 . . . . . 6  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  +  ( ( 1  /  2 )  x.  X ) ) )  e.  CC )
267259, 266addcomd 9224 . . . . 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 ) ) ) ) ) )
268196, 263, 264adddid 9068 . . . . . . 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 ) ) ) )
269196, 227, 262subdid 9445 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 3 )  -  ( ( 3  /  2 )  x.  ( X ^ 2 ) ) ) )  =  ( ( 2  x.  ( X ^
3 ) )  -  ( 2  x.  (
( 3  /  2
)  x.  ( X ^ 2 ) ) ) ) )
27092, 209recidi 9701 . . . . . . . . . 10  |-  ( 2  x.  ( 1  / 
2 ) )  =  1
271270oveq1i 6050 . . . . . . . . 9  |-  ( ( 2  x.  ( 1  /  2 ) )  x.  X )  =  ( 1  x.  X
)
272196, 249, 247mulassd 9067 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
( 2  x.  (
1  /  2 ) )  x.  X )  =  ( 2  x.  ( ( 1  / 
2 )  x.  X
) ) )
273 mulid2 9045 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
1  x.  X )  =  X )
274271, 272, 2733eqtr3a 2460 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 1  /  2 )  x.  X ) )  =  X )
275269, 274oveq12d 6058 . . . . . . 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
) )
276268, 275eqtrd 2436 . . . . . 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
) )
277276oveq1d 6055 . . . . 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 ) ) ) ) ) )
278196, 262mulcld 9064 . . . . . . . 8  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  e.  CC )
279228, 278subcld 9367 . . . . . . 7  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 3 ) )  -  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )  e.  CC )
280279, 247, 259addassd 9066 . . . . . 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 ) ) ) ) ) ) )
281247, 259addcld 9063 . . . . . . 7  |-  ( X  e.  CC  ->  ( X  +  ( (
( 1  /  5
)  +  ( X  -  ( 1  / 
2 ) ) )  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6 ) ) ) ) )  e.  CC )
282228, 278, 281subsubd 9395 . . . . . 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 ) ) ) ) ) ) )
2836, 92, 209divcan2i 9713 . . . . . . . . . . 11  |-  ( 2  x.  ( 3  / 
2 ) )  =  3
284283oveq1i 6050 . . . . . . . . . 10  |-  ( ( 2  x.  ( 3  /  2 ) )  x.  ( X ^
2 ) )  =  ( 3  x.  ( X ^ 2 ) )
285196, 261, 229mulassd 9067 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 2  x.  (
3  /  2 ) )  x.  ( X ^ 2 ) )  =  ( 2  x.  ( ( 3  / 
2 )  x.  ( X ^ 2 ) ) ) )
286284, 285syl5reqr 2451 . . . . . . . . 9  |-  ( X  e.  CC  ->  (
2  x.  ( ( 3  /  2 )  x.  ( X ^
2 ) ) )  =  ( 3  x.  ( X ^ 2 ) ) )
287286oveq1d 6055 . . . . . . . 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
) ) ) ) ) ) )
288247, 251, 258add12d 9243 . . . . . . . . . 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 ) ) ) ) ) )
289196, 252, 256adddid 9068 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( 2  x.  ( ( X ^ 2 )  -  X ) )  +  ( 2  x.  (
1  /  6 ) ) ) )
290196, 229, 247subdid 9445 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( ( X ^ 2 )  -  X ) )  =  ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) ) )
291192oveq2i 6051 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 2  /  6
)
2926, 189reccli 9700 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  /  3 )  e.  CC
2936, 92, 292mul32i 9218 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  ( ( 3  x.  ( 1  /  3
) )  x.  2 )
2946, 189recidi 9701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 3  x.  ( 1  / 
3 ) )  =  1
295294oveq1i 6050 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  ( 1  x.  2 )
29692mulid2i 9049 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  x.  2 )  =  2
297295, 296eqtri 2424 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 3  x.  ( 1  /  3 ) )  x.  2 )  =  2
298293, 297eqtri 2424 . . . . . . . . . . . . . . . . . 18  |-  ( ( 3  x.  2 )  x.  ( 1  / 
3 ) )  =  2
299192, 184eqeltri 2474 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  e.  CC
300192, 254eqnetri 2584 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  x.  2 )  =/=  0
30192, 299, 292, 300divmuli 9724 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  /  ( 3  x.  2 ) )  =  ( 1  / 
3 )  <->  ( (
3  x.  2 )  x.  ( 1  / 
3 ) )  =  2 )
302298, 301mpbir 201 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  ( 3  x.  2 ) )  =  ( 1  /  3
)
30392, 184, 254divreci 9715 . . . . . . . . . . . . . . . . 17  |-  ( 2  /  6 )  =  ( 2  x.  (
1  /  6 ) )
304291, 302, 3033eqtr3ri 2433 . . . . . . . . . . . . . . . 16  |-  ( 2  x.  ( 1  / 
6 ) )  =  ( 1  /  3
)
305304a1i 11 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
2  x.  ( 1  /  6 ) )  =  ( 1  / 
3 ) )
306290, 305oveq12d 6058 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  (
( X ^ 2 )  -  X ) )  +  ( 2  x.  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
307289, 306eqtrd 2436 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  / 
6 ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  +  ( 1  /  3
) ) )
308307oveq2d 6056 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( X  +  ( ( ( 2  x.  ( X ^
2 ) )  -  ( 2  x.  X
) )  +  ( 1  /  3 ) ) ) )
309196, 229mulcld 9064 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  ( X ^ 2 ) )  e.  CC )
310196, 247mulcld 9064 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
2  x.  X )  e.  CC )
311309, 310subcld 9367 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) )  e.  CC )
312292a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
1  /  3 )  e.  CC )
313247, 311, 312addassd 9066 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( X  +  ( ( ( 2  x.  ( X ^ 2 ) )  -  (
2  x.  X ) )  +  ( 1  /  3 ) ) ) )
314247, 309, 310addsub12d 9390 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  +  ( (
2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) ) )
315314oveq1d 6055 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  +  ( ( 2  x.  ( X ^ 2 ) )  -  ( 2  x.  X ) ) )  +  ( 1  / 
3 ) )  =  ( ( ( 2  x.  ( X ^
2 ) )  +  ( X  -  (
2  x.  X ) ) )  +  ( 1  /  3 ) ) )
316308, 313, 3153eqtr2d 2442 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  ( X  +  ( 2  x.  ( ( ( X ^ 2 )  -  X )  +  ( 1  /  6
) ) ) )  =  ( ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  +  ( 1  /  3
) ) )
317316oveq2d 6056 . . . . . . . . . 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 ) ) ) )
318288, 317eqtrd 2436 . . . . . . . . 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 ) ) ) )
319318oveq2d 6056 . . . . . . . 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
) ) ) ) )
320247, 310subcld 9367 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  ( X  -  ( 2  x.  X ) )  e.  CC )
321309, 320addcld 9063 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) )  e.  CC )
322246, 250, 321, 312add4d 9245 . . . . . . . . . . 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 ) ) ) )
323246, 309, 320add12d 9243 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( ( 2  x.  ( X ^ 2 ) )  +  ( X  -  ( 2  x.  X
) ) ) )  =  ( ( 2  x.  ( X ^
2 ) )  +  ( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) ) ) )
324323oveq1d 6055 . . . . . . . . . . 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 ) ) ) )
325246, 320addcld 9063 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  +  ( X  -  ( 2  x.  X ) ) )  e.  CC )
326250, 312addcld 9063 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( X  -  (
1  /  2 ) )  +  ( 1  /  3 ) )  e.  CC )
327309, 325, 326addassd 9066 . . . . . . . . . . 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 ) ) ) ) )
328322, 324, 3273eqtrd 2440 . . . . . . . . . 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 ) ) ) ) )
329328oveq2d 6056 . . . . . . . . 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 ) ) ) ) ) )
330188, 229mulcld 9064 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
3  x.  ( X ^ 2 ) )  e.  CC )
331325, 326addcld 9063 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  e.  CC )
332330, 309, 331subsub4d 9398 . . . . . . . . 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 ) ) ) ) ) )
3336, 92, 5, 113subaddrii 9345 . . . . . . . . . . . 12  |-  ( 3  -  2 )  =  1
334333oveq1i 6050 . . . . . . . . . . 11  |-  ( ( 3  -  2 )  x.  ( X ^
2 ) )  =  ( 1  x.  ( X ^ 2 ) )
335188, 196, 229subdird 9446 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( 3  -  2 )  x.  ( X ^ 2 ) )  =  ( ( 3  x.  ( X ^
2 ) )  -  ( 2  x.  ( X ^ 2 ) ) ) )
336229mulid2d 9062 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
1  x.  ( X ^ 2 ) )  =  ( X ^
2 ) )
337334, 335, 3363eqtr3a 2460 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( 3  x.  ( X ^ 2 ) )  -  ( 2  x.  ( X ^ 2 ) ) )  =  ( X ^ 2 ) )
338246, 310, 247subsubd 9395 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( ( 1  /  5 )  -  ( 2  x.  X ) )  +  X ) )
339273oveq2d 6056 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  ( ( 2  x.  X )  -  X ) )
340 2m1e1 10051 . . . . . . . . . . . . . . . . 17  |-  ( 2  -  1 )  =  1
341340oveq1i 6050 . . . . . . . . . . . . . . . 16  |-  ( ( 2  -  1 )  x.  X )  =  ( 1  x.  X
)
342196, 135, 247subdird 9446 . . . . . . . . . . . . . . . 16  |-  ( X  e.  CC  ->  (
( 2  -  1 )  x.  X )  =  ( ( 2  x.  X )  -  ( 1  x.  X
) ) )
343341, 342, 2733eqtr3a 2460 . . . . . . . . . . . . . . 15  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  ( 1  x.  X ) )  =  X )
344339, 343eqtr3d 2438 . . . . . . . . . . . . . 14  |-  ( X  e.  CC  ->  (
( 2  x.  X
)  -  X )  =  X )
345344oveq2d 6056 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  ( ( 2  x.  X )  -  X ) )  =  ( ( 1  /  5 )  -  X ) )
346246, 310, 247subadd23d 9389 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  (
2  x.  X ) )  +  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
347338, 345, 3463eqtr3d 2444 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( 1  /  5
)  -  X )  =  ( ( 1  /  5 )  +  ( X  -  (
2  x.  X ) ) ) )
348247, 249, 312subsubd 9395 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  ( X  -  ( (
1  /  2 )  -  ( 1  / 
3 ) ) )  =  ( ( X  -  ( 1  / 
2 ) )  +  ( 1  /  3
) ) )
349347, 348oveq12d 6058 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( ( 1  /  5 )  +  ( X  -  ( 2  x.  X
) ) )  +  ( ( X  -  ( 1  /  2
) )  +  ( 1  /  3 ) ) ) )
350248, 292subcli 9332 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  e.  CC
351350a1i 11 . . . . . . . . . . . . 13  |-  ( X  e.  CC  ->  (
( 1  /  2
)  -  ( 1  /  3 ) )  e.  CC )
352246, 247, 351npncand 9391 . . . . . . . . . . . 12  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( ( 1  /  5 )  -  ( ( 1  / 
2 )  -  (
1  /  3 ) ) ) )
353 halfthird 25158 . . . . . . . . . . . . . 14  |-  ( ( 1  /  2 )  -  ( 1  / 
3 ) )  =  ( 1  /  6
)
354353oveq2i 6051 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( ( 1  / 
5 )  -  (
1  /  6 ) )
355 5recm6rec 25159 . . . . . . . . . . . . 13  |-  ( ( 1  /  5 )  -  ( 1  / 
6 ) )  =  ( 1  / ; 3 0 )
356354, 355eqtri 2424 . . . . . . . . . . . 12  |-  ( ( 1  /  5 )  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) )  =  ( 1  / ; 3 0 )
357352, 356syl6eq 2452 . . . . . . . . . . 11  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  -  X
)  +  ( X  -  ( ( 1  /  2 )  -  ( 1  /  3
) ) ) )  =  ( 1  / ; 3 0 ) )
358349, 357eqtr3d 2438 . . . . . . . . . 10  |-  ( X  e.  CC  ->  (
( ( 1  / 
5 )  +  ( X  -  ( 2  x.  X ) ) )  +  ( ( X  -  ( 1  /  2 ) )  +  ( 1  / 
3 ) ) )  =  ( 1  / ; 3 0 ) )
359337, 358oveq12d 6058 . . . . . . . . 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 ) ) )
360329, 332, 3593eqtr2d 2442 . . . . . . . 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 ) ) )
361287, 319, 3603eqtrd 2440 . . . . . . 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 ) ) )
362361oveq2d 6056 . . . . . 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 ) ) ) )
363280, 282, 3623eqtr2d 2442 . . . . 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 ) ) ) )
364267, 277, 3633eqtrd 2440 . . . 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 ) ) ) )
365364oveq2d 6056 . . 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 ) ) ) ) )
366225, 228subcld 9367 . . . 4  |-  ( X  e.  CC  ->  (
( X ^ 4 )  -  ( 2  x.  ( X ^
3 ) ) )  e.  CC )
367366, 229, 243addsubassd 9387 . . 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 ) ) ) )
368245, 365, 3673eqtr4d 2446 . 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 ) ) )
3693, 223, 3683eqtrd 2440 1  |-  ( X  e.  CC  ->  (
4 BernPoly  X )  =  ( ( ( ( X ^ 4 )  -  ( 2  x.  ( X ^ 3 ) ) )  +  ( X ^ 2 ) )  -  ( 1  / ; 3 0 ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 359    = wceq 1649    e. wcel 1721    =/= wne 2567    C_ wss 3280   class class class wbr 4172   ` cfv 5413  (class class class)co 6040   CCcc 8944   RRcr 8945   0cc0 8946   1c1 8947    + caddc 8949    x. cmul 8951    < clt 9076    - cmin 9247    / cdiv 9633   NNcn 9956   2c2 10005   3c3 10006   4c4 10007   5c5 10008   6c6 10009   10c10 10013   NN0cn0 10177   ZZcz 10238  ;cdc 10338   ZZ>=cuz 10444   ...cfz 10999   ^cexp 11337    _C cbc 11548   sum_csu 12434   BernPoly cbp 25996
This theorem is referenced by:  fsumcube  26010
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-rep 4280  ax-sep 4290  ax-nul 4298  ax-pow 4337  ax-pr 4363  ax-un 4660  ax-inf2 7552  ax-cnex 9002  ax-resscn 9003  ax-1cn 9004  ax-icn 9005  ax-addcl 9006  ax-addrcl 9007  ax-mulcl 9008  ax-mulrcl 9009  ax-mulcom 9010  ax-addass 9011  ax-mulass 9012  ax-distr 9013  ax-i2m1 9014  ax-1ne0 9015  ax-1rid 9016  ax-rnegex 9017  ax-rrecex 9018  ax-cnre 9019  ax-pre-lttri 9020  ax-pre-lttrn 9021  ax-pre-ltadd 9022  ax-pre-mulgt0 9023  ax-pre-sup 9024
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-nel 2570  df-ral 2671  df-rex 2672  df-reu 2673  df-rmo 2674  df-rab 2675  df-v 2918  df-sbc 3122  df-csb 3212  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-pss 3296  df-nul 3589  df-if 3700  df-pw 3761  df-sn 3780  df-pr 3781  df-tp 3782  df-op 3783  df-uni 3976  df-int 4011  df-iun 4055  df-br 4173  df-opab 4227  df-mpt 4228  df-tr 4263  df-eprel 4454  df-id 4458  df-po 4463  df-so 4464  df-fr 4501  df-se 4502  df-we 4503  df-ord 4544  df-on 4545  df-lim 4546  df-suc 4547  df-om 4805  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-iota 5377  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-isom 5422  df-ov 6043  df-oprab 6044  df-mpt2 6045  df-1st 6308  df-2nd 6309  df-riota 6508  df-recs 6592  df-rdg 6627  df-1o 6683  df-oadd 6687  df-er 6864  df-en 7069  df-dom 7070  df-sdom 7071  df-fin 7072  df-sup 7404  df-oi 7435  df-card 7782  df-pnf 9078  df-mnf 9079  df-xr 9080  df-ltxr 9081  df-le 9082  df-sub 9249  df-neg 9250  df-div 9634  df-nn 9957  df-2 10014  df-3 10015  df-4 10016  df-5 10017  df-6 10018  df-7 10019  df-8 10020  df-9 10021  df-10 10022  df-n0 10178  df-z 10239  df-dec 10339  df-uz 10445  df-rp 10569  df-fz 11000  df-fzo 11091  df-seq 11279  df-exp 11338  df-fac 11522  df-bc 11549  df-hash 11574  df-cj 11859  df-re 11860  df-im 11861  df-sqr 11995  df-abs 11996  df-clim 12237  df-sum 12435  df-pred 25382  df-bpoly 25997
  Copyright terms: Public domain W3C validator