dest_thy_type 
    : hol_type -> {Thy:string, Tyop:string, 
                   Args:hol_type list}
- dest_thy_type (alpha --> bool);
> val it = {Args = [`:'a`, `:bool`], Thy = "min", Tyop = "fun"} :
- try dest_thy_type alpha;
Exception raised at Type.dest_thy_type: