dest_vartype : hol_type -> string
# dest_vartype `:A`;; val it : string = "A" # dest_vartype `:A->B`;; Exception: Failure "dest_vartype: type constructor not a variable".