match_type : hol_type -> hol_type -> (hol_type,hol_type) subst
type_subst (match_type ty1 ty2) ty1 = ty2
- match_type alpha (Type`:num`); > val it = [{redex = `:'a`, residue = `:num`}] : hol_type subst - let val patt = Type`:('a -> bool) -> 'b` val ty = Type`:(num -> bool) -> bool` in type_subst (match_type patt ty) patt = ty end; > val it = true : bool - match_type (alpha --> alpha) (ind --> bool); ! Uncaught exception: ! HOL_ERR