Type.compare : hol_type * hol_type -> order
- Type.compare (bool, alpha --> alpha); > val it = LESS : order
There is also a Term.compare.