dest_thy_type : {Thy:string, Name:string, Args:hol_type list} -> term
- 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: