dest_term : term -> lambda
datatype lambda = VAR of string * term | CONST of {Name:string, Thy:string, Ty:hol_type} | COMB of term * term | LAMB of term * term
> dest_term ``SUC 2``; val it = COMB (``SUC``, ``2``) : lambda