dest_const : term -> string * hol_type
dest_const `const:ty`
# dest_const `T`;; val it : string * hol_type = ("T", `:bool`)