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