dest_var : term -> string * hol_type
# dest_var `x:num`;; val it : string * hol_type = ("x", `:num`)