mk_thy_type 
       : {Thy:string, Tyop:string, Args:hol_type list} -> hol_type
- mk_thy_type {Tyop="fun", Thy="min", Args = [alpha,bool]};
> val it = `:'a -> bool` : hol_type
- try mk_thy_type {Tyop="bar", Thy="foo", Args = []};
 
Exception raised at Type.mk_thy_type:
"foo$bar" not found