INT_POLY_CONV : term -> thm
# INT_POLY_CONV `(x + y) pow 3`;;
val it : thm =
|- (x + y) pow 3 = x pow 3 + &3 * x pow 2 * y + &3 * x * y pow 2 + y pow 3
# INT_POLY_CONV
`(&1679616 * a pow 16 - &66096 * a pow 10 * b pow 6 +
&153 * a pow 4 * b pow 12) pow 3 +
(-- &1679616 * a pow 16 - &559872 * a pow 13 * b pow 3 -
&27216 * a pow 10 * b pow 6 + &3888 * a pow 7 * b pow 9 +
&63 * a pow 4 * b pow 12 - &3 * a * b pow 15) pow 3 +
(&1679616 * a pow 15 * b + &279936 * a pow 12 * b pow 4 -
&11664 * a pow 9 * b pow 7 -
&648 * a pow 6 * b pow 10 + &9 * a pow 3 * b pow 13 + b pow 16) pow 3`;;
val it : thm =
|- ... =
b pow 48