dest_comb : term -> term * term
dest_comb `t1 t2`
# dest_comb `SUC 0`;; val it : term * term = (`SUC`, `0`)
# dest_comb `12`;; val it : term * term = (`NUMERAL`, `BIT0 (BIT0 (BIT1 (BIT1 _0)))`)