match_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